Fungsi Tanggal DecodeDate

DecodeDate digunakan untuk memecah data tipe TDateTime menjadi tahun, bulan, dan tgl. Variabel tahun, bulan, dan tgl harus berbentuk bertipe Word. Sintaknya adalah sebagai berikut:

DecodeDate(Tanggal, Tahun, Bulan, Tgl);

Sebagai contoh, dibawah ini saya akan membuat program kecil untuk mengetahui umur seseorang dengan meminta user memasukkan tahun kelahiran.

Now adalah fungsi bertipe TDateTime, untuk mengetahui tanggal saat ini. Saya membutuhkan tahun saat ini saja, sehingga saya memecah Now. Kemudian tahun hasil dari Now saya  kurangkan dengan tahun kelahiran yang dimasukkan.

program Umur;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  TahunLahir : Word;
  Thn, Bln, Tgl : Word;
  Umur : integer;
begin
  try
    Write('Masukkan Tahun kelahiran Anda: ');
    readln(TahunLahir);

    writeln('');

    DecodeDate(Now, Thn, Bln, Tgl);
    Umur := Thn - TahunLahir;

    write('Umur Anda: ', umur, ' tahun');

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

Fungsi Tanggal DecodeDate 2018-10-31T12:24:00+07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer