datemodule.bas

便利店管理系统 VB+ACCESS 附上数据库和源码

Attribute VB_Name = "dateModule"
Option Explicit

Type WeekRange
    wSun  As Date
    wMon  As Date
    wTue  As Date
    wWed  As Date
    wThu  As Date
    wFri  As Date
    wSat  As Date
End Type

Public Function getWeek(ByVal oneDate As Date) As WeekRange
    Dim tmpWeek As WeekRange
    
    Do Until Weekday(oneDate) = 7
        oneDate = oneDate - 1
    Loop
    
    tmpWeek.wSat = oneDate
    tmpWeek.wFri = oneDate - 1
    tmpWeek.wThu = oneDate - 2
    tmpWeek.wWed = oneDate - 3
    tmpWeek.wTue = oneDate - 4
    tmpWeek.wMon = oneDate - 5
    tmpWeek.wSun = oneDate - 6
    
    getWeek = tmpWeek
End Function