6 (1645)

54    Aplikacje w Delphi. Przykłady

Tabela 4.5. Inne funkcje związane z datą i czasem
Funkcja	Znaczenie
Datę	Zwraca bieżącą datę systemową.
Time	Zwraca bieżący czas systemowy.
Now	Zwraca bieżącą datę i czas.
DecodeDateCdata,rok,miesiąc .dzień)	Dzieli datę ze zmiennej data typu TDateTime na rok, miesiąc i dzień, i przypisuje do parametrów.
DecodeTim e(,czas,g,m.s,ms)	Dzieli czas ze zmiennej czas na godziny, minuty, sekundy i milisekundy, i przepisuje do parametrów.
EncodeDate(r,m,d)	Przekształca datę wyrażoną w postaci roku, miesiąca i dnia do postaci TDateTime.
EncodeTimelg,m.s.ms)	Przekształca czas wyrażony w postaci godzin, minut, sekund i milisekund do postaci TDateTime.
IncHour, IncMinute, IncSecond, IncMilliSecond	Funkcje zwracajączas typu TDateTime, powiększony odpowiednio o jedną godzinę, minutę, sekundę i milisekundę, jeśli nie podano dmgiego parametru. Posiadają dwa parametry: pierwszy to czas, drugi jest opcjonalny (domyślnie równy 1) i oznacza wartość inkrementacji. Funkcje nie zmieniają wartości parametru, jak np. funkcja Inc(i), lecz zwracają wartość po inkrementacji. Ważną cechą funkcji jest to, że np. po przekroczeniu 59 sekund dla funkcji IncSecond zwiększana jest liczba minut. Funkcje zwiększają zatem wartość całego czasu o jednostkę, np. IncSecond(Time), IncMinute(Time.lO). Funkcje te zdefiniowano w module DateUtils. Wykorzystanie funkcji przedstawiono w przykładzie 4.1.
IncDay, IncMonth, IncYear	Funkcje zwracają datę typu TDate lub TDateTime zwiększoną o wartość 1 lub inną będącą drugim parametrem (parametr opcjonalny), np. IncDay(Date) lub IncDay(Date,2).

Treść procedury obsługi kliknięcia przycisku:

procedurę TForml.Button4Click(Sender: TObject); begin

Label2.Caption:=TimeToStr(czas): // przekroczenie 59 sek powoduje dodanie minuty czas:=IncSecond(czas):    // moduł DateUtils

end;

W sekcji uses modułu zadeklaruj moduł o nazwie DateUtils. Moduł ten zawiera jeszcze inne funkcje związane z datą i czasem.

Systemowe separatory liczb i daty

W Delphi dostępne są funkcje i stałe, które umożliwiają odczytanie systemowych ustawień regionalnych, m.in. separatorów liczb dziesiętnych, daty, czasu, języka itp. Są to m.in.: Dęci mai Separator, DateSeparator, CurrencyDecimals. Sposób odczytu informacji o ustawieniach systemowych za pomocą tych funkcji opisano w przykładach.