3 (2241)

Rozdział 10. ♦ Komponenty do wyboru daty i czasu TDateTimePicker i TMonthCaiendar 119

Przykład 10.4.

Oblicz, ile czasu w godzinach, minutach i sekundach (z dokładnością do 1 s) upłynęło od czasu ustawionego w DateTirrtePi ckerze do chwili obecnej.

Ustaw właściwość komponentu TDateTimePicker: Kind=dtkTime.

procedurę TForml.ButtonlClickCSender: TObject): var czasDTP. czasakt, różnica: TDateTime;

godz,min.sek.msek: word; begin

czasakt:=Time;

czasDTP:=DateTimePickerl.Time;//pobranie czasu ustawionego w DatetimePikerze if czasakt>=czasDTP then różnica:=czasakt-czasDTP else

różnica:=ABS(czasakt-czasDTP):

DecodeTi me(rożni ca.godz,mi n,sek,msek);

Label3.Caption:='Czas aktualny:    ’+TimeToStr(czasakt);

Label4.Caption:='Czas z DateTimePickera: '+ TimeToStr(DateTimePickerl.Time): Label2.Caption:='Różnica między czasem ustawionym w DTP'+#13+'a czasem aktualnym'+

wynosi: '+1nttoStr(godz)+'godz. '+InttoStr(min)+'min, '+InttoStr(sek)+'sek':

end:

Wyniki z dokładnością do 1 s można uzyskać wpisując dodatkowe instrukcje: po instrukcji czasakt :=Time:

DecodeTime(czasakt.godz,min,sek.msek); //dekodowanie i ponowne tworzenie daty czasakt:=EncodeTime(godz,min.sek.O): //ma na celu usunięcie milisekund

i po instrukcji czasDTP:=DateTimePickerl .Time:

DecodeT i me(czasDTP,godz.mi n,sek,msek); czasDTP:=EncodeTi me(godz.mi n,sek,O):

Przykład 10.5.

Po każdej zmianie daty w komponencie TDateTimePicker wyświetl na etykiecie tę datę w formacie, takim jak np.: 24 marca 2006 — rysunek 10.2.

WtForml

Wybrano datę 25 lipca 2006

25.07.2006						3
D		lipiec 2006
Pn	Wt	Śr	Cz	Pt	So	N
					1	2
3	4	5	6	7	8	9
10	11	12	13	14	15	16
17	18	19	20	21	22	23
24 <j§H 26 3!			27	28	29	30

Rysunek 10.2.

Komponent TDateTimePicker ze sformatowaną niestandardowo datą

ćftlDziś: 2006-07-25