dates.vb

来自「数据库学习的绝好例子简单的数据库经典入门」· VB 代码 · 共 16 行

Imports Microsoft.VisualBasic

Public Class Dates
    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 Class