Как сравнить две даты, высчитав кол-во дней?

← →
Евгений Сальников (2009-09-12 20:55) [0]

Всем Привет,
Есть две даты, в формате:

Едит1 (2009-09-12)
Едит2 (2009-11-05)

Как обработав две даты, вывести в Едит3 (54) ?

← →
oldman © (2009-09-12 21:05) [1]

a3=a2-a1

← →
Юрий Зотов © (2009-09-12 21:23) [2]

Edit2.Text := IntToStr(Trunc(StrToDate(Edit2.Text) - StrToDate(Edit1.Text)));

← →
KilkennyCat © (2009-09-12 22:23) [3]

Не уверен, что вышеданные советы учитываюь количество дней в месяцах, месяцев в году...

uses DateUtils
function DaysBetween(const ANow: TDateTime; const AThen: TDateTime): Integer;

← →
KilkennyCat © (2009-09-12 22:25) [4]

> Юрий Зотов © (12.09.09 21:23) [2]

а, я незаметил strToDate, извиняюсь....

← →
Евгений Сальников (2009-09-12 23:45) [5]

> Юрий Зотов © (12.09.09 21:23) [2]

Спасибо! Ох и Вася же я )))

← →
Евгений Сальников (2009-09-12 23:57) [6]

Удалено модератором

← →
Евгений Сальников (2009-09-13 00:43) [7]

А как преобразовать 2009-09-12 в 12.09.2009 ?

← →
Германн © (2009-09-13 01:08) [8]

> Евгений Сальников (13.09.09 00:43) [7]
>
> А как преобразовать 2009-09-12 в 12.09.2009 ?

Читать хелп.
Начинать с StrToDate, далее по гиперссылкам.

← →
СовестьДМ © (2009-09-13 02:17) [9]

> Юрий Зотов © (12.09.09 21:23) [2]

как насчет EConvertError?

← →
Германн © (2009-09-13 02:24) [10]

> СовестьДМ © (13.09.09 02:17) [9]
>
>
> > Юрий Зотов © (12.09.09 21:23) [2]
>
> как насчет EConvertError?

Обработать как положено.

← →
СовестьДМ © (2009-09-13 02:27) [11]

> Германн © (13.09.09 02:24) [10]

за Зотова заступился типо?

← →
Германн © (2009-09-13 02:46) [12]

> СовестьДМ © (13.09.09 02:27) [11]

Спать, алкаш, спать!

← →
СовестьДМ © (2009-09-13 02:56) [13]

грубый ты
и откуда эта знания про алкашей???

← →
Anatoly Podgoretsky © (2009-09-13 06:19) [14]

> СовестьДМ (13.09.2009 02:56:13) [13]

В три часа ночи то.

← →
Юрий Зотов © (2009-09-13 09:36) [15]

> СовестьДМ © (13.09.09 02:17) [9]

> как насчет EConvertError?

Как обычно - если ввели не дату, то получим сообщение об ошибке и код не сработает.

Впрочем, я не буду возражать, если Вы вместо ламерских подколок снизойдете до того, что приведете здесь же пример обработки такой ситуации. После того, как проснетесь, конечно.

← →
Юрий Зотов © (2009-09-13 09:45) [16]

> Евгений Сальников (13.09.09 00:43) [7]

> А как преобразовать 2009-09-12 в 12.09.2009 ?

Преобразовывать надо не строку в другую строку, а строку в дату (тип TDate или TDateTime). Если исходная строка представляет дату в системном формате, то этот формат можно не указывать, а если в другом, то его надо явно указать. Поэтому существуют 2 варианта функции StrToDate, а детали и примеры см. в справке.

← →
СовестьДМ © (2009-09-13 12:51) [17]

> Юрий Зотов © (13.09.09 09:36) [15]

Ваш Мастерский сарказм неуместен
не так ли?

← →
Евгений Сальников (2009-09-13 13:49) [19]

> СовестьДМ © (13.09.09 12:51) [17]

Если это все, что Вы можете сказать (вместо того, чтобы показать новичку обработку ошибок ввода), то отвечаю: Ваш ламерский сарказм был неуместен тем более.

← →
Евгений Сальников (2009-09-13 14:55) [21]

Парни, не сортесь, объясните на примере пожалуйста!

Евгений Сальников (13.09.09 14:55) [21]
// Преобразует строку формата YYYY-MM-DD в дату function YYYY_MM_DD_ToDate(YYYY_MM_DD: string): TDate; var Settings: TFormatSettings; begin GetLocaleFormatSettings(GetThreadLocale, Settings); Settings.DateSeparator := "-"; Settings.ShortDateFormat := "yyyy-mm-dd"; Result := StrToDate(YYYY_MM_DD, Settings) end; procedure TForm1.FormClick(Sender: TObject); begin Caption := DateToStr(YYYY_MM_DD_ToDate(Edit1.Text)) end;

← →
Евгений Сальников (2009-09-13 15:36) [23]

> Юрий Зотов © (13.09.09 15:21) [22]

Спасибо, коротко и лаконично, дай бог вам Здоровья и еще раз с Праздником! Всем Спасибо за обучение!

А чего сокращенно?

Как сравнить две даты, высчитав кол-во дней? Найти похожие ветки