Узнать текущее время и дату

Автор:

Очень просто. Существует функция Time в модуле SysUtils.

function Time: TDateTime;

Возвращает функция значение типа TDateTime. А его преобразовать в строку? Так же просто:

var s:String;
s:=TimeToStr(SysUtils.Time);

Существует и обратная операция:

var T:TTime;
T:=StrToTime('13:15:25');

Аналогичные операции можно проделать и с датой:

function Date: TDateTime;

Преобразовать в строку:

var s:String;
s:=DateToStr(SysUtils.Date);

Так же существует и обратная операция:

var D:TDate;
D:=StrToDate('10.08.2008');

Просмотров: 24412

Обсудить на форуме

Copyright © 2008 - 2018 Программирование на Delphi для начинающих и не только.

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам.

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации.