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)

    
 
  
SamLogic