DbGrid içindeki tarih verisine 1 yıl eklemek

[neriamelih]

Merhabalar dbgride adoconnecttion ile bir access tablosu bağladım. Bu tabloda "Geçerlilik Tarihi" adında bir veri var ve ben bir speedbuttona bastığımda tablodaki seçili tarihe 1 yıl gibi bir süre eklemek istiyorum fakat başarılı olamadım? Benim hata almadığım tek kod bu şekilde fakat bunda da integeri tdate yapmalıyım sanırım onu beceremedim.

procedure SureEkle;
var
   tarih: Integer;
begin
    tarih:=0;

    tarih:=365+Form2.ADOTable1.FieldByName('Geçerlilik Tarihi').AsInteger;



    Form2.ADOTable1.Edit;
    Form2.ADOTable1.FieldByName('Geçerlilik Tarihi').AsInteger:=tarih;
    Form2.ADOTable1.Post;

[3ddark]

Incyear(Form2.ADOTable1.FieldByName('Geçerlilik Tarihi').AsDatetime, 1);

Form2.ADOTable1.FieldByName('Geçerlilik Tarihi').AsDatetime :=yukarıda hesaplanan tarih

[enigma]

Başıma geldi. Bu gibi +1 yıl sonrası gibi hesaplamalarda o yılın 365 yada 366 çekmesi sebebi ile + yada - 1 gün fark edebiliyor. Bazı uygulamalarda özellikle SKT bilgisi yazılacaksa buna dikkat etmenizi öneririm.