mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-28 07:37:47 +00:00
32 lines
834 B
QBasic
32 lines
834 B
QBasic
|
CLS
|
||
|
DO
|
||
|
Y = VAL(MID$(DATE$, 7, 4))
|
||
|
M = VAL(MID$(DATE$, 1, 2))
|
||
|
EM$ = "TH"
|
||
|
IF M = 1 THEN EM$ = "ST"
|
||
|
IF M = 2 THEN EM$ = "ND"
|
||
|
IF M = 3 THEN EM$ = "RD"
|
||
|
M$ = STR$(M) + EM$
|
||
|
FOR K = 1 TO M
|
||
|
READ MO$
|
||
|
NEXT
|
||
|
D = VAL(MID$(DATE$, 4, 2))
|
||
|
ED$ = "TH"
|
||
|
IF D = 1 THEN EM$ = "ST"
|
||
|
IF D = 2 THEN EM$ = "ND"
|
||
|
IF D = 3 THEN EM$ = "RD"
|
||
|
D$ = STR$(D) + ED$
|
||
|
H = INT(VAL(MID$(TIME$, 1, 2)) / 2) - 1
|
||
|
HH = VAL(MID$(TIME$, 1, 2))
|
||
|
IF HH < 12 THEN T$ = STR$(H) + MID$(TIME$, 3, 8) + " A.M."
|
||
|
IF HH > 11 THEN T$ = STR$(H) + MID$(TIME$, 3, 8) + " P.M."
|
||
|
RESTORE
|
||
|
LOCATE 5, 1
|
||
|
PRINT "THE YEAR IS"; Y
|
||
|
PRINT "IT'S "; MO$
|
||
|
PRINT "WHICH IS THE"; M$; " MONTH"
|
||
|
PRINT "IT'S THE"; D$
|
||
|
PRINT "AND THE TIME IS"; T$
|
||
|
PRINT "THE MILITARY TIME IS "; TIME$
|
||
|
LOOP UNTIL INKEY$ <> ""
|
||
|
DATA "JANUARY","FEBRUARY","MARCH","APRIL","MAY","JUNE","JULY","AUGUST","SEPTEMBER","OCTOBER","NOVEMBER","DECEMBER"
|