differenz zweier date time values

[darehannes]

Hi Leute,

ich bekommt man denn am besten den Unterschied zweier date time items raus.
Am besten in Tagen.
Time differenz gibt bei mir nen Overflow.

mfg und danke
darehannes

[m3]

Indem Du notesDateTime.TimeDifference() korrekt aufrufst?

Mehr Input, mehr Output.

[Glombi]

TimeDifference liefert den Wert in Sekunden als einen Integer zurück und da gibts schnell den Overflow.

Deshalb immer TimeDifferenceDouble verwenden!

Andreas

[m3]

Long, nicht Integer

Und Andreas hat natürlich recht mit TimeDifferenceDouble(). 

[darehannes]

Danke für die Antworten.

leider gibt mir die double Methode auch nen Overflow.
mfg
darehannes

[Glombi]

Welche Datumswerte vergleichst Du denn?
Entstehung des Universum mit voraussichtlichem Ende 

Spaß beiseite: poste doch mal den Code.
Schreibst Du die Differenze in eine Variable? Hast Du diese auch als Double (und nicht als Long) deklariert?

Andreas

[darehannes]

nein die beiden daten liegen maximal 1 jahr auseinander
mfg

[m3]

Wir Brauchen Code, Code !
Wir Brauchen Code! - Was Geht’n Alter?
Code, Code, wir Brauchen Code! - Seid Ihr Down ?

türlich Türlich - Sicher Dicker
türlich Türlich – Is Alles Klar ?
türlich Türlich - Sicher Dicker
türlich Türlich - Seid Ihr Da ?

[darehannes]

Türlich     

Dim wks As New NotesUIWorkspace
   Dim doc As NotesDocument
   Dim beginn As NotesItem
   Dim hf As Notesitem
   Dim beginntime As NotesDateTime
   Dim hftime As NotesDateTime
   Dim i As Integer
   
   Set doc = wks.CurrentDocument.Document
   Set beginn = doc.GetFirstItem("Vertragsbeginn")
   Set hf = doc.GetFirstItem("Hauptfälligkeit")
   Set beginntime = beginn.DateTimeValue
   Set hftime = hf.DateTimeValue

   i = (hftime.TimeDifferenceDouble(beginntime))
   
   Messagebox i/86400
   If doc.Berechnungsbasis(0) = "Basis 360 Tage" Then
      doc.Erstbeitrag = ((i / 86400) * doc.Jahresbeitrag(0)) / 360
      
   Else
      doc.Erstbeitrag = ((i/86400) * doc.Jahresbeitrag(0)) / 365
      
   End If

[Glombi]

Dim i As Integer

sagte ich nicht, als DOUBLE deklarieren 


Set beginn = doc.GetFirstItem("Vertragsbeginn")

das funktioniert doch nicht. Du musst sowas machen:

Set beginn = new NotesDateTime( doc.GetFirstItem("Vertragsbeginn")(0) )


Andreas

[Axel]

Schau dir diese beiden Zeilen mal genauer an.


Dim i As Integer
...
i = (hftime.TimeDifferenceDouble(beginntime))


Fällt dir dabei was auf?

Der Rückgabewert der Funktion ist ein Double-Wert und den weist du einer Integer-Variable zu. Das kann nicht gut gehen.


Axel

[darehannes]

Vielen Dank,

es lag wirklich an der Integerdeklaration.
mfg
darehannes

[eknori]

Schade, daß der Debugger noch nicht erfunden wurde ...

[m3]

Ja, der wäre in solchen Fällen wirklich praktisch. 

[klaussal]

Soll angeblich in Release 8 noch eingebaut werden...

[eknori]

Ich habe ihn in meinem Client an einer recht versteckten Stelle unter "Datei" gefunden. Muss wohl schon länger da sein ...