Функция VarToDateTime( const V: Variant ): TDateTime;
Модуль: System
Описание
Функция конвертирует значение даты и времени типа Variant в значение типа TDateTime. Если преобразование по какой-либо причине невозможно, то возникает исключение EVariantError.
Пример var
V: Variant;
D: TDateTime; begin
V:= '17.03.99';
D:= VarToDateTime(V);
D:= D+1; // Увеличивает значение даты на 1 день
V:= VarFromDateTime(D); // V:= 18.03.99
MessageDlg( V, mtInformation, [mbOk], 0); end;