Как получить текущее время в delphi?
2 ответа
от
Programmer ,
3 года назад
@jorge Приветствую!
Для получения текущего времени можно использовать функцию Now, возвращает она инфу в формате TDateTime
Т.е. из нее можно вытащить и дату и текущее время, пример:
1 2 3 4 5 6 |
var
Time: TTime;
begin
Time:= Now; //забрали текущее время в нужную нам переменную
end;
|
от
jensen ,
2 года назад
@jorge
Пример получения текущего времени в Delphi:
- Использование функции Now из модуля DateUtils:
1 2 3 4 5 6 |
var currentTime: TDateTime; begin currentTime := Now; ShowMessage(TimeToStr(currentTime)); end; |
- Использование функции GetTime из модуля SysUtils:
1 2 3 4 5 6 7 8 |
var currentTime: TDateTime; hour, minute, second, millisecond: Word; begin GetTime(hour, minute, second, millisecond); currentTime := EncodeTime(hour, minute, second, millisecond); ShowMessage(TimeToStr(currentTime)); end; |
Обе функции возвращают текущее время в формате TDateTime, который можно преобразовать в нужный формат с помощью функции TimeToStr.
15