Как прибавить год к текущей дате

[Serge_Bliznykov]

Модуль DateUtils как сказал Andrei и так есть

диалектически надо подходить:
у кого есть, а у кого и нет...
в Delphi5 (которой я пользуюсь) такого нет.

впрочем. Какая разница - есть - значит хорошо!

Я просто хотел проиллюстрировать что будет выводиться, для даты 29.02.2008 если добавить год — будет последнее число месяца, то бишь: 28.02.2009...

[Bigtyoma]

Подскажите мне как лучше мне написать

if DateTimePicker1.Date = Now then....

так? или как надо правильно? и вот что написать после then?

[XuTpbIu]

if DateTimePicker1.Date = Now then
 DateTimePicker1.Date := IncYear(Now);

Примерно так. Но это только если тебе допустим надо только 1 раз увеличить, а если каждый раз по нажатию кнопки то пропиши только вторую строку.
В самом верху проекта в блоке uses пропиши ещё 1 модуль DateUtils. Если используешь Delphi 7, а если у тебя Delphi5, то используй JEDI как советовал выше Serge_Bliznykov

[Serge_Bliznykov]

Bigtyoma, внимание. Наступаете на грабельки!
поставьте данный код на кнопочку и понажимайте на неё:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if DateTimePicker1.Date = Now then
    Application.MessageBox('Дата равна сегодняшней','info',MB_OK)
  else
    Application.MessageBox('Дата НЕ РАВНА сегодняшней','info',MB_OK)
end;

Всё время - дата не равна?! Догадываетесь почему?...
время мешает сравнивать даты..

А надо вот так:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Trunc(DateTimePicker1.Date) = Trunc(Now) then
    Application.MessageBox('Дата равна сегодняшней','info',MB_OK)
  else
    Application.MessageBox('Дата НЕ РАВНА сегодняшней','info',MB_OK)
end;

[Bigtyoma]

Ну а вот если я сделаю вот так:

if DaysBetween(Now,DateTimePicker1.Dat eTime) = 0 then...

[Serge_Bliznykov]

Bigtyoma, да, так, на мой взгляд, будет хорошо!

[Рудзфельд]

Народ, как из текущей даты вывести только год (например из даты 6.05.2011 получить 2011)?
Пробовала использовать функции: =Year(Now()), но что-то совсем не то выводится. Это VBA, Access 2007.

[FaTaL]

Вот так например:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShortDateFormat := 'yyyy';
  ShowMessage (DateToStr(now));
end;

[Serge_Bliznykov]

FaTaL, категорически не согласен!
Зачем менять формат даты, чтобы получить год?!

варианты.
1)

procedure TForm1.Button1Click(Sender: TObject);
var dt : TDatetime;
begin
  dt := now;
  Button1.Caption := FormatDateTime('yyyy', dt);

end;

2-й вариант.
использовать DecodeDate()

procedure DecodeDate(const DateTime: TDateTime; var Year: Word; var Month: Word; var Day: Word);

3-й вариант.
использовать вышеупомянутый DateUtils:

uses DateUtils;
...
var MyYear : word;
...
begin
   MyYear := YearOf(Now);