Модуль: System

Описание
Функция преобразовывает значение типа TDateTime в значение типа Variant, содержащее дату и время (TvarData.VarType=varDate).

Пример
var
   V: Variant;
   D: TDateTime;
begin
   D:= Now;
   V:= VarFromDateTime(D);
   MessageDlg( V, mtInformation, [mbOk], 0);
end;