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.
(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.
DateTime d = DateTime.Now;
var d = DateTime.now();
d = :calendar.local_time
D = calendar:local_time().
integer, dimension(8) :: d
call date_and_time (values=d)
d <- System.Posix.Time.epochTime
var d = Date.now();
var d = new Date();
d = os.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;
d = Time.now
Dim d As DateTime = DateTime.Now()