Tampilkan Format Waktu 24h

Menampilkan waktu dengan format 24 jam.

Karena format waktu di negara kita menggunakan format 24h bukan 12h (AM-PM), maka ada baiknya anda menggunakan format ini.

Deklarasi fungsi:

function FWaktu24H(dt: TDateTime): String;
begin
 Result:= FormatDateTime('hh:mm:ss',dt);
end;

Contoh implementasi :

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption:= FWaktu24H(Now);
end;

Output:

Output - Format Waktu 24 Jam