Registriert seit: 1. Dez 2004
Ort: im Wald von Thüringen
75 Beiträge
Delphi 6 Enterprise
|
Min-/Max-Problem mit DateTimePicker / Rundung von Datum
18. Dez 2004, 15:20
Hallo!
Ich habe ein kleines Problem mit der Min/Max-Einstellung des Datums für einen DateTimePicker...
Ich hole mir aus einer Datenbank ein Datum.
Dieses plus 1 soll das maximale Datum des TDPicker sein.
Das minimale Datum soll ein durch "now" oder einen vorhergehenden DTPicker bestimmtes Datum ebenfalls addiert mit eins sein.
Dann soll dem DateTimePicker das maximale Datum zugewiesen werden.
Soweit, so gut. Ein Problem bekomme ich nur, wenn das maximale Datum zufällig gleich dem minimalen Datum ist.
Da das minimale Datum ein genuer Wert, mit Minuten und Sekunden-Wert ist (Bsp. 38387.124), und das Datum aus der Datenbank nur das Datum ohne Minuten, usw enthält (Bsp. 38387) kommt es zwingend zum Fehler. Der Wert ist ja dann kleiner als der kleinstmögliche...
Jetzt die eigentliche Frage. Wie runde ich ein TDateTime bzw. TDate genau auf den aktuellen Tag.
Es muss ja immer eine Abrundung sein.
Das Problem war mir bisher nicht bewusst, dumm nur, dass TDate eben auch die Time-Werte (Nachkommastellen) mitspeichert, was sowieso sinnlos ist...!
|