Function ListMondays(Fld As Control, id As Variant, _
row As Variant, col As Variant, Code As Variant) _
As Variant
Dim intOffset As Integer
Dim szDate As Date
szDate = DateAdd("m", -2, Now())
Select Case Code
Case acLBInitialize ' Initialize.
ListMondays = True
Case acLBOpen ' Open.
ListMondays = Timer ' Unique ID.
Case acLBGetRowCount ' Get rows.
ListMondays = 9
Case acLBGetColumnCount ' Get columns.
ListMondays = 1
Case acLBGetColumnWidth ' Get column width.
ListMondays = -1 ' Use default width.
Case acLBGetValue ' Get the data.
intOffset = Abs((9 - Weekday(szDate)) Mod 7)
ListMondays = Format(szDate + _
intOffset + 7 * row, "dd/mm/yyyy")
End Select
End FunctionDim D as Integer
Dim TestDate As Date
Dim dCnt As Integer
TestDate = Start
D = DateDiff("d",Start,End)
For n = 1 To D
If WeekDay(TestDate) = vbSunday Then
dCnt = dCnt +1
End If
TestDate = DateAdd("d",1,TestDate)
Next
Public function GetSundays(DtmLower As Date,DtmUpper As Date) As Integer
Dim D as Integer
Dim TestDate As Date
Dim dCnt As Integer
TestDate = DtmLower
D = DateDiff("d",DtmLower,DtmUpper)
For n = 1 To D
If WeekDay(TestDate) = vbSunday Then
dCnt = dCnt +1
End If
TestDate = DateAdd("d",1,TestDate)
Next
GetSundays = dCnt
End FunctionPublic Function GetSundays(DtmLower As Date, DtmUpper As Date) As Integer
Dim D As Integer
Dim TestDate As Date
Dim dCnt As Integer
Dim firstSunday As Date
Dim Sundays As Integer
firstSunday = DtmLower - Weekday(DtmLower, vbMonday) + 7
Sundays = 0
Do While firstSunday + Sundays * 7 <= DtmUpper
Sundays = Sundays + 1
Loop
GetSundays = Sundays
End FunctionPublic Function GetSundays(DtmLower As Date, DtmUpper As Date) As Integer
Dim tmpDbl As Double
Dim dtmStart As Date
Dim dtmEnd As Date
dtmStart = DtmLower - Weekday(DtmLower) + 7 ' Get the first sunday
dtmEnd = DtmUpper - Weekday(DtmUpper) ' get the last sunday
tmpDbl = 1 + Int((dtmEnd - dtmStart) / 7)
' If the start is a sunday, add one to make it work...
If Weekday(DtmLower, vbSunday) = 1 Then tmpDbl = tmpDbl + 1
GetSundays = tmpDbl
End Function
