Logo

Programming-Idioms

This language bar is your friend. Select your favorite languages!

Idiom #261 Format time hours-minutes-seconds

Assign to the string x the value of fields (hours, minutes, seconds) of the date d, in format HH:MM:SS.

integer, dimension(8) :: d
character (len=8) :: x
call date_and_time (values=d)
write (unit=x,fmt='(I2.2,":",I2.2,":",I2.2)') d(5), d(6), d(7)
with Ada.Calendar.Formatting;
X : constant String :=
    Ada.Calendar.Formatting.Image (D) (12 .. 19);
var x = date.ToString("HH:mm:ss");
import "time"
x := d.Format("15:04:05")
const d = new Date();

let hr = d.getHours();
let min = d.getMinutes();
let sec = d.getSeconds();

if ( hr.toString().length === 1 ) {
  hr = '0' + hr;
}

if ( min.toString().length === 1 ) {
  min = '0' + min;
}

if ( sec.toString().length === 1 ) {
  sec = '0' + sec;
}

const x = '' + hr + ':' + min + ':' + sec;
(defvar *x* (format NIL "~2,'0D:~2,'0D:~2,'0D" 12 34 56))
$x = $d->format('H:i:s');
uses SysUtils;
DefaultFormatSettings.TimeSeparator := ':';
DefaultFormatSettings.ShortTimeFormat := 'hh:mm:ss';
x := TimeToStr(d);
use DateTime;
$d = DateTime->now; 
$x = $d->hms;
import datetime
d = datetime.datetime.now()
x = d.strftime('%H:%M:%S')
d = Time.now
x = d.strftime("%H:%M:%S")
use time::macros::format_description;
let format = format_description!("[hour]:[minute]:[second]");
let x = d.format(&format).expect("Failed to format the time");
(define d (current-date))
(define x (substring (date-and-time d) 11 19))


New implementation...
< >
programming-idioms.org