Hallo,
ich habe auf meiner Form 3 DateTimePicker:
DateTimePicker_DATUM --> Kind: date (aktuelles Datum)
DateTimePicker_VON, DateTimePicker_BIS --> kind time (Start- und Endzeit), voreingestellt: 00:00:00
Ich möchte nun, bevor das Formular abgeschickt wird, dass alle 3 Felder auf gültiges Datum und Uhrzeit geprüft werden, und evtl. eine Meldung kommt, wenn dies eben nicht zutriftt.
Habe nun folgendermaßen angefangen:
Delphi-Quellcode:
if TimeToStr(DateTimePicker_VON.Time) = '00:00:00' then begin
if TimeToStr(DateTimePicker_BIS.Time) = '00:00:00' then
ShowMessage('Bitte überprüfen Sie Start- und Endzeit!');
ShowMessage('Bitte überprüfen Sie die Startzeit!')
end
else if TimeToStr(DateTimePicker_BIS.Time) = '00:00:00' then
ShowMessage('Bitte überprüfen Sie die Endzeit!')
else if Trunc(DateTimePicker_DATUM.Date) = Date then begin
MessageBox(0, 'Soll als Datum das heutige Datum eingetragen werden? Wählen Sie NEIN um das Datum zu ändern!',
'Datumsbestätigung', MB_ICONWARNING or MB_YESNO)
end;
Das ist so noch nicht ganz korrekt, ich weiß. Habe es auch nicht weiter verfolgt, weil mir das zu umständlich erscheint. Zu diesen Meldungen soll dann z.B. auch noch eine Meldung angezeigt werden, wenn die BIS-Zeit VOR der VON-Zeit ist usw. Also alles sehr unübersichtlich mit den ganzen IF-Anweisungen. Gibt es nicht eine Möglichkeit, für alle Bedingungen nur EINE Messagebox anzuzeigen? Also die Meldungen irgendwie anzuhängen? Dies stelle ich mir folgendermaßen vor:
1. Die Startzeit ist nicht korrekt.
2. Die Endzeit ist nicht korrekt.
3. Die Endzeit liegt vor der Startzeit.
Ich habe keine Ahnung wie
Ich hoffe, ihr versteht mein Problem!!
Danke schoneinmal für eure Hilfe!!!