Menampilkan Tanggal dari Awal sampai Akhir dengan Delphi

Berikut adalah contoh menampilkan tanggal bisa dalam satu bulan atau lebih sesuai kemauan atau keperluan. Misal kita ingin menampilkan dimulai dari tanggal 1 sampai 30,maka cuma dengan hanya menentukan batas awal dan batas akhir dari tanggal yang mau dicari,otomatis akan menggenerate.

Ini biasanya diperlukan dalam pembuatan aplikasi yang salah satunya membuat laporan Pertanggal misal Laporan Absensi. Dan ini adalah codingnya :

implementation
uses DateUtils;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
    diff : Double;
    x,y : integer;
begin
ListBox1.Clear;
diff := DateTimePicker2.Date - DateTimePicker1.Date;

if diff < 0 then
abort else
begin
       if diff = 0 then
       ListBox1.Items.Add(DateToStr(DateTimePicker1.Date))
     else
     begin
      y := 1;
      ListBox1.Items.Add(DateToStr(DateTimePicker1.Date));
      for x := 1 to StrToInt(FloatToStr(Int(diff))) do
        begin
        ListBox1.Items.Add(DateToStr(IncDay(DateTimePicker1.Date, y)));
        y:=y+1;
        end;
       end;
     end;

end;

Harap diperhatikan baik" coding di atas,karena itu hanya contoh dan bisa dimodif sesuai kemauan !! Terima kasih......

Posted by Antas Delphi on - Rating: 4.5

Title : Menampilkan Tanggal dari Awal sampai Akhir dengan Delphi
Description : Berikut adalah contoh menampilkan tanggal bisa dalam satu bulan atau lebih sesuai kemauan atau keperluan. Misal kita ingin menampilkan dimul...