problem beim rechnen mit datum

[ewald]

Hallo zusammen,

hab folgenden code um zu prüfen, ob ein Datum kleiner ist als das heutige:

--- start code
        .
        .
        .
   Dim heute As String
   heute$ = Today()   
   
   Messagebox "Heutiges Datum:  " +heute$,MB_OK+MB_ICONSTOP, BoxTitle$
   
   If doc.StartDateReq(0) < heute$ Then
      Messagebox MsgStartDatePast$,MB_OK+MB_ICONSTOP, BoxTitle$
      uidoc.gotofield("StartDateReq")
      Continue = False
      Exit Function      
   End If
----end code

Komischerweise funktioniert die Abfrage nur manchmal und ich kann einfach nicht nachvollziehen, warum manchmal nicht. D.h., die Fehlermeldung in der if kommt manchmal, obwohl das Datum definitiv nicht kleiner ist.
Hab ich da in dem Code irgendwo 'nen Bock drin?

Danke

Gruss ewald

[Axel]

Hi,

was steht denn, wenn die Fehlermeldung kommt im Feld StartDateReq drin.

Von welchem Typ ist den das Feld, Textfeld usw. ?


Axel

[Marinero Atlántico]

   
doc.StartDateReq(0) < heute$ Then

Du vergleichst Strings.
Versuch mal

Code

DateValue(docStartDateReq(0)) < today()

[Marinero Atlántico]

Von welchem Typ ist den das Feld, Textfeld usw. ?

Retuniert nicht durch die Kurzschreibweise immer String? Ich glaube ja.

[Axel]

Retuniert nicht durch die Kurzschreibweise immer String? Ich glaube ja.

Hi,

da bin ich mit nicht so sicher. Ich glaube das ist ein Variant-Typ.


Axel

[koehlerbv]

Die "Kurzschreibweise" gibt den passenden Datentyp zum Feld zurück. Ist das Feld also vom Type Datum/Zeit, dann wird ein Variant vom Typ 7 (Datum/Zeit) zurückgegeben.

Die Vergleiche, die Ewald anstellt, verstehe ich nicht. Der Datums/Zeitwert Today wird einem String zugewisen. Warum ?
Wenn der Feldinhalt doch vom Type String sein sollte (was man sowieso nicht machen sollte, wenn man sich die Datumswerte nicht nur noch anschauen möchte), dann kann der Vergleich auch nicht funktionieren, denn
"01.03.2005" < "28.02.2005"

Bernhard

[Marinero Atlántico]

Die "Kurzschreibweise" gibt den passenden Datentyp zum Feld zurück. Ist das Feld also vom Type Datum/Zeit, dann wird ein Variant vom Typ 7 (Datum/Zeit) zurückgegeben.

Nö. Ganz sicher.
Probier mal: Maske mit 1 Feld als Typ Datum/Uhrzeit. Stil Kalender/Uhrzeit Steuerelement.
Name des Feldes: Unbekannt

Das im QuerySave:

Code

Sub Querysave(Source As Notesuidocument, Continue As Variant)
	Dim doc As NotesDocument
	Set doc = Source.Document
	
	Print Datatype (doc.Unbekannt(0))	
End Sub

Das Print gibt 8 zurück. Es ist String. 
Ansonsten würde auch ein Error geworfen, da heute$ < wert_vom_Typ_Datum nicht geht. So strongly typed ist LotusScript.

Durch doc.getItemValue("xxx") wird hingegen immer der "richtige" Typ zurückgegeben.

[koehlerbv]

Also, bei mir ergibt das Datatype = 7. Hast Du Dein Feld "Unbekannt" auch gefüllt vor dem Testen, Axel ?

Bernhard

[Marinero Atlántico]

Ja.
Nachdem ich jetzt aber das Feld von Unbekannt in Test umbenannt habe, gibt er auch 7 zurück.
Jetzt geht es auch mit Unbekannt.
Weiss nicht was das war. Sorry und keine Absicht.
Hab die Felder aber gefüllt.

[ewald]

Thanks all,

mit DateValue und @Today funktionierts.

Gruss Ewald

[koehlerbv]

Das muss aber noch nicht unbedingt eine gute Idee sein: Wenn irgendeiner auf die Idee kommt, seine OS-Einstellungen auf amerikanisch zu setzen, hast Du in Deinem Textfeld einen String, den ein Client mit deutschen Einstellungen nicht interpretieren kann.

Datumswerte in Textfeldern sind immer dann eine schlechte Wahl, wenn man weiter mit ihnen rechnen möchte.

Bernhard

[Marinero Atlántico]

versuch bitte mal:

doc.StartDateReq(0) < today()

Vielleicht ist es ein Datumsfeld und der castet für den Vergleich mit String (heute$) automatisch?

[ewald]

@Bernhard,

die Datumswerte stehen nicht in einem Textfeld, sonder in Datumsfeldern.

Gruss Ewald

[koehlerbv]

Wozu brauchst Du dann DateValue ?

Bernhard