Cara Menentukan Tanggal yang akan datang Pada Delphi

Aplikasi yang bagus adalah aplikasi yang cerdas. Bisa melakukan hal-hal dengan cepat untuk meringankan beban kerja manusia. Begitulah tujuan dibuatnya sebuah aplikasi. Berikut Admin Ingin Sharing tentang cara Menentukan Tanggal yang akan datang.

Suatu misal Tanggal Hari ini adalah tanggal 20/01/2013. nah, kira-kira 1 minggu berikutnya tanggal berapa ? jika jarak hari berikutnya dengan tanggal hari ini masih dekat tentu kita masih bisa menghitunggnya. namun bagaiamana menentukan 2 bulan atau 6 bulan berikutnya tanggal berapa ? tentu kita akan sulit menghitungnya.

Tahap Pertama : Tambahkan DateUtils didalam Uses Sobat.

Uses
DateUtils;

Tahap Kedua : Desain Form Sobat Seperti ini (lebih bagus lebih baik)

Tahap Ketiga : Tambahkan Code ini didalam Button 3 Hari yang akan datang

var
myDate : TDateTime;
begin
myDate:=DateTimePicker1.Date;
myDate := IncDay(myDate, 3);
edit1.text:=DateToStr(myDate);
End;

Tahap Empat : Tambahkan Code ini didalam Button Seminggu yang akan datang (7 Hari)

var
myDate : TDateTime;
begin
myDate:=DateTimePicker1.Date;
myDate := IncDay(myDate, 7);
edit2.text:=DateToStr(myDate);
End;

Tahap Lima : Tambahkan Code ini didalam Button Satu Bulan yang akan datang (30 Hari)

var
myDate : TDateTime;
begin
myDate:=DateTimePicker1.Date;
myDate := IncDay(myDate, 30);
edit3.text:=DateToStr(myDate);
End;

Hasilnya Seperti Gambar Berikut :