Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Blackraven am 11.08.04 - 10:40:21

Titel: Datum & Uhrzeit vergleichen
Beitrag von: Blackraven am 11.08.04 - 10:40:21
Möchte mein aktuelles Datum & Uhrzeit mit 2 Feldern eines Dokumentes vergleichen.

wenn also das Datum aus meinem Dokument mit dem aktuellen Datum übereinstimmt,  und die Uhrzeit aus dem Dokument "<" ist als die aktuelle Uhrzeit, soll ne Messsage raus gehen.

Wie könnte ich das anstellen?


Titel: Re:Datum & Uhrzeit vergleichen
Beitrag von: elajen am 11.08.04 - 10:53:06
Hallo,

Möchtest du mit Formeln oder mit Script arbeiten?

Gruß von Ekki
Titel: Re:Datum & Uhrzeit vergleichen
Beitrag von: Blackraven am 11.08.04 - 11:13:13
mit Script
Titel: Re:Datum & Uhrzeit vergleichen
Beitrag von: Doc am 11.08.04 - 11:17:25
Schöne Frage, mich würde die Lösung mit Formeln interessieren.

Gruss
Titel: Re:Datum & Uhrzeit vergleichen
Beitrag von: Driri am 11.08.04 - 11:20:30
Mit Formeln ist das einfach :

@If(@Date(@Now)=Datumsfeld & @Time(@Now)>Zeitfeld; @Mailsend...; "")
Titel: Re:Datum & Uhrzeit vergleichen
Beitrag von: rar am 11.08.04 - 11:26:34
In Script mußt du die nur 2 DateTimes erstellen
Eines mit dem jetzigen Datum
Dim dtJetzt As New NotesDateTime(Now)

und eines mit dem Datum und der Zeit deiner Felder
Dim dtDoc As New NotesDateTime(doc.DatumsFeld(0) + " " + doc.ZeitFeld(0))

Das Datum kannst du dann mit
if dt.Jetzt.DateOnly = dtDoc.DateOnly then
vergleichen und die Zeit mit .TimeOnly

HTH
Titel: Re:Datum & Uhrzeit vergleichen
Beitrag von: elajen am 11.08.04 - 11:27:04
mit Scipt kannst du die Formel von Driri nehmen und mit evaluate auswerten.

if evaluate( "If( @Date(@Now)=Datumsfeld & @Time(@Now)>Zeitfeld; 1; 0 )" )(0) = 1 then call doc.Send( false )

Eleganter geht's aber auch

Edit -> siehe rar

Gruß von Ekki
Titel: Re:Datum & Uhrzeit vergleichen
Beitrag von: Blackraven am 11.08.04 - 13:38:40
Habs mit dem Script hinbekommen, er hat vorher immer die Formate durcheinander geworfen.

Die Declaration im Script muss korrekt aber so aussehen:

Dim dtDoc As New NotesDateTime(doc.DatumsFeld(0) & " " & doc.ZeitFeld(0))


Danke an alle die geholfen haben :-)