GetMonDate
Get the previous week's Monday..."Kathleen A. Earley"
AI
สรุปโดย AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
ซอร์สโค้ด
Function GetMonDate (CurrentDate)
'checks to see if CurrentDate is a Date datatype
If VarType(CurrentDate) <> 7 Then
GetMonDate = Null
Else
Select Case Weekday(CurrentDate)
Case 1 'Sunday
GetMonDate = CurrentDate - 6
Case 2 'Monday
GetMonDate = CurrentDate
Case 3 To 7 'Tuesday..Saturday
GetMonDate = CurrentDate - Weekday(CurrentDate) + 2
End Select
End If
End Function
Upload
ความคิดเห็นดั้งเดิม (3)
กู้คืนจาก Wayback Machine