Ttime, Datetimepicker a porovnání časů – Delphi – Fórum – Programujte.com

Tak jsem při testování programu přítelkyní zjistil, že tam mám nefunkční řádky...

V programu jsou dva DateTimePicker-y, jeden na datum a jeden na čas. Program povolit odeslání objednávky jen do budoucna.


begin
if (TDate(now)<DateTimePicker_Zak1.Date) or ((TDate(now)=DateTimePicker_Zak1.Date) and (TTime(now)<DateTimePicker_Zak2.Time)) then

//osetreni data
begin
if MessageDlg('Opravdu chcete odeslat objednavku?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
showmessage('Vase objednavka byla prijata.');
ulozdata;
end;

end
else
showmessage('Ani my neumíme cestovat v čase. Zvolte budoucí datum.');
end;

Datum funguje v pohodě. Ale pokud si chci auto objednat dnes, tak ať zadám jakýkoli čas, program to vezme jako že tenč as ještě nenastal...

A když už jsem u toho.

Tohle funguje:
DateTimePicker_Zak1.Date:=Date;

Tohle nefunguje:
DateTimePicker_Zak1.time:=Time;

Proč ta druhá verze nefunguje a nenastaví přesný čas?

Jak na běžícím páse :-)
používej datetimetotimestamp tim se ti rozbalí tdatetime do ttimestamp a z ní vyhodnotíš z recordu položku time.
btw nedal mi tvůj dotaz a zkoušel jsem to i přímo a přiřazování mi to bere normálně (přes strtotime a obráceně), problém je jen dejme tomu u porovnávání u If, tak to tam převeď.

Ale nevěřim že si na to ještě nepřišel když je ve hře přítelkyně :-))