Menambah data format Tanggal

ada sebagian teman kesulitan untuk menambah data dengan type datetime atau type tanggal. sebagai contoh data tanggalnya adalah 20/08/2000 dengan ditambah 10 tahun maka hasilnya menjadi 20/08/2010
utnuk menyelesaikan ini maka kita harus membongkar type date menjadi type angka yaitu word, kemudian kita tambah tahunnya lalu kita kembalikan ke type date
fungsi untuk membongkar adalah decodedate
untuk mengembalikan  encodedate
Perhatikan contoh berikut :

• buat aplikasi baru
• tambahkan 2 edit
• tambahkan 1 button
• pada button1 berikan perintah dibawah ini

procedure TForm1.Button1Click(Sender: TObject);
var
tgl1,tgl2:tdatetime;
hari,bln,thn:word;
begin

tgl1:=date();
decodedate(tgl1,thn,bln,hari);
tgl2:=encodedate(thn+5,bln,hari);
edit1.Text:=datetostr(tgl1);
edit2.Text:=datetostr(tgl2);
end;