Data update

Task/System-time/Ada/system-time.adb

@@ -0,0 +1,10 @@
+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;

Task/System-time/AutoIt/system-time.au3

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

Task/System-time/COBOL/system-time.cob

@@ -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.

Task/System-time/Emacs-Lisp/system-time.el

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

Task/System-time/PowerShell/system-time-1.ps1

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

Task/System-time/PowerShell/system-time-2.ps1

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

Task/System-time/Rebol/system-time.rebol

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

Task/System-time/Rye/system-time.rye

@@ -0,0 +1 @@
+print now

Task/System-time/VBScript/system-time.vbs

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