Add files via upload
This commit is contained in:
parent
64c6352265
commit
35131ba393
90 changed files with 1738 additions and 0 deletions
15
Examples/Time/time.bas
Normal file
15
Examples/Time/time.bas
Normal file
|
@ -0,0 +1,15 @@
|
|||
SUB MAIN
|
||||
DIM TM AS DOUBLE
|
||||
DIM DD,MM,CCYY AS INTEGER
|
||||
DIM HRS,MINS,SECS,MILLI AS INTEGER
|
||||
TM=NOW()
|
||||
DD=DAY(TM)
|
||||
MM=MONTH(TM)
|
||||
CCYY=YEAR(TM)
|
||||
HRS=HOUR(TM)
|
||||
MINS=MINUTE(TM)
|
||||
SECS=SECOND(TM)
|
||||
MILLI=MILLISECOND(TM)
|
||||
PRINT "Todays Date (DD/MM/CCYY) = " + STRING(DD) + "/" + STRING(MM) + "/" + STRING(CCYY)
|
||||
PRINT "Current Time = " + STRING(HRS) + ":" + STRING(MINS) + ":" + STRING(SECS) + "." + STRING(MILLI)
|
||||
END SUB
|
Loading…
Add table
Add a link
Reference in a new issue