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