add getdate sample

tranleduy2000 · Jun 20, 2017 · bc5109c · bc5109c
1 parent 12baab9
commit bc5109c
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/libCompiler/src/main/assets/code_sample/dos/GetDate.pas b/libCompiler/src/main/assets/code_sample/dos/GetDate.pas
@@ -0,0 +1,16 @@
+Program Example2;
+uses Dos;
+
+{ Program to demonstrate the GetDate function. }
+
+const
+  DayStr : array[0..6] of string[3] = ('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat');
+  MonthStr : array[1..12] of string[3] = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun',
+'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec');
+var
+  Year, Month, Day, WDay : word;
+begin
+  GetDate(Year, Month, Day, WDay);
+  WriteLn('Current date');
+  WriteLn(DayStr[WDay], ', ', Day, ' ', MonthStr[Month], ' ', Year, '.');
+end.