YWDAdd                              (XAPI2000)

Deklaration VB 6.0
 Sub YWDAdd (Y As Long, WNr As Long, WDay As Long, ByVal Weeks As Long, ByVal Days As Long)

Deklaration VB.NET
 Sub YWDAdd (ByRef Y As Integer, ByRef WNr As Integer, ByRef WDay As Integer, ByVal Weeks As Integer, ByVal Days As Integer)

Beskrivning
Adderar veckor (Weeks) och dagar (Days) till ett datum i formatet år-veckonummer-veckodag (Y, WNr, WDay). WNr måste vara ett giltigt veckonummer inom intervallet 1 - 53. WDay, som används för att ange veckodag, måste ha ett värde mellan 1 - 7 (1 = Måndag, 2 = Tisdag ... 7 = Söndag). Det nya datumet returneras via parametrarna Y, WNr, WDay (år, veckonummer, veckodag).

Se även  
YWDSub, YWDDif


Exempel (VB 6.0) 

Nedanstående exempel adderar 10 veckor och 2 dagar till datumet 1999-01-1 (år-veckonummer-veckodag).
Dim Y As Long, WNr As Long, WDay As Long
Y = 1999                    ' År
 WNr = 1                     ' Veckonummer (1)
 WDay = 1                    ' Veckodag (Måndag)
 YWDAdd Y, WNr, WDay, 10, 2  ' Blir 1999-11-3