Add files via upload

This commit is contained in:
Андрей 2021-03-29 20:43:07 +04:00 committed by GitHub
parent 64c6352265
commit 35131ba393
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
90 changed files with 1738 additions and 0 deletions

15
Examples/Time/time.bas Normal file
View 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