title image


Smiley Datumsvergleich in Skript
Hallo,

möchte zwei Daten in Skript miteinander vergleichen. Aktuelles Datum mit einem Fristdatum, wenn das aktuelle Datum größer dem Fristdatum ist, soll ne Aktion erfolgen. Habe dazu unten aufgeführtes Skript geschrieben. Funktioniert aber nicht richtig. Sobald der Tag größer ist als der Tag im Fristdatum wird bereits die Aktion ausgeführt, obwohl Monat und Jahr viel später liegen. Also z.B. Aktuelles Datum 16.03.2004 Fristdatum 10.4.2005, Aktion wird ausgeführt, obwohl sie nicht soll. Setz ich aber statt des Größer-Zeichens ein Gleich-Zeichen (also Curdate = Checkdate, statt Curdate > Checkdate funktioniert es einwandfrei, nur wenn die Daten exakt gleich sind. Funktioniert bei Datumswerten kein kleiner-größer-Vergleich oder wo liegt mein Fehler??

Many thanx

Schmikl



Dim s As New NotesSession

Dim db1 As NotesDatabase

Dim searchview As NotesView

Dim configview As NotesView

Dim dc As NotesDocumentCollection

Dim maildoc As NotesDocument

Dim configdoc As NotesDocument

Dim newdoc As NotesDocument

Dim curdoc As NotesDocument

Dim rtitem As NotesRichTextItem

Dim sendToItem As NotesItem

Dim TimeLimitItem As NotesItem

Dim LimitDate As NotesDateTime

Dim dateTime As New NotesDateTime( "" )

Dim richStyle As NotesRichTextStyle

Set richStyle = s.CreateRichTextStyle

Dim curdate As Variant

Dim checkdate As Variant



Call dateTime.SetNow

curdate=dateTime.DateOnly

Set db1 = s.CurrentDatabase

Set searchview = db1.GetView("ghv_dur")

Set dc = searchview.GetAllDocumentsByKey("GHV")

If dc.Count > 0 Then

Set searchdoc = dc.GetFirstDocument

While Not (searchdoc Is Nothing)

endmonth = searchdoc.GetItemValue( "fdMonth_End" )

endyear = searchdoc.GetItemValue( "fdDuration" )

checkkom = searchdoc.GetItemValue( "RememberSent" )

If checkkom(0) ="" Then

'Das Feld heranziehen

Set TimeLimitItem = searchdoc.GetFirstItem("fdExpireDate" )

'Den Datumswert auf eine Datumsvariable legen

Set LimitDate = TimeLimitItem.DateTimeValue

'Nur das eigentliche Datum auslesen und auf eine Variable legen

checkdate = LimitDate.DateOnly



If curdate > checkdate Then

searchdoc.RememberSent = "ja"

.... usw

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: