| DrilLer |
| Отправлено: 14.09.2003, 15:33 |
|
Ученик-кочегар
Группа: Участник
Сообщений: 10
|
Люди как перелиснуть дану на месяц или более вперёд ?
только не надо предлагать к текущей прибавить 30 или 31 день т.к. происходит смещение.
Может есть что нибудь как нибудь что бы только месяца изменять не трогая число ? |
|
| Vaska |
| Отправлено: 14.09.2003, 19:15 |
|
Не зарегистрирован
|
Воспользуйся функцией DecodeDate, прибавь/убавь месяц, а потом EncodeDate |
|
| Gedeon |
| Отправлено: 15.09.2003, 09:40 |
|
Ветеран
Группа: Модератор
Сообщений: 1742
|
Конкретно прибавить месяц можно с помощью ф-ции IncMonth()
| CODE |
#include "SysUtils.hpp"
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Edit1->Text = IncMonth(Date(),2);
}
//---------------------------------------------------------------------------
|
В эдит1 к текущей дате будет прибавлено 2 месяца, соответственно второй аргумент ф-ции
И поччитай в хелпе там много таких ф-ций для дня, секунды, минуты, года и т.д.
|
|
