CLS
dney = 366
chasov = 23
minut = 59
sek = 60
DO UNTIL sek = 0 AND chasov = 0 AND minut = 0 AND dney = 0
sek = sek - 1
IF sek = 0 THEN sek = 59
IF sek = 0 THEN minut = minut - 1
IF minut = 0 THEN minut = 59
IF minut = 0 THEN chasov = chasov - 1
IF chasov = 0 THEN chasov = 23
IF chasov = 0 THEN dney = dney - 1
nedel = dney \ 7
CLS
PRINT "nedel", "dney", "chasov", "minut", "sekund"
PRINT nedel, dney, chasov, minut, sek
SLEEP 1
LOOP
Тестирование выполнено в программе QB64 ( Скачать )