aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Task/System-time/Ada/system-time.ada
View file

@ -1,10 +0,0 @@
with Ada.Calendar; use Ada.Calendar;
with Ada.Calendar.Formatting; use Ada.Calendar.Formatting;
with Ada.Calendar.Time_Zones; use Ada.Calendar.Time_Zones;
with Ada.Text_Io; use Ada.Text_Io;
procedure System_Time is
Now : Time := Clock;
begin
Put_line(Image(Date => Now, Time_Zone => -7*60));
end System_Time;

1
Task/System-time/AutoIt/system-time.autoit
View file

@ -1 +0,0 @@
MsgBox(0,"Time", "Year: "&@YEAR&",Day: " &@MDAY& ",Hours: "& @HOUR & ", Minutes: "& @MIN &", Seconds: "& @SEC)

15
Task/System-time/COBOL/system-time.cobol
View file

@ -1,15 +0,0 @@
WORKING-STORAGE SECTION.
01 WS-CURRENT-DATE-FIELDS.
05 WS-CURRENT-DATE.
10 WS-CURRENT-YEAR PIC 9(4).
10 WS-CURRENT-MONTH PIC 9(2).
10 WS-CURRENT-DAY PIC 9(2).
05 WS-CURRENT-TIME.
10 WS-CURRENT-HOUR PIC 9(2).
10 WS-CURRENT-MINUTE PIC 9(2).
10 WS-CURRENT-SECOND PIC 9(2).
10 WS-CURRENT-MS PIC 9(2).
05 WS-DIFF-FROM-GMT PIC S9(4).
PROCEDURE DIVISION.
MOVE FUNCTION CURRENT-DATE TO WS-CURRENT-DATE-FIELDS.

4
Task/System-time/Elena/system-time.elena
View file

@ -1,7 +1,7 @@
import extensions;
import system'calendar;
public program()
public Program()
{
console.printLine(Date.Now);
Console.printLine(Date.Now);
}

2
Task/System-time/Emacs-Lisp/system-time.l
View file

@ -1,2 +0,0 @@
(message "%s" (current-time-string))
;; => "Wed Oct 14 22:21:05 1987"

13
Task/System-time/Phix/system-time.phix
View file

@ -1,8 +1,7 @@
-->
<span style="color: #008080;">include</span> <span style="color: #004080;">timedate</span><span style="color: #0000FF;">.</span><span style="color: #000000;">e</span>
<span style="color: #0000FF;">?</span><span style="color: #7060A8;">format_timedate</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">date</span><span style="color: #0000FF;">(),</span><span style="color: #008000;">"Dddd, Mmmm dth, YYYY, h:mm:ss pm"</span><span style="color: #0000FF;">)</span>
with javascript_semantics
include timedate.e
?format_timedate(date(),"Dddd, Mmmm dth, YYYY, h:mm:ss pm")
<span style="color: #004080;">atom</span> <span style="color: #000000;">t0</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">time</span><span style="color: #0000FF;">()</span>
<span style="color: #7060A8;">sleep</span><span style="color: #0000FF;">(</span><span style="color: #000000;">0.9</span><span style="color: #0000FF;">)</span>
<span style="color: #0000FF;">?</span><span style="color: #7060A8;">time</span><span style="color: #0000FF;">()-</span><span style="color: #000000;">t0</span>
<!--
atom t0 = time()
sleep(0.9)
?time()-t0

1
Task/System-time/PowerShell/system-time-1.psh
View file

@ -1 +0,0 @@
Get-Date

1
Task/System-time/PowerShell/system-time-2.psh
View file

@ -1 +0,0 @@
[DateTime]::Now

3
Task/System-time/REBOL/system-time.rebol
View file

@ -1,3 +0,0 @@
print now
print now/precise
print rejoin [now/year "-" now/month "-" now/day " " now/time]

77
Task/System-time/REXX/system-time.rexx
View file

@ -1,46 +1,35 @@
/*REXX program shows various ways to display the system time, including other options. */
-- 24 Sep 2025
include Setting
numeric digits 20
say '════════════ Normal format of time'
say 'hh:mm:ss ◄─────────────── hh= is 00 ──► 23'
say 'hh:mm:ss ◄─────────────── hh= hour mm= minute ss= second'
say time()
say time('n') /* (same as the previous example.) */
say time('N') /* " " " " " */
say time('Normal') /* " " " " " */
say time('nitPick') /* " " " " " */
say 'SYSTEM TIME'
say version
say
say 'Below examples may be coded with full option or only first letter.'
say 'Both uppercase and lowercase are accepted.'
say 'Not shown here, but the Time() function also supports conversions.'
say
say 'Consume some time...'
do 100000000
end
say
w=18
say 'Time() function...'
say 'Default ' Left(Time(),w) 'same as Normal'
say 'Civil ' Left(Time('C'),w) 'am/pm notation'
say 'Elapsed ' Left(Time('E'),w) 'sss.ddd000 seconds'
if Pos('ooRexx',version) > 0 then
say 'Full ' Left(Time('F'),w) 'microsecs since Jan 1, 0001, 00:00:00 (ooRexx)'
say 'Hours ' Left(Time('H'),w) 'since midnight'
if Pos('Regina',version) > 0 then
say 'Job ' Left(Time('J'),w) 'cpu seconds (Regina)'
say 'Long ' Left(Time('L'),w) 'hh:mm:ss.ddd000'
say 'Minutes ' Left(Time('M'),w) 'since midnight'
say 'Normal ' Left(Time('N'),w) 'hh:mm:ss'
say 'Offset ' Left(Time('O'),w) 'microsecs local (summer) time minus UTC'
say 'Reset ' Left(Time('R'),w) 'reset elapsed'
say 'Seconds ' Left(Time('S'),w) 'since midnight'
say 'Ticks ' Left(Time('T'),w) 'seconds since Jan 1, 1970, 00:00:00'
exit
say
say '════════════ Civil format of time'
say 'hh:mmcc ◄─────────────── hh= is 1 ──► 12'
say 'hh:mmam ◄─────────────── hh= hour mm= minute am= ante meridiem'
say 'hh:mmpm ◄─────────────── pm= post meridiem'
say time('C')
say time('civil') /* (same as the previous example.) */
/*ante meridiem≡Latin for before midday*/
/*post " " " after " */
say
say '════════════ long format of time'
say 'hh:mm:ss ◄─────────────── hh= is 0 ──► 23'
say 'hh:mm:ss.ffffff ◄─────────────── hh= hour mm= minute fffff= fractional seconds'
say time('L')
say time('long') /* (same as the previous example.) */
say time('long time no see') /* " " " " " */
say
say '════════════ complete hours since midnight'
say 'hh ◄─────────────── hh = 0 ───► 23'
say time('H')
say time('hours') /* (same as the previous example.) */
say
say '════════════ complete minutes since midnight'
say 'mmmm ◄─────────────── mmmm = 0 ───► 1439'
say time('M')
say time('minutes') /* (same as the previous example.) */
say
say '════════════ complete seconds since midnight'
say 'sssss ◄─────────────── sssss = 0 ───► 86399'
say time('S')
say time('seconds') /* (same as the previous example.) */
/*stick a fork in it, we're all done. */
include Abend

1
Task/System-time/VBScript/system-time.vb
View file

@ -1 +0,0 @@
WScript.Echo Now