| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как сравнить две даты, высчитав кол-во дней? [D2005, XP]
Евгений Сальников © (2009-09-12 20:55:00)Всем Привет,
Есть две даты, в формате:
Едит1 ( 2009-09-12)
Едит2 ( 2009-11-05)
Как обработав две даты, вывести в Едит3 ( 54) ?
Евгений Сальников (2009-09-12 23:45:00) [21]
> Юрий Зотов © (12.09.09 21:23) [2]
Спасибо! Ох и Вася же я )))
KilkennyCat (2009-09-12 22:25:00) [22]
> Юрий Зотов © (12.09.09 21:23) [2]
а, я незаметил strToDate, извиняюсь....
KilkennyCat (2009-09-12 22:23:00) [23]Не уверен, что вышеданные советы учитываюь количество дней в месяцах, месяцев в году...
uses DateUtils
function DaysBetween(const ANow: TDateTime; const AThen: TDateTime): Integer;
Юрий Зотов (2009-09-12 21:23:00) [24]Edit2.Text := IntToStr(Trunc(StrToDate(Edit2.Text) - StrToDate(Edit1.Text)));
oldman (2009-09-12 21:05:00) [25]a3=a2-a1
| |
Страницы: 