|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Можно ли прибавлять или уалять дни или месяцы в дате?
Доброго времени суток! Как можно(если это вообще возможно) добавить например к дате 22.04.2011 + 24 дней = 16.05.2011?
Последний раз редактировалось makk, 13.05.2011 в 18:49. |
#2
|
|||
|
|||
Тема закрыта! Вопрос решился вот если кому то пригодится
var myDate : TDateTime; begin // Устанавливаем нашу дату как раз перед концом 2000 года myDate := EncodeDate(2000, 12, 30); ShowMessage('моя дата = '+DateToStr(myDate)); // Добавить 10 дней к этой дате myDate := IncDay(myDate, 10); ShowMessage('моя дата + 10 дней = '+DateToStr(myDate)); // Subtract 12 days from this date myDate := IncDay(myDate, -12); ShowMessage('моя дата - 12 дней = '+DateToStr(myDate)); end; моя дата = 30/12/2000 моя дата + 10 дней = 09/01/2001 моя дата - 12 дней = 29/12/2000 |
#3
|
||||
|
||||
Цитата:
PHP код:
|
#4
|
|||
|
|||
см модуль DateUtil
это возможно. Дело в том что дата/время в Delphi представляется числом типа float причем целая часть- это число суток, а дробная часть- соответственно доля суток от некоторой начальной даты.
Так что можете использовать любые матем операции (попробуйте извлечь из даты корень кв) Но лучше и проще использовать функции модуля DateUtil В вашем случае-IncDay. function IncDay(const AValue: TDateTime; const ANumberOfDays: Integer = 1): TDateTime; |
#5
|
|||
|
|||
см модуль DateUtil
это возможно. Дело в том что дата/время в Delphi представляется числом типа float причем целая часть- это число суток, а дробная часть- соответственно доля суток от некоторой начальной даты, в качестве которой принята дата 30 дек 1899г 00час 00мин.
Так что можете использовать любые матем операции (попробуйте извлечь из даты корень кв) Но лучше и проще использовать функции модуля DateUtil В вашем случае-IncDay. function IncDay(const AValue: TDateTime; const ANumberOfDays: Integer = 1): TDateTime; |