ohh man mach doch einfach n kleinen zähler der da sagt:

If stunde = 24 then
stunde= 0
tag = tag +1
end if

select case tag
case 1 : Print "Montag"
case 2 : Print "Dienstag"
.
.
.
dann noch ne kleine if anweisung:

if tag >7 then
tag = 0
woche = woche +1
end if
dann haste sogar n Kalenderwochenzähler noch mit drin
kannst natürlich auch weglassen und so einfach tag auf 0 setzen.
Kannst das auch so machen, das du mit Case Else arbeitest , da würdest du dir die eine if anweisung sparen und einfach sagen:

case select : tag = 0

gruß Hunni