Разное
Облака / Clouds
The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>
time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Создание ярлыка на Рабочем столе
Категория: Приложение
Категория: Приложение
Как подключить или отключить сетевой диск
Категория: Интернет и Сети
Категория: Интернет и Сети
Быстрое копирование файлов
Категория: Файловая система
Категория: Файловая система
Как поместить графический элемент в ListBox
Категория: Компоненты
Категория: Компоненты
Как соединить несколько файлов в один
Категория: Текст и строки
Категория: Текст и строки
Пароль на ADO
Категория: Базы данных
Категория: Базы данных
Как получить код HTM страницы зная ее URL
Категория: Интернет и Сети
Категория: Интернет и Сети
Как соединить несколько файлов в один
Категория: Файловая система
Категория: Файловая система
Объект экрана — Screen
Категория: Компоненты
Категория: Компоненты
Изменить структуру ABS (AbsoluteDB)
Категория: Базы данных
Категория: Базы данных
Delphi - Справочник: TDateTime
TDateTime
|
type TDateTime = type Double; |
Тип (Unit System)
|
Тип данных содержащий значение даты и времени
|
Описание:
|
Тип TDateTime содержит значение даты и времени. Она сохраняется как переменная Double, с датой как целая часть, а время как дробная. Дата сохраняется как число дней с 30 декабря 1899. Не понятно, почему не 31 декабря. 01 января 1900 имеет значение 2. Поскольку TDateTime фактически является Double, то вы можете выполнять над ним вычисления, как будто это было число. Это очень полезно для вычислений типа разницы между двумя датами. |
Пример кода: Обнаружение различия между двумя датами
|
var day1, day2 : TDateTime; diff : Double; begin day1 := StrToDate('12/06/2002'); day2 := StrToDate('12/07/2002'); ShowMessage('day1 = '+DateToStr(day1)); ShowMessage('day2 = '+DateToStr(day2)); diff := day2 - day1; ShowMessage('day2 - day1 = '+FloatToStr(diff)+' days'); end;
Результат:
|
day1 = 12/06/2002 day2 = 12/07/2002 day2 - day1 = 30 days |
Примечание:
|
Никакая информация местного времени не содержится в TDateTime - только значения времени и дня. |