Datumswerte mit Script vergleichen

[wuschel]

und gleich noch ne Frage:
beim Exiting möchte ich einen Datumswert (Eingangsdatum) überprüfen und dabei mit einem anderen Datumswert (Kundenschreibendatum) vergleichen. Leider steigt mit LN dabei immer aus mit TYPE MISMATCH. Was mach ich falsch (auch CDAT hilft übrigens nicht) ?



   Dim workspace As New notesuiworkspace
   Dim uidoc As notesuidocument
   Dim doc As notesdocument
   Set uidoc      =   workspace.currentdocument
   Set doc         =   uidoc.document
   
   doc.Eingangsdatum_valid=True
   If Date<doc.Eingangsdatum(0) Then
      Msgbox "Datum darf nicht in der Zukunft liegen"
      doc.Eingangsdatum_valid=False
      uidoc.gotofield("Eingangsdatum")
   End If
   If Year( doc.Eingangsdatum(0) )<2003 Then
      Msgbox "Eingangsdatum darf nicht vor 2003 liegen"
      doc.Eingangsdatum_valid=False   
      uidoc.gotofield("Eingangsdatum")
   End If
   If doc.Eingangsdatum(0) < doc.Kundenschreibendatum(0) Then
      Msgbox "Eingangsdatum darf nicht kleiner als Kundenkontaktdatum sein"
      doc.Eingangsdatum_valid=False   
      uidoc.gotofield("Eingangsdatum")
   End If
End Sub

[koehlerbv]

Du, wir helfen Dir hier gerne, aber wir haben keine Zeit, Deinen Code erstmal bis ins letzte zu analysieren.
In Fällen wie Deinem: Bitte unbedingt die Zeile angeben, in der Dir der Debugger anzeigt, dass ihm was nicht passt - da tun wir uns dann viel leichter.

Hast Du Option Declare vereinbart?
Wo setzt Du den Wert von Date ?

Weiterer Tip: Bevor Du Datumswerte aus Items vergleichst, prüfe immer vorher ab, ob die Items überhaupt Datumswerte enthalten (Isdate).

Schick' mal fix die Angabe, wo der Fehler genau auftritt, dann wird Dir geholfen.

So long,
Bernhard

[wuschel]

Sorry,
hatte bisher schon häufiger gelesen, dass neben der Problembeschreibung auch der Code aufgeführt werden sollte.
Aber Du hast natürlich recht, dass das noch nicht reicht und ein paar mehr Angaben nötig gewesen wären.
Auf der anderen Seite war der Tip mit isdate genau das, was mir fehlte und damit ist mein Problem auch gelöst.
Also DANKE

[koehlerbv]

Sag mal genaueres - es könnte ja den nächsten helfen ...
Hat Dir auch Option Declare genützt (muss es ja, denn ohne dem sollte man nicht eine Zeile Code anfangen zu schreiben) ?

So long,
Bernhard