Domino 9 und frühere Versionen > Entwicklung

Datumsproblem

<< < (5/6) > >>

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

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete