Текущий архив: 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.033 c