Memisahkan Nilai Tanggal, Bulan dan Tahun pada TDate

Trik mengambil nilai terpisah (memecah) “tanggal”, “bulan” dan “tahun” dari input bertipe TDate.

Deklarasi fungsi:

type
  rDate = record
    cTanggal: Byte;
    cBulan: Byte;
    cTahun: Integer;
  end;

function PisahTanggal(Tanggal: TDate): rDate;
var
  tgl,bln,thn: Word;
begin
  DecodeDate(Tanggal, thn, bln, tgl);
  with Result do
  begin
    cTanggal:= tgl;
    cBulan:= bln;
    cTahun:= thn;
  end;
end;

Contoh implementasi:

procedure TForm1.Button1Click(Sender: TObject);
var
  D: rDate;
begin
  D:= PisahTanggal(DateTimePicker1.Date);
  with Memo1.Lines do
  begin
    Clear;
    Add('Tanggal = ' + IntToStr(D.cTanggal));
    Add('Bulan = ' + IntToStr(D.cBulan));
    Add('Tahun = ' + IntToStr(D.cTahun));
  end;
end;

Output:

Sample Output