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 2010-01-1 (år-veckonummer-veckodag).

Dim Y As Long, WNr As Long, WDay As Long
Y = 2010                    ' År
WNr = 1                     ' Veckonummer (1)
WDay = 1                    ' Veckodag (Måndag)
YWDAdd Y, WNr, WDay, 10, 2  ' Blir 2010-11-3 (år-veckonr-veckodag)

 
 
  
SamLogic