Datumsproblem

[Sillik]

Sub Click(Source As Button)
   Dim uiws As New notesuiworkspace
   Dim uidoc As notesuidocument
   Set uidoc = uiws.currentdocument
   Dim todaynow As New notesdatetime("date_1_1")
   Dim doccreated As New notesdatetime("date_1")
   Dim difference As Double
   
   difference = doccreated.timedifferencedouble(todaynow)
   
   Msgbox difference
End Sub

[Glombi]

Hi,
was soll

 Dim todaynow As New notesdatetime("date_1_1")
 Dim doccreated As New notesdatetime("date_1")

das denn sein?

Andreas

[Sillik]

Ich setze die notesdatetime felder mit den werten der datumsfelder. So stehts in der Hilfe. Ich hab noch keine erfahrung damit.

[Glombi]

Mit "date_1" kann Notes nichts anfangen, ein Wunder dass es überhaupt was zurückliefert.

Korrekt wäre:
Sub Click(Source As Button)
   Dim uiws As New notesuiworkspace
   Dim uidoc As notesuidocument
dim doc as NotesDocument
   Set uidoc = uiws.currentdocument
set doc = uidoc.Document
   Dim todaynow As New notesdatetime(doc.GetItemValue("date_1_1")(0))
   Dim doccreated As New notesdatetime(doc.GetItemValue("date_1")(0))
   Dim difference As Double
   
   difference = doccreated.timedifferencedouble(todaynow)
   
   Msgbox difference
End Sub

[Sillik]

So hauts hin, thx

[robertpp]

Hallo Glombi!!
das mit dem "Short Date" geht auch nicht!!

na vielleicht gibt es sonst noch eine lösung

robert