X16
Defined in X16.BAS.
Returns the month portion of the current date/time, a number between 1 and 12.
FUNCTION CLOCK_MONTH AS BYTE () SHARED STATIC
INCLUDE "x16.bas" DIM monthname$(12) AS STRING * 9 @strdata PRINT "it is "; monthname$(CLOCK_MONTH() - 1) END strdata: DATA AS STRING * 9 "january", "february", "march", _ "april", "may", "june", "july", _ "august", "september", "october", _ "november", "december"