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) returnernas 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)
