Memecah tanggal dan waktu

Apabila anda ingin memecahkan tanggal dan waktu maka fungsi decodeDateTime sangat berguna untuk anda, dibawah ini adalah contoh kodenya.

procedure TForm1.Button1Click(Sender: TObject);
var
Thn, Bln, Hr, Jam, Mnt, Dtk, Sdtk : Word ;
begin
DecodeDate(Now, Thn, Bln, Hr);
DecodeTime(Now, Jam, Mnt, Dtk, sDtk );
ShowMessage('Milidetik : '+IntToStr(sDtk)+#10+#13+
'Detik : '+IntToStr(Dtk)+#10+#13+
'Menit : '+IntToStr(Mnt)+#10+#13+
'Jam : '+IntToStr(Jam)+#10+#13+
'Hari : '+IntToStr(Hr)+#10+#13+
'Bulan : '+IntToStr(Bln)+#10+#13+
'Tahun : '+IntToStr(Thn));
end;