Creating implementation for idiom 261 : Format time hours-minutes-seconds

Idiom

# 261 Format time hours-minutes-seconds

Created by

Lead paragraph

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

New implementation

Language

Imports

Code

Documentation URL

Original attribution URL

Online runnable demo

Username

Be concise.

Be useful.

All contributions dictatorially edited by webmasters to match personal tastes.

Please do not paste any copyright violating material.

Please try to avoid dependencies to third-party libraries and frameworks.

Other implementations

with Ada.Calendar.Formatting;

X : constant String :=
    Ada.Calendar.Formatting.Image (D) (12 .. 19);

var x = date.ToString("HH:mm:ss");

Demo

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)

import "time"

x := d.Format("15:04:05")

Demo
Doc

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');

Demo
Doc

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')

Demo

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");

Demo

(define d (current-date))
(define x (substring (date-and-time d) 11 19))

Preview