Перевод Variant в TDate

← →
alsov © (2005-11-14 12:21) [0]

Приветствую, Мастера

Вот такой вроде простой вопрос, но не получается решить.
Есть вариант, содержащий TDatetime. Надо преобразовать енту радость в дату, чтоб сделать сравнение

← →
Digitman © (2005-11-14 12:24) [1]

var
dt: TDatetime;
v: Variant;
..

dt := v;

← →
alsov © (2005-11-14 12:46) [2]

и получу в dt ещё и время
а надо только дату

← →
DesWind © (2005-11-14 12:50) [3]

DT:=Trunc(v)

все разрулил
надо просто дробную часть отбросить
то есть
function TruncTime(ADatetime: TDateTime): TDateTime; begin Result := Trunc(ADatetime); end;

Перевод Variant в TDate Найти похожие ветки