Logo

Programming-Idioms

Assign to the variable d the current date/time value, in the most standard type.
New implementation

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;
D : Ada.Calendar.Time := Ada.Calendar.Clock;
#include <time.h>
time_t d=time(0);
(def d #(java.util.Date.))
IDENTIFICATION DIVISION.
PROGRAM-ID. date.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 curr-date.
   03 year      pic 9(4).
   03 month     pic 9(2).
   03 day       pic 9(2).
PROCEDURE DIVISION.
   MOVE FUNCTION CURRENT-DATE TO curr-date
STOP RUN.
#include <ctime>
std::time_t d = std::time(nullptr);
DateTime d = DateTime.Now;
import std.datetime;
auto d = Clock.currTime;
var d = DateTime.now();
d = :calendar.local_time
D = calendar:local_time().
integer, dimension(8) :: d

call date_and_time (values=d)

import "time"
d := time.Now()
d <- System.Posix.Time.epochTime
var d = Date.now();
var d = new Date();
import static java.lang.System.currentTimeMillis;
long a = currentTimeMillis();
String d = "%tc".formatted(a);
import static java.util.Calendar.getInstance;
import java.util.Date;
Date a = getInstance().getTime();
String d = "%tc".formatted(a);
import java.time.Instant;
Instant d = Instant.now();
d = os.date()
@import Foundation;
NSDate *d=NSDate.date;
$d = time();
var
  _d: TDateTime;
begin
  _d := Now;
end.
$d = time;

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($d);
use Time::Piece;

$d = localtime;		# local time as a Time::Piece object
say $d->ymd;		# yyyy-mm-dd format
say $d->datetime;	# ISO 8601 format

$g = gmtime;		# GMT as a Time::Piece object
$d = time;
import datetime
d = datetime.datetime.now()
d = Time.now
use std::time::SystemTime;
let d = SystemTime::now();
extern crate time;
let d = time::now();
Dim d As DateTime = DateTime.Now()