utilityfunctions.vb

来自「Beginning VB.NET DatabasesAll_Code.rar」· VB 代码 · 共 14 行

Module UtilityFunctions
    Public Function GetCurrentWeekEndingDate() As String
        GetCurrentWeekEndingDate = DateSerial( _
            Year(Now), Month(Now), DateAndTime.Day(Now) - _
            DatePart("w", Now, Microsoft.VisualBasic.FirstDayOfWeek.Sunday) + 6)
    End Function

    Public Function GetPreviousWeekEndingDate() As String
        GetPreviousWeekEndingDate = DateSerial( _
            Year(Now), Month(Now), DateAndTime.Day(Now) - _
            DatePart("w", Now, Microsoft.VisualBasic.FirstDayOfWeek.Sunday) - 1)
    End Function
End Module