Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Приветствую, уважаемые эксперты! Помогите мне пожалуйсто! Необходимо определить дату и время! :(

Вопрос задал: Vollmond (статус: Посетитель) Вопрос отправлен: 19 февраля 2009, 17:27 Состояние вопроса: решён, ответов: 2.

Ответ #1. Отвечает эксперт: Ученый

Здравствуйте, Vollmond! все посто :

var
 d:TDateTime;
begin
d:=now;
 
label1.Caption :=FormatDateTime(' hh:nn:ss',d);// выведет в лабел время
 label2.Caption :=FormatDateTime(' dd,mm,yyyy',d); // выведет в лабел дату
end;

Ответ отправил: Ученый (статус: 8-ой класс) Время отправки: 19 февраля 2009, 17:31

Ответ #2. Отвечает эксперт: Amidamaru

Здравствуйте, Vollmond!
Текующую дату и время?
Тип: TDateTime - это тип одновременно включающий и дату и время.
Он определяется как TDateTime = type double;
Т.е. это число с плавающей запятой, где целая часть - количество дней (дата), а дробная часть - время ввиде части дня (0,5 = 12 часов; 0,25 = 6 часов и т.п.)
При этом 0 = 30.12.1899 12:00 am

Функции:
Date - возвращает текущую дату
Time - текущее время
Now - эквивалент Date+Time

EncodeDate и EncodeTime - из чисел (год месяц день час минта секунда милисекунда) генерируют TDateTime
DecodeDate и DecodeTime - обратные вышеуказанным

DateTimeToStr - преобразование TDateTime в сторку основного формата даты и времни системы
FormatDateTime - преобразование TDateTime в сторку по указанноу формату (см. справку по данной функции)

Существует ещё много функций работы с TDateTime в модуле DateUtils;

Ответ отправил: Amidamaru (статус: 4-ый класс) Время отправки: 19 февраля 2009, 17:41

Мини-форум вопроса

26 июня 2012, 12:43: Статус вопроса изменён на решённый (изменил модератор DNK)

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.