Initial data commit

Task/Date-format/PureBasic/date-format.basic

@@ -0,0 +1,41 @@
+;Declare Procedures
+Declare.s MonthInText()
+Declare.s DayInText()
+
+;Output the requested strings
+Debug FormatDate("%yyyy-%mm-%dd", Date())
+Debug DayInText() + ", " + MonthInText() + FormatDate(" %dd, %yyyy", Date())
+
+;Used procedures
+Procedure.s DayInText()
+  Protected d$
+  Select DayOfWeek(Date())
+    Case 1: d$="Monday"
+    Case 2: d$="Tuesday"
+    Case 3: d$="Wednesday"
+    Case 4: d$="Thursday"
+    Case 5: d$="Friday"
+    Case 6: d$="Saturday"
+    Default: d$="Sunday"
+  EndSelect
+  ProcedureReturn d$
+EndProcedure
+
+Procedure.s MonthInText()
+  Protected  m$
+  Select Month(Date())
+    Case 1: m$="January"
+    Case 2: m$="February"
+    Case 3: m$="March"
+    Case 4: m$="April"
+    Case 5: m$="May"
+    Case 6: m$="June"
+    Case 7: m$="July"
+    Case 8: m$="August"
+    Case 9: m$="September"
+    Case 10:m$="October"
+    Case 11:m$="November"
+    Default:m$="December"
+  EndSelect
+  ProcedureReturn m$
+EndProcedure