|
YWDDif
(XAPI2000)
Deklaration VB 6.0
Sub YWDDif (Y1 As Long, WNr1 As Long, WDay1 As Long, ByVal Y2
As Long, ByVal WNr2 As Long, ByVal WDay2 As Long)
Deklaration VB.NET
Sub YWDDif (ByRef Y1 As Integer, ByRef WNr1 As Integer, ByRef
WDay1 As Integer, ByVal Y2 As Integer, ByVal WNr2 As Integer, ByVal
WDay2 As Integer)
Beskrivning
Beräknar differensen mellan två datum av typ år-veckonummer-veckodag.
Datumen specificeras via parametrarna Y1, WNr1,
WDay1 och Y2, WNr2, WDay2. Funktionen subtraherar
Y2, WNr2, WDay2 från Y1, WNr1,
WDay1. Differensen returneras via Y1, WNr1,
WDay1. Utparametrarna kommer ha följande betydelse:
Y1 : Antal år.
WNr1 : Antal veckor.
WDay1 : Antal dagar.
Funktionen utför ingen test att
datumen är riktiga. Vill du ha en sådan utförd bör funktionen
YWDValid anropas först.
Se även
YWDAdd, YWDSub,
YWDValid. |
|
