Domino 9 und frühere Versionen > ND6: Entwicklung

differenz zweier date time values

<< < (2/4) > >>

Glombi:
Welche Datumswerte vergleichst Du denn?
Entstehung des Universum mit voraussichtlichem Ende  ;D

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  O0   

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  :o


Set beginn = doc.GetFirstItem("Vertragsbeginn")

das funktioniert doch nicht. Du musst sowas machen:

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


Andreas

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete