Domino 9 und frühere Versionen > Entwicklung

Datumswert zu Ganzzahl umrechnen

(1/1)

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

Navigation

[0] Themen-Index