| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Перевод Variant в TDate [D7, WinXP]
alsov © (2005-11-14 12:21:00)Приветствую, Мастера
Вот такой вроде простой вопрос, но не получается решить.
Есть вариант, содержащий TDatetime. Надо преобразовать енту радость в дату, чтоб сделать сравнение
alsov (2005-11-14 12:58:00) [1]все разрулил
надо просто дробную часть отбросить
то есть
function TruncTime(ADatetime: TDateTime): TDateTime;
begin
Result := Trunc(ADatetime);
end;
DesWind (2005-11-14 12:51:00) [2]DT:=Trunc(v)
DesWind (2005-11-14 12:50:00) [3]DT:=Trunc(v)
alsov (2005-11-14 12:46:00) [4]и получу в dt ещё и время
а надо только дату
Digitman (2005-11-14 12:24:00) [5]var
dt: TDatetime;
v: Variant;
..
dt := v;
| |
