TDateTime : Mengurai Jam & Tanggal

program Latihan102;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, sysutils, dateutils
  { you can add units after this };

// Mencoba menampilkan hari: Sunday Monday Tuesday ...

// Mencoba menampilkan bulan : January February March ...

var

  Tanggal: TDateTime;
  Hari : word;

  Bulan : word;

  Tahun : word;

  Jam : word;

  Menit : word;

  Detik : word;

  Milidetik : word;


begin

  write('Masukan kode hari : ');

  readln(Hari);

  write('Masukan kode bulan : ');

  readln(Bulan);

  write('Masukan kode tahun : ');

  readln(Tahun);

  write('Masukan kode jam : ');

  readln(Jam);

  write('Masukan kode menit : ');

  readln(Menit);

  write('Masukan kode detik : ');

  readln(Detik);

  write('Masukan kode milidetik : ');

  readln(MiliDetik);


  // Sekarang masukan variabel diatas ke dalam tampilan hari & jam

   Tanggal:= EncodeDateTime(Tahun, Bulan, Hari, Jam, Menit, Detik, MiliDetik);

   writeln('Waktu saat ini : ' + FormatDateTime('dddd dd/mm/yyyy hh:mm:ss:ms', Tanggal));

   // readln;


   writeln('Hari saat ini : ' + FormatDateTime('dddd', Tanggal));

   writeln('Tanggal saat ini : ' + FormatDateTime('dd', Tanggal));

   writeln('Bulan saat ini : ' + FormatDateTime('mmmm', Tanggal));

   writeln('Tahun saat ini : ' + FormatDateTime('yyyy', Tanggal));

   writeln('Jam saat ini : ' + FormatDateTime('hh', Tanggal));

   writeln('Menit saat ini : ' + FormatDateTime('mm', Tanggal));

   writeln('Detik saat ini : ' + FormatDateTime('ss', Tanggal));

   writeln('Milidetik saat ini : ' + FormatDateTime('ms', Tanggal));

   readln;
end.