Fungsi DecodeDateTime

Fungsi DecodeDateTime hampir sama dengan DecodeDate. Perbedaannya, DecodeDateTime juga memisahkan Waktu (Time) dari data bertipe TDateTime juga. DecodeDateTime juga berada di unit tersendiri, yaitu DateUtils. Jangan lupa menyertakan DateUtils di baris Unit.

Sintak:
DecodeDateTime(DataWaktu, Tahun, Bulan, Tgl, Jam, Menit, Detik, MiliDetik)

DataWaktu bertipe TDateTime, sedangkan data lainnya bertipe Word.

Program contoh berikut ini akan membuat program ditutup dalam waktu tiga detik.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, DateUtils;
var
  WaktuSekarang : Word;
  Thn, Bln, Tgl, Jam, Menit, Detik, DetikMulai,MiliDetik, DetikKeluar : Word;
  keluar : boolean;
begin
  try
    Writeln('Program ini akan ditutup dalam 3 Detik');
    Writeln('========================================');
    DecodeDateTime(Now, Thn, Bln, Tgl, Jam, Menit, DetikMulai, MiliDetik );
    Write('Waktu Mulai: ', Jam, ':', Menit, ':', DetikMulai);
    Writeln('');

    keluar := false;
    DetikKeluar := 3;
    repeat
        DecodeDateTime(Now, Thn, Bln, Tgl, Jam, Menit, Detik, MiliDetik );

        if Detik >= (DetikMulai + DetikKeluar) then
            keluar := true

    until keluar = true;

  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.

Fungsi DecodeDateTime 2018-10-31T13:49:00+07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer