|
#1
|
|||
|
|||
DateTimePicker
здравствуйте, кто знает как можно программно изменить дату на 3 года вперед?
например если сейчас: 21.12.2011 то нужно сделать 21.12.2014 т.е. не просто присвоить, а именно увеличить на некое кол-во Последний раз редактировалось Den-is, 21.12.2011 в 10:38. |
#2
|
||||
|
||||
Код:
type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; procedure FormCreate(Sender: TObject); procedure TForm1.FormCreate(Sender: TObject); var today: TDate; begin today:=Now; Edit1.Text:=DateToStr(today); today:=IncYear(today, 3); Edit2.Text:=DateToStr(today); end; Пишу программы за еду. __________________ |
#3
|
|||
|
|||
Спасибо огромное за помощь!
|
#4
|
|||
|
|||
Пишет Undeclared identifier 'IncYear' почему?????
|
#5
|
||||
|
||||
Цитата:
Google в помощь |
#6
|
|||
|
|||
Спасибо!!!!
|