System time: Difference between revisions

main: // entry of program

ldr x0,qAdrstTVal // time zones

mov x8,GETTIME // call system

ldr x0x1,qAdrstTVal

ldr x1x0,[x0x1,timeval_sec] // timestemptimestamp in second

sub x3,x1x0,x2 // total secondes to 01/01/2020

mov x4,(365 * 4 + 1)/4

msubudiv x10x12,x9x5,x4,x5

2: // y12x12 = year2

maddmul x14x15,x13,x12,x11

submul x0x15,x10x13,x15x12

movldp x0x1,0lr,[sp],16 // restaur 2 // return coderegisters

movret x8,EXIT // requestreturn to exitaddress lr programx30

<langsyntaxhighlight lang="aime">REPORT system_time.

WRITE: sy-uzeit.</langsyntaxhighlight>

The following example displays a date-time stamp. The time zone value is the number of minutes offset from the prime meridian.<langsyntaxhighlight lang="ada">with Ada.Calendar; use Ada.Calendar;

end System_Time;</langsyntaxhighlight>{{out}}

<langsyntaxhighlight lang="aime">date d;

d_d_hour(d), d_h_minute(d), d_m_second(d));</langsyntaxhighlight>{{out}}

<!-- {{does not work with|ELLA ALGOL 68|Any (with appropriate job cards) - tested with release 1.8.8d.fc9.i386 - test missing transput, and POSIX local time, and utc time extensions to language used}} --><langsyntaxhighlight lang="algol68">FORMAT time repr = $"year="4d,", month="2d,", day="2d,", hours="2d,", \

printf((time repr, utc time))</langsyntaxhighlight>{{out}}

<langsyntaxhighlight AppleScriptlang="applescript">display dialog ((current date) as text)</langsyntaxhighlight>

mov r1,#(365 * 4 + 1)/4

mulmov r10,r9,r1,#(365 * 4 + 1)

submov r10r0,r11,r10

submul r0r11,r10r3,r12r2

<syntaxhighlight lang arturo="rebol">print [datetime|now ~]</langsyntaxhighlight>

<pre>302021-1102-2019 20T11:10:3108+01:0900</pre>

<langsyntaxhighlight lang="autohotkey">FormatTime, t

MsgBox,% t</langsyntaxhighlight>

<langsyntaxhighlight lang="autoit">MsgBox(0,"Time", "Year: "&@YEAR&",Day: " &@MDAY& ",Hours: "& @HOUR & ", Minutes: "& @MIN &", Seconds: "& @SEC)</langsyntaxhighlight>

<syntaxhighlight lang Avail="avail">Print: “now”;</langsyntaxhighlight>

<langsyntaxhighlight lang="awk">$ awk 'BEGIN{print systime(),strftime()}'</langsyntaxhighlight>

<langsyntaxhighlight lang="awk">

<langsyntaxhighlight lang="qbasic">' BaCon time

PRINT HOUR(n), MINUTE(n), SECOND(n) FORMAT "%02d:%02d:%02d\n"</langsyntaxhighlight>

<syntaxhighlight lang ="qbasic">PRINT TIMER</langsyntaxhighlight>

<syntaxhighlight lang ="qbasic">PRINT TIME$</langsyntaxhighlight>

{{works with|Windows NT}}<langsyntaxhighlight lang="dos">date /t

time /t</langsyntaxhighlight>Furthermore there are two pseudo-variables <tt>%DATE%</tt> and <tt>%TIME%</tt>:

{{works with|Windows NT|4}}<syntaxhighlight lang ="dos">echo %DATE% %TIME%</langsyntaxhighlight>

<langsyntaxhighlight lang="bbcbasic"> PRINT TIME$</langsyntaxhighlight>Outputs the date and time. To output only the time:<langsyntaxhighlight lang="bbcbasic"> PRINT RIGHT$(TIME$,8)</langsyntaxhighlight>

It shows system time as "Www Mmm dd hh:mm:ss yyyy", where Www is the weekday, Mmm the month in letters, dd the day of the month, hh:mm:ss the time, and yyyy the year.<langsyntaxhighlight lang="c">#include<time.h>

}</langsyntaxhighlight>

<syntaxhighlight lang ="csharp">Console.WriteLine(DateTime.Now);</langsyntaxhighlight>

<langsyntaxhighlight lang="cpp">#include <iostream>

}</langsyntaxhighlight>

<langsyntaxhighlight lang="cpp">#include <chrono>

}</langsyntaxhighlight>

<langsyntaxhighlight lang="lisp">(import '[java.util Date])

(print (System/currentTimeMillis))</langsyntaxhighlight>

<langsyntaxhighlight lang="cobol"> WORKING-STORAGE SECTION.

MOVE FUNCTION CURRENT-DATE TO WS-CURRENT-DATE-FIELDS.</langsyntaxhighlight>

<langsyntaxhighlight lang="cfm"><cfscript>

</cfscript></langsyntaxhighlight>

<langsyntaxhighlight lang="lisp">(multiple-value-bind (second minute hour day month year) (get-decoded-time)

(format t "~4,'0D-~2,'0D-~2,'0D ~2,'0D:~2,'0D:~2,'0D" year month day hour minute second))</langsyntaxhighlight>

<langsyntaxhighlight Dlang="d">Stdout(Clock.now.span.days / 365).newline;</langsyntaxhighlight>

<langsyntaxhighlight DCLlang="dcl">$ start_time = f$time()

$ write sys$output "delta time is ", f$delta_time( start_time, end_time )</langsyntaxhighlight>

<langsyntaxhighlight Delphilang="delphi">lblDateTime.Caption := FormatDateTime('dd mmmm yyyy hh:mm:ss', Now);</langsyntaxhighlight>This populates a label with the date

<langsyntaxhighlight lang="delphi">PrintLn(FormatDateTime('dd mmmm yyyy hh:mm:ss', Now));</langsyntaxhighlight>

<syntaxhighlight lang ="e">println(timer.now())</langsyntaxhighlight>

<syntaxhighlight lang="text">print time_strtimestr time_secssystime</langsyntaxhighlight>

<langsyntaxhighlight lang="elena">import extensions;

}</langsyntaxhighlight>

<langsyntaxhighlight lang="elixir">:os.timestamp # => {MegaSecs, Secs, MicroSecs}

:calendar.universal_time # => {{Year, Month, Day}, {Hour, Minute, Second}}</langsyntaxhighlight>

<syntaxhighlight lang ="elixir">:random.seed(:erlang.now)</langsyntaxhighlight>

<langsyntaxhighlight Lisplang="lisp">(message "%s" (current-time-string))

By default, Erlang timestamps are turned in the {megasecs, secs, microsecs} format.<langsyntaxhighlight lang="erlang">1> os:timestamp().

{1250,222584,635452}</langsyntaxhighlight>

These can be changed with the calendar module:<langsyntaxhighlight lang="erlang">2> calendar:now_to_datetime(os:timestamp()).

{{2009,8,14},{0,7,01}}</langsyntaxhighlight>Note that you will often encounter the function <tt>erlang:now/0</tt> giving a time similar to the system time. However, <tt>erlang:now/0</tt> may get delayed if the system time changes suddenly (i.e.: coming back from sleep mode). The delay is in place to make sure <tt>receive</tt> clauses that are millisecond-sensitive do not get false timeouts.

Type in a cell :<langsyntaxhighlight Excellang="excel">=NOW()</langsyntaxhighlight>

<langsyntaxhighlight lang="fsharp">printfn "%s" (System.DateTime.Now.ToString("u"))</langsyntaxhighlight>

<langsyntaxhighlight lang="factor">USE: calendar

now .</langsyntaxhighlight>

<langsyntaxhighlight lang="falcon">

<tt>DateTime.nowTicks</tt> returns the number of nanoseconds since 1 Jan 2000 UTC.<langsyntaxhighlight lang="fantom">fansh> DateTime.nowTicks

1298508885979</langsyntaxhighlight>

<langsyntaxhighlight lang="forth">[UNDEFINED] MS@ [IF] \ Win32Forth (rolls over daily)

MS@ . \ print millisecond counter</langsyntaxhighlight>

In ISO Fortran 90 or later, use the SYSTEM_CLOCK intrinsic subroutine:<langsyntaxhighlight lang="fortran">integer :: start, stop, rate

print *, "elapsed time: ", real(stop - start) / real(rate)</langsyntaxhighlight>In ISO Fortran 95 or later, use the CPU_TIME intrinsic subroutine:<langsyntaxhighlight lang="fortran">real :: start, stop

print *, "elapsed time: ", stop - start</langsyntaxhighlight>

<langsyntaxhighlight lang="freebasic">' FB 1.05.0 Win64

Sleep</langsyntaxhighlight>

<langsyntaxhighlight lang="gambas">Public Sub Main()

End</langsyntaxhighlight>

<langsyntaxhighlight lang="genie">[indent=4]

print now.to_string()</langsyntaxhighlight>

<langsyntaxhighlight lang="go">package main

}</langsyntaxhighlight>

Solution (based on [[#Java|Java]] solution).<langsyntaxhighlight lang="groovy">def nowMillis = new Date().time

println 'Milliseconds since the start of the UNIX Epoch (Jan 1, 1970) == ' + nowMillis</langsyntaxhighlight>

We can only show the clock, but this might not be set to system time:<syntaxhighlight lang ="guiss">Taskbar</langsyntaxhighlight>

<langsyntaxhighlight lang="haskell">import System.Time

putStrLn $ formatCalendarTime defaultTimeLocale "%a %b %e %H:%M:%S %Y" cal</langsyntaxhighlight>

<langsyntaxhighlight lang="haskell">import Data.Time (getZonedTime, formatTime, defaultTimeLocale)

putStrLn $ formatTime defaultTimeLocale "%a %b %e %H:%M:%S %Y" zt</langsyntaxhighlight>

<langsyntaxhighlight HicEstlang="hicest">seconds_since_midnight = TIME() ! msec as fraction

! other options e.g. Excel, YYYYMMDD (num or text)</langsyntaxhighlight>

<langsyntaxhighlight lang="holyc">CDateStruct ds;

<syntaxhighlight lang Hoon="hoon">now</langsyntaxhighlight>{{out}}

<langsyntaxhighlight Uniconlang="unicon">procedure main()

end</langsyntaxhighlight>{{out}}

&now - time in seconds since the epoch = 1307400974</pre>

<syntaxhighlight lang ="io">Date now println</langsyntaxhighlight>{{out}}

<syntaxhighlight lang IS="is-BASICbasic">100 PRINT TIME$</langsyntaxhighlight>

The external verb <code>6!:0</code> returns a six-element floating-point array in which the elements correspond to year, month, day, hour, minute, and second. Fractional portion of second is given to thousandths.<langsyntaxhighlight lang="j"> 6!:0 ''

2008 1 23 12 52 10.341</langsyntaxhighlight>

A formatted string representation of the current time can also be returned:<langsyntaxhighlight lang="j"> 6!:0 'YYYY-MM-DD hh:mm:ss.sss'

2009-08-26 10:38:53.171</langsyntaxhighlight>

<langsyntaxhighlight lang="java">public class SystemTime{

}</langsyntaxhighlight>{{out}}

Datevar now = new DateZonedDateTime.now();

System.out.println(now); // string representation

}</langsyntaxhighlight>

<langsyntaxhighlight lang="sh">$ jq -n 'now | [., todate]'

]</langsyntaxhighlight>

<syntaxhighlight lang ="javascript">console.log(strftime());</langsyntaxhighlight>

<langsyntaxhighlight lang="scala">// version 1.0.6

<langsyntaxhighlight Lassolang="lasso">date->format('%Q %T')

date->asInteger</langsyntaxhighlight>{{out}}

<langsyntaxhighlight lang="lisp">

<langsyntaxhighlight lang="lisp">

<langsyntaxhighlight lang="lisp">

<langsyntaxhighlight lang="lb">print time$() 'time now as string "16:21:44"

print time$("ms") 'milliseconds since midnight as number 33221342</langsyntaxhighlight>

<langsyntaxhighlight lang="tcl">print [system date]; print [system date +%s.%N]</langsyntaxhighlight>

<langsyntaxhighlight lang="lingo">put time()

-- 41746442</langsyntaxhighlight>

<syntaxhighlight lang LiveCode="livecode">put the system time</langsyntaxhighlight>

The variable "time" contains the time elapsed since last system start or reset. Each unit equals 1/300 s.<langsyntaxhighlight lang="locobasic">print time

print time/300;"s since last reboot"</langsyntaxhighlight>

Other Logo variants might have a built-in command, but UCB Logo must access the Unix shell to get time.<langsyntaxhighlight lang="logo">

print time - :start ; 5</langsyntaxhighlight>

<syntaxhighlight lang ="lua">print(os.date())</langsyntaxhighlight>

=={{header|Mathematica}}/{{header|Wolfram Language}}==

Different ways of doing this, here are 2 most common:<langsyntaxhighlight Mathematicalang="mathematica">Print[DateList[]]

Print[AbsoluteTime[]]</langsyntaxhighlight>DateList will return the list {year,month,day,hour,minute,second} where all of them are integers except for second; that is a float. AbsoluteTime gives the total number of seconds since january 1st 1900 in your time zone.

<syntaxhighlight lang MATLAB="matlab"> datestr(now)</langsyntaxhighlight><pre>ans =

13-Aug-2010 12:59:56</pre><syntaxhighlight lang MATLAB="matlab"> clock</langsyntaxhighlight><pre>ans =

<langsyntaxhighlight lang="maxima">/* Time and date in a formatted string */

elapsed_run_time();</langsyntaxhighlight>

<langsyntaxhighlight lang="modula2">

<langsyntaxhighlight lang="modula3">MODULE MyTime EXPORTS Main;

END MyTime.</langsyntaxhighlight>{{out}}

System time since midnight (in seconds) is kept in the second part of the system variable $HOROLOG.<langsyntaxhighlight MUMPSlang="mumps">SYSTIME

QUIT</langsyntaxhighlight>Usage:<pre>USER>D SYSTIME^ROSETTA

<langsyntaxhighlight Nanoquerylang="nanoquery">import Nanoquery.Util

println new(Date).getTime()</langsyntaxhighlight>

$print(now, " ", date_format(now, "%T"), "\n")</langsyntaxhighlight>

<langsyntaxhighlight Nemerlelang="nemerle">System.Console.Write(System.DateTime.Now);</langsyntaxhighlight>

<langsyntaxhighlight lang="netrexx">

say SimpleDateFormat("yyyy-MM-dd-HH.mm.ss.SSS").format(Date())</langsyntaxhighlight>

<langsyntaxhighlight NewLISPlang="newlisp">> (date)

"Sun Sep 28 20:17:55 2014"</langsyntaxhighlight>

<langsyntaxhighlight lang="nim">import times

echo( getDateStr())

echo( getClockStr())

echo( getTime())</lang>{{out}}

<langsyntaxhighlight lang="objeck">function : Time() ~ Nil {

}</langsyntaxhighlight>

<langsyntaxhighlight lang="objc">NSLog(@"%@", [NSDate date]);</langsyntaxhighlight>or (deprecated)<langsyntaxhighlight lang="objc">NSLog(@"%@", [NSCalendarDate calendarDate]);</langsyntaxhighlight>

<langsyntaxhighlight lang="ocaml">#load "unix.cma";;

Printf.printf "%04d-%02d-%02d %02d:%02d:%02d\n" (year + 1900) (mon + 1) mday hour min sec;</langsyntaxhighlight>

<langsyntaxhighlight Oforthlang="oforth">System.tick println

#[ #sqrt 1000000 seq map sum println ] bench</langsyntaxhighlight>

<langsyntaxhighlight Oforthlang="oforth">import: date

System.localTime dup println asDate println drop drop</langsyntaxhighlight>

<langsyntaxhighlight lang="oz">{Show {OS.time}} %% posix time (seconds since 1970-01-01)

{Show {OsTime.localtime 1000000000}}</langsyntaxhighlight>{{out}}

<langsyntaxhighlight lang="parigp">system("date")</langsyntaxhighlight>

<langsyntaxhighlight lang="parigp">install(time, "lf");

print(t); \\ integer seconds since the epoch (usually 1 Jan 1970)</langsyntaxhighlight>

{{works with|TurboExtended Pascal|5.5}}

Simple localtime use in scalar context.<langsyntaxhighlight lang="perl">print scalar localtime, "\n";</langsyntaxhighlight>{{out}}

localtime use in array context.<langsyntaxhighlight lang="perl">($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime;

printf("%04d-%02d-%02d %02d:%02d:%02d\n", $year + 1900, $mon + 1, $mday, $hour, $min, $sec</langsyntaxhighlight>

The same using DateTime:<langsyntaxhighlight lang="perl">use DateTime;

print "$d $t\n";</langsyntaxhighlight>{{out}}

localtime use in array context with [[POSIX]] strftime:<langsyntaxhighlight lang="perl">use POSIX qw(strftime);

print "$now_string\n";</langsyntaxhighlight>Output (with cs_CZ.UTF-8 locale):

<pre>Čt led 24 11:23:30 2008</pre>Using the [http://search.cpan.org/perldoc?DateTime DateTime] module:<langsyntaxhighlight lang="perl">use DateTime;

# etc.</langsyntaxhighlight>Unix epoch:<syntaxhighlight lang ="perl">print time;</langsyntaxhighlight>{{out}}

<langsyntaxhighlight Phixmontilang="phixmonti">def printList len for get print endfor enddef

"and elapsed " msec " seconds of running time." 10 tolist printList</langsyntaxhighlight>

Seconds since the Unix epoch:<langsyntaxhighlight lang="php">echo time(), "\n";</langsyntaxhighlight>

Microseconds since the Unix epoch:<langsyntaxhighlight lang="php">echo microtime(), "\n";</langsyntaxhighlight>Formatted time:<langsyntaxhighlight lang="php">echo date('D M j H:i:s Y'), "\n"; // custom format; see format characters here:

// http://us3.php.net/manual/en/class.datetime.php#datetime.constants.types</langsyntaxhighlight>

<syntaxhighlight lang PicoLisp="picolisp">(stamp)</langsyntaxhighlight>{{out}}

<langsyntaxhighlight Pikelang="pike">write( ctime(time()) );</langsyntaxhighlight>

<langsyntaxhighlight PLlang="pl/Ii">put (datetime()); /* writes out the date and time */

put (time()); /* gives the time in the format hhmiss999. */</langsyntaxhighlight>

Using a cmdlet:<langsyntaxhighlight lang="powershell">Get-Date</langsyntaxhighlight>or using .NET classes and properties:<langsyntaxhighlight lang="powershell">[DateTime]::Now</langsyntaxhighlight>

<langsyntaxhighlight PureBasiclang="purebasic">time=Date() ; Unix timestamp

; could use API like QueryPerformanceCounter_() on Windows for more accurate values</langsyntaxhighlight>

<langsyntaxhighlight lang="python">import time

print time.ctime()</langsyntaxhighlight>

Date & time are accessible via the virtual .z namespace. lowercase names are UTC, uppercase are local:<langsyntaxhighlight lang="q">q).z.D

2010.01.25T19:17:59.445</langsyntaxhighlight>

Note that this is output as a standard style string.<syntaxhighlight lang R="r">Sys.time()</langsyntaxhighlight>{{out}}

<langsyntaxhighlight lang="racket">#lang racket

(date->string (current-date))</langsyntaxhighlight>

Or, as seconds after midnight UTC, January 1, 1970:<langsyntaxhighlight lang="racket">#lang racket

(current-seconds)</langsyntaxhighlight>

<syntaxhighlight lang="raku" perl6line>say DateTime.now;

dd DateTime.now.Instant;</langsyntaxhighlight>

Note the use of single quotation marks for the date specifier.<syntaxhighlight lang="text">time dup print "\n" print int '%a %b %e %H:%M:%S %Y' date</langsyntaxhighlight>

print rejoin [now/year "-" now/month "-" now/day " " now/time]</langsyntaxhighlight>{{out}}

<syntaxhighlight lang Retro="retro">time putn</langsyntaxhighlight>

<langsyntaxhighlight lang="rexx">/*REXX program shows various ways to display the system time, including other options. */

/*stick a fork in it, we're all done. */</langsyntaxhighlight>

<langsyntaxhighlight lang="ring">

version 1.9+<langsyntaxhighlight lang="ruby">t = Time.now

<syntaxhighlight lang ="scala">println(new java.util.Date)</langsyntaxhighlight>{{out}}

<langsyntaxhighlight lang="scala">println(java.time.LocalTime.now())</langsyntaxhighlight>{{out}}

{{works with|Chicken Scheme}}<langsyntaxhighlight lang="scheme">(use posix)

(seconds->string (current-seconds))</langsyntaxhighlight>{{out}}

<langsyntaxhighlight lang="seed7">$ include "seed7_05.s7i";

end func;</langsyntaxhighlight>{{out}}

<langsyntaxhighlight lang="setl">$ Unix time

print(date);</langsyntaxhighlight>

<langsyntaxhighlight lang="setl">

<langsyntaxhighlight lang="ruby"># textual

say Time.micro_sec; # => 1426770641.68409</langsyntaxhighlight>

{{works with|GNU Smalltalk}}<syntaxhighlight lang ="smalltalk">DateTime now displayNl.</langsyntaxhighlight>{{out}}

{{works with|Pharo}}{{works with|Smalltalk/X}}<langsyntaxhighlight lang="smalltalk">DateAndTime now</langsyntaxhighlight>{{out}}

<langsyntaxhighlight SNOBOL4lang="snobol4"> OUTPUT = DATE()

END</langsyntaxhighlight>{{out}}

<langsyntaxhighlight lang="spl">hour,min,sec = #.now()

#.output(day,".",#.str(month,"00"),".",year)</langsyntaxhighlight>

<langsyntaxhighlight lang="sql pl">

<langsyntaxhighlight lang="sml">print (Date.toString (Date.fromTimeLocal (Time.now ())) ^ "\n")</langsyntaxhighlight>

<langsyntaxhighlight lang="stata">di c(current_date)

di c(current_time)</langsyntaxhighlight>

<langsyntaxhighlight Swiftlang="swift">import Foundation

println(⌚️)</langsyntaxhighlight>{{out}}

This uses a timestamp that is a number of seconds since the start of the UNIX Epoch.<syntaxhighlight lang ="tcl">puts [clock seconds]</langsyntaxhighlight>

More readable forms may be created by formatting the time:<langsyntaxhighlight lang="tcl">puts [clock format [clock seconds]]</langsyntaxhighlight>

<langsyntaxhighlight lang="ti89b">■ getTime() {13 28 55}

■ getDate() {2009 8 13}</langsyntaxhighlight>Note that the system clock can be turned off, in which case the value returned will remain constant. <tt>isClkOn()</tt> can be used to check it.

<langsyntaxhighlight lang="tuscript">

PRINT time</langsyntaxhighlight>{{out}}

<langsyntaxhighlight lang="bash">date # Thu Dec 3 15:38:06 PST 2009

date +%s # 1259883518, seconds since the epoch, like C stdlib time(0)</langsyntaxhighlight>

<langsyntaxhighlight lang="ursa"># outputs time in milliseconds

out (time.getcurrent) endl console</langsyntaxhighlight>

A library function, now, ignores its argument and returns the system time as a character string.<langsyntaxhighlight Ursalalang="ursala">#import cli

main = now 0</langsyntaxhighlight>{{out}}

<langsyntaxhighlight lang="vala">

string now_string = now.to_string();</langsyntaxhighlight>{{out}}

<syntaxhighlight lang VB="vb">Debug.Print Now()</langsyntaxhighlight>

<syntaxhighlight lang ="vb">WScript.Echo Now</langsyntaxhighlight>

The intrinsics GetReg and SoftInt are used to access DOS and BIOS routines. GetReg returns the address of an array where a copy of the processor's hardware registers are stored. Values (such as $2C00 in the example) can be stored into this array. When SoftInt is called, the values in the array are loaded into the processor's registers and the specified interrupt ($21 in the example) is called.<langsyntaxhighlight XPL0lang="xpl0">include c:\cxpl\codes; \include intrinsic 'code' declarations

]</langsyntaxhighlight>{{out}}

<syntaxhighlight lang Yabasic="yabasic">print time$</langsyntaxhighlight>

<langsyntaxhighlight lang="zkl">Time.Clock.time //-->seconds since the epoch (C/OS defined)</langsyntaxhighlight>