Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: HRaq am 16.07.03 - 10:30:31

Titel: Datumswert zu Ganzzahl umrechnen
Beitrag von: HRaq am 16.07.03 - 10:30:31
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
Titel: Re:Datumswert zu Ganzzahl umrechnen
Beitrag von: Rob Green am 16.07.03 - 10:39:15
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
Titel: Re:Datumswert zu Ganzzahl umrechnen
Beitrag von: koehlerbv am 16.07.03 - 10:51:09
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
Titel: Re:Datumswert zu Ganzzahl umrechnen
Beitrag von: HRaq am 16.07.03 - 11:21:01
Hallo Rob, hallo Bernhard,

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


Gruß Henning