Модуль: 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;