Checken ob ein String wie TDate ist

[Daether]

Hi,
ich versuche momentan einen TerminKalender zu erstellen (einen einfachen). Ich habe ein Stringgrid in dem ich 3 Spalten habe für Datum, Uhrzeit und die Meldung.
Wenn nun diese Daten gespeichert werden, möchte ich, dass überprüft wird ob die Strings in der Datumsreihe ein Datum sind und die Strings in den Uhrzeitspalten auch einer Uhrzeit entsprechen.

Ein zweites Problem, dass ich habe, ist, dass ich nicht genau weiß, wie ich abfragen kann ob ein Datum, bzw. eine Uhrzeit schon "vorbei" ist. Also ob der 07.06.2006 schon war, ist oder kommt, gemessen an der Systemuhr.
MfG Daether

[mkinzler]

tryStrToDate()

[Martin K]

Zitat:

Zitat von Daether

Ein zweites Problem, dass ich habe, ist, dass ich nicht genau weiß, wie ich abfragen kann ob ein Datum, bzw. eine Uhrzeit schon "vorbei" ist. Also ob der 07.06.2006 schon war, ist oder kommt, gemessen an der Systemuhr.
MfG Daether

Ich denke mal, das müsste so gehen:

Delphi-Quellcode:

var Zeit, Datum: String;
{...}

//Datum:
if StrToDate(Datum) = Date then
  ShowMessage('Heute!')
else
if StrToDate(Datum) < Date then
  ShowMessage('Schon vorbei!')
else
  ShowMessage('Kommt noch!');

//Zeit:
if StrToTime(Zeit) = GetTime then
  ShowMessage('Jetzt!')
else
if StrToTime(Zeit) < GetTime then
  ShowMessage('Schon vorbei!')
else
  ShowMessage('Kommt noch!');

//Edit:
Code verbessert!
Dann klappt's auch mit dem aktuellen Tag!

//Edit2:
Code vervollständigt mit Datum und Zeit!

[Daether]

hi nochmal
das Prinzip verstehe ich dahinter nur verstehe ich nicht ganz wie ich GetTime erzeuge, bzw. deklariere.

Edit:
Date hat sich erledigt, das war einfach, nur verstehe ich weiterhin nicht wie ich das mit GetTime mache.

[SirThornberry]

GetTime? Zum ermitteln der aktuellen Zeit gibt es die Funktion "Time()" und zum ermitteln des Datums die Funktion "Date()".

Im übrigen sollte man 2 Datumswerte nicht mit "=" vergleichen weil Datumswerte Float-Werte sind und da kann es durchaus passieren das die Floatwerte verschieden sind aber trotzdem das gleiche Datum darstellen.

[Martin K]

Ob man Time oder GetTime für die aktuelle Uhrzeit verwendet, ist eigentlich egal.
Ich habe mich nur für GetTime entschieden, weil:

Zitat:

Zitat von Delphi-Hilfe

Delphi-Syntax:

function Time: TDateTime;
function GetTime: TDateTime;

Beschreibung

Time und GetTime geben die aktuelle Uhrzeit als Wert des Typs TDateTime zurück. Die beiden Funktionen sind vollständig identisch.

Hinweis: Time führt zu einem Konlikt mit der gleichnamigen Xlib-Funktion. Verwenden Sie deshalb in Linux- und plattformübergreifendem Code GetTime.

Zitat:

Zitat von SirThornberry

Im übrigen sollte man 2 Datumswerte nicht mit "=" vergleichen weil Datumswerte Float-Werte sind und da kann es durchaus passieren das die Floatwerte verschieden sind aber trotzdem das gleiche Datum darstellen.

Hm...
Ich dachte, gleiches Datum = gleicher Float-Wert.
Aber wie überprüft man denn sonst, ob zwei Datumsangaben identisch sind ?

[TBx]

Zitat:

Ich dachte, gleiches Datum = gleicher Float-Wert.
Aber wie überprüft man denn sonst, ob zwei Datumsangaben identisch sind ?

nicht ganz.
Bei gleichem Datum sind die Ganzzahligen Anteile gleich, also alles, was vor dem Dezimalkomma steht.

Der Vergleich ist dann einfach:

Delphi-Quellcode:

if trunc (Date1) = trunc (Date2) then
  showmessage ('Datum identisch!');

Älteres oder jüngeres Datum bekommt man analog dazu.

Hope it helps

onlinekater

[Martin K]

Zitat:

Zitat von onlinekater

Bei gleichem Datum sind die Ganzzahligen Anteile gleich, also alles, was vor dem Dezimalkomma steht.

Ja, das ist mir schon klar.

Deswegen habe ich ja auch deisen Code:

Delphi-Quellcode:

if StrToDate(Datum) = Date then

Denn StrToDate liefert NUR das Datum (ohne Zeit, also Zeit = 0:00) zurück, genauso wie die Funktion Date auch NUR das aktuelle Datum ohne die Zeitangabe zurückliefert.
Beides also ganze Zahlen :wink:

Da brauch man dann auch kein trunc mehr :!:

[TBx]

@Martin K: Deine Vorgehensweise des Vergleiches von StrToDate und Date ist schon ok, nur die Aussage

Zitat:

gleiches Datum = gleicher Floatwert

ist nicht korrekt, denn es gibt durchaus verschiedenen Floatwerte, die zum selben Datum passen.

Ich denke, das war ein allgemeiner Hinweis vonSir Thornberry.

btw die Aussage aus gleichen Floatwerten folgt gleiches Datum ist dagenen 100%ig richtig
Gruß

onlinekater

[Martin K]

Zitat:

Zitat von onlinekater

@Martin K: Deine Vorgehensweise des Vergleiches von StrToDate und Date ist schon ok, nur die Aussage

Zitat:

gleiches Datum = gleicher Floatwert

ist nicht korrekt, denn es gibt durchaus verschiedenen Floatwerte, die zum selben Datum passen.

Na gut, ich geb's ja zu.
Allgemein ist die Aussage nicht richtig.

Aber

Zitat:

Zitat von onlinekater

Ich denke, das war ein allgemeiner Hinweis vonSir Thornberry.

das denke ich nicht, da die Aussage sich auf meinen Code bezogen hat (dachte ich zumindest):

Zitat:

Zitat von SirThornberry

Im übrigen sollte man 2 Datumswerte nicht mit "=" vergleichen weil Datumswerte Float-Werte sind und da kann es durchaus passieren das die Floatwerte verschieden sind aber trotzdem das gleiche Datum darstellen.

Also nach wie vor, als Antowort auf die Problemstellung aus dem ersten Beitrag:

Zitat:

Zitat von Daether

Ein zweites Problem, dass ich habe, ist, dass ich nicht genau weiß, wie ich abfragen kann ob ein Datum, bzw. eine Uhrzeit schon "vorbei" ist. Also ob der 07.06.2006 schon war, ist oder kommt, gemessen an der Systemuhr.
MfG Daether

ist mein Code aus Beitrag #3 die Lösung.
Habe diesen Code mit mehreren Zeitwerten bzw. Datumswerten getestet und es funktioniert!

Ich möchte nur noch darauf hinweisen, dass die Überprüfung auf die aktuelle Uhrzeit nur für eine Sekunde pro Tag erfüllt ist,
wobei die Überprüfung auf das aktuelle Datum für einen ganzen Tag erfüllt ist.
So war es ja auch von Daether gedacht, nehme ich mal an.

MfG,
Martin