|
GetLastSpecWeekDay
(XAPI2000)
Deklaration VB 6.0
Function GetLastSpecWeekDay (ByVal WD As Long, ByVal Year As
Long, ByVal Month As Long) As Integer
Deklaration VB.NET
Function GetLastSpecWeekDay (ByVal WD As Integer, ByVal Year
As Integer, ByVal Month As Integer) As Integer
Beskrivning
Denna funktion returnerar datum (dag) för sista förekomsten
av en specificerad veckodag i en månad. Parameter WD anger
den veckodag (1-7) som ska hittas och parametrarna Year och
Month anger år och månad som ska undersökas. För WD
gäller att 1 = Måndag, 2 = Tisdag ... 7 = Söndag.
Returvärden
Funktionen returnerar dagsnummer (1-31) i den specificerade
månaden som den sista förekomsten av veckodagen finns i. Vid fel
returnerar funktionen 0.
Se även
GetFirstSpecWeekDay |
Exempel
Nedanstående exempel testar när den sista
måndagen i Augusti 2010 inföll.
Dim D As Integer
D = GetLastSpecWeekDay(1, 2010, 8) ' Ger D = 30 (den
30:e Augusti)
|
