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

Sync

Browse source
This commit is contained in:
Ingy döt Net 2013-10-27 22:24:23 +00:00
parent 6f050a029e
commit 776bba907c
3887 changed files with 59894 additions and 7280 deletions
Download patch file Download diff file Expand all files Collapse all files

14
Task/System-time/Aime/system-time.aime
View file

@ -2,15 +2,5 @@ date d;
d_now(d);
o_integer(d_year(d));
o_byte('-');
o_fxinteger(2, 10, d_y_month(d));
o_byte('-');
o_fxinteger(2, 10, d_m_day(d));
o_byte(' ');
o_fxinteger(2, 10, d_d_hour(d));
o_byte(':');
o_fxinteger(2, 10, d_h_minute(d));
o_byte(':');
o_fxinteger(2, 10, d_m_second(d));
o_byte('\n');
o_form("~-/f2/-/f2/ /f2/:/f2/:/f2/\n", d_year(d), d_y_month(d), d_m_day(d),
d_d_hour(d), d_h_minute(d), d_m_second(d));

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

@ -0,0 +1,15 @@
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.

1
Task/System-time/Excel/system-time-1.excel Normal file
View file

@ -0,0 +1 @@
=NOW()

1
Task/System-time/Excel/system-time-2.excel Normal file
View file

@ -0,0 +1 @@
9-8-2013 17:33

1
Task/System-time/Nemerle/system-time.nemerle Normal file
View file

@ -0,0 +1 @@
System.Console.Write(System.DateTime.Now);

5
Task/System-time/Nimrod/system-time.nimrod Normal file
View file

@ -0,0 +1,5 @@
import times
echo(getDateStr())
echo(getClockStr())
echo(getTime())

1
Task/System-time/Scala/system-time-1.scala Normal file
View file

@ -0,0 +1 @@
println(new java.util.Date)

1
Task/System-time/Scala/system-time-2.scala Normal file
View file

@ -0,0 +1 @@
println(new java.util.Date)