Текущий архив: 2005.12.04;
Скачать: CL | DM;
Вниз
Перевод 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)
← →
DesWind © (2005-11-14 12:51) [4]DT:=Trunc(v)
← →
alsov © (2005-11-14 12:58) [5]все разрулил
надо просто дробную часть отбросить
то есть
function TruncTime(ADatetime: TDateTime): TDateTime;
begin
Result := Trunc(ADatetime);
end;
Страницы: 1 вся ветка
Текущий архив: 2005.12.04;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.043 c
