DecodeTime
Модуль: SysUtils
procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);
Процедура разделяет параметры времени , сохраненные в Time к времени ( час ), мин ( мин ), второй ( Sec ) и миллисекунд ( мс ).
Образец:
1 2 3 4 5 6 7 8 9 10 |
procedure TMyForm.MyButtonClick(Sender: TObject); var wHour, wMin, wSec, wMSec : Word; begin DecodeTime(Now, wHour, wMin, wSec, wMSec); Label1.Caption := 'Aktualnie mija ' + IntToStr(wMin) + ' minuta godziny ' + IntToStr(wHour) + ' i ' + IntToStr(wSec) + ' sekundy'; end; |
Процедура часто полезна, когда нам нужно манипулировать данным компонентом времени.