TDateTime: Menuliskan Format Bulan Lengkap

program Latihan101;

{$mode objfpc}{$H+}

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

var

  Waktu : TDateTime;

  Tahun : word;

  Bulan : word;

  Tanggal : word;



begin
  // Kode untuk menampilkan tanggal hari ini

  Waktu :=  Now();

  // writeln('Tanggal : ', Waktu);

  // readln;

  writeln('Tanggal Hari ini : ' + FormatDateTime('dd/mmmm/yyyy',Waktu));

  readln;

end.