10... 9... 8... 7... 6... 5... 1... Countdown

[whitetiger0990]

I was trying to make a program use the DAE$ and TIME$ funtions to countdown the days / min / hours left till a certain time

Code:

CLS
DO
LOCATE 1, 1
PRINT DATE$, " current date"

t = VAL(LEFT$(TIME$, 2))
IF t > 12 THEN t = t - 12: ampm$ = " PM" ELSE ampm$ = " AM"
tme$ = LTRIM$(STR$(t)) + RIGHT$(TIME$, 6)
PRINT tme$ + ampm$, " current time"

tim$ = ""

FOR i = 1 TO 9 STEP 3
tim$ = tim$ + LTRIM$(STR$(VAL(MID$("23:59:59", i, 2)) - VAL(MID$(TIME$, i, 2)))) + ":"
NEXT i
IF MID$(tim$, LEN(tim$), 1) = ":" THEN MID$(tim$, LEN(tim$), 1) = " "
tim$ = RTRIM$(tim$)
PRINT tim$, " until midnight";
LOOP UNTIL LEN(INKEY$)

[Antoni Gual]

And?

[whitetiger0990]

I need help? Plz?

[Antoni Gual]

You could convert target time-date to seconds, and store it in a LONG . Then, at intervals you convert present time-date to seconds. You have in this way both values in the same units so you can substract them and display the result.

[whitetiger0990]

what? im still confused

[toonski84]

he's saying convert the day and time and all that into seconds. like a julian day number. with seconds.

of course, my suggestion would be to just calculate the julian day number, and the seconds offset. there's a number of javascript routines on the 'net, and they're easy to cross over.