|
DateNextTime
(XAPI2000)
Deklaration
Function DateNextTime (ByVal DayNr As Integer) As Date
Beskrivning
Returnerar datum nästa gång en specificerad veckodag inträffar.
Parametern DayNr specificerar ett veckodagsnummer (1-7) vars
datum ska returneras. Värdet 1 motsvarar måndag och värdet 7 motsvarar
söndag. Är veckodagen detsamma som aktuell veckodag (idag) returernas
datumet för nästa gång veckodagen inträffar (om en vecka).
Returvärden
Funktionen returnerar datum för den specificerade veckodagen.
Se även
DayOfWeek |
Exempel
Dim NextMonday As Date
Dim NextFriday As Date
Dim NextSunday As Date
NextMonday = DateNextTime(1) ' Returnera
datum för nästa måndag (veckodag nr 1)
NextFriday = DateNextTime(5) ' Returnera
datum för nästa fredag (veckodag nr 5)
NextSunday = DateNextTime(7) '
Returnera datum för nästa söndag (veckodag nr 7)
|
