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

June 2018 Update

Browse source
This commit is contained in:
Ingy döt Net 2018-06-22 20:57:24 +00:00
parent ba8067c3b7
commit 22f33d4004
5278 changed files with 84726 additions and 14379 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Task/System-time/ABAP/system-time.abap Normal file
View file

@ -0,0 +1,3 @@
REPORT system_time.
WRITE: sy-uzeit.

6
Task/System-time/Elena/system-time.elena Normal file
View file

@ -0,0 +1,6 @@
import extensions.
program =
[
console printLine(system'calendar'Date now).
].

4
Task/System-time/Falcon/system-time.falcon Normal file
View file

@ -0,0 +1,4 @@
/* Added by Aykayayciti Earl Lamont Montgomery
April 10th, 2018 */
> CurrentTime().toString()

4
Task/System-time/HolyC/system-time.holyc Normal file
View file

@ -0,0 +1,4 @@
CDateStruct ds;
Date2Struct(&ds, Now + local_time_offset);
Print("%04d-%02d-%02d %02d:%02d:%02d\n", ds.year, ds.mon, ds.day_of_mon, ds.hour, ds.min, ds.sec);

21
Task/System-time/Modula-2/system-time.mod2 Normal file
View file

@ -0,0 +1,21 @@
MODULE Mytime;
FROM SysClock IMPORT
GetClock, DateTime;
FROM STextIO IMPORT
WriteString, WriteLn;
FROM FormatDT IMPORT
DateTimeToString;
VAR
CurrentTime: DateTime;
DateStr, TimeStr: ARRAY [0 .. 20] OF CHAR;
BEGIN
GetClock(CurrentTime);
DateTimeToString(CurrentTime, DateStr, TimeStr);
WriteString("Current time: ");
WriteString(DateStr);
WriteString(" ");
WriteString(TimeStr);
WriteLn;
END Mytime.

2
Task/System-time/Stata/system-time.stata Normal file
View file

@ -0,0 +1,2 @@
di c(current_date)
di c(current_time)