Datumswert zu Ganzzahl umrechnen

[HRaq]

Hallo Leute,

ich muß mal wieder nerven.
Wie kann ich Lotus Script ein Datumsfeld zu umrechnen, das ich eine glatte Zahl, mit der ich weiterrechnen kann, bekomme?
Beispiel:
Datum2-Datum1= Anzahl der Tage (z.B. 3 Tage)

Gruß Henning

[Rob Green]

siehe Help "CDat"

theDateV = DateValue(Date)
theDateV = 10/26/94
y% = Year(theDateV)
m% = Month(theDateV) + 1
d% = Day(theDateV) + 1
theDateValV = DateNumber(y%, m%, d%)
' theDateValV = 11/27/94
Print CDbl(theDateValV) - CDbl(theDateV)
' Output: 32

[koehlerbv]

Der einfachste Weg:

Dim vDatum1 As Variant
Dim vDatum2 As Variant
dim lDifferenz as long

'Felder auslesen und zuordnen ...
vDatum1 = uidoc.Document.Datum1 (0)
vDatum2 = uidoc.Document.Datum2 (0)
   
lDifferenz = Clng (vDatum2 - vDatum1)

HTH,
Bernhard

[HRaq]

Hallo Rob, hallo Bernhard,

dank Eurer Hilfe hat's geklappt. Danke...


Gruß Henning