AppTitle "Sekunden bis Sylvester
Graphics 350,100,16,2
SetBuffer BackBuffer()

Dim word_to_int$(12)
word_to_int$(11)="Jan":word_to_int$(5) ="Jul"
word_to_int$(10)="Feb":word_to_int$(4) ="Aug"
word_to_int$(9)="Mar":word_to_int$(3) ="Sep"
word_to_int$(8)="Apr":word_to_int$(2)="Oct"
word_to_int$(7)="May":word_to_int$(1)="Nov"
word_to_int$(6)="Jun":word_to_int$(0)="Dec"

timer = MilliSecs()
Repeat
date$ = CurrentDate$()
time$ = CurrentTime$()
tage = 0
stunden = 0
sekunden = 0
msec = 0

Select Mid$(date$,4,3)
Case "Jan"
tage = tage + 30+31+30+31+31+30+31+30+31+28+31
tage = tage + 31-Int(Left$(date$,2))
Case "Feb"
tage = tage + 30+31+30+31+31+30+31+30+31+28
tage = tage + 28-Int(Left$(date$,2))
Case "Mar"
tage = tage + 30+31+30+31+31+30+31+30+31
tage = tage + 31-Int(Left$(date$,2))
Case "Apr"
tage = tage + 30+31+30+31+31+30+31+30
tage = tage + 30-Int(Left$(date$,2))
Case "May"
tage = tage + 30+31+30+31+31+30+31
tage = tage + 31-Int(Left$(date$,2))
Case "Jun"
tage = tage + 30+31+30+31+31+30
tage = tage + 30-Int(Left$(date$,2))
Case "Jul"
tage = tage + 30+31+30+31+31
tage = tage + 31-Int(Left$(date$,2))
Case "Aug"
tage = tage + 30+31+30+31
tage = tage + 31-Int(Left$(date$,2))
Case "Sep"
tage = tage + 30+31+30
tage = tage + 30-Int(Left$(date$,2))
Case "Oct"
tage = tage + 30+31
tage = tage + 31-Int(Left$(date$,2))
Case "Nov"
tage = tage + 30
tage = tage + 30-Int(Left$(date$,2))
Case "Dec"
tage = tage + 0
tage = tage + 31-Int(Left$(date$,2))

End Select

If Int(Right$(date$,4)) Mod 4 = 0 Then tage = tage + 1

stunden = tage * 24
stunden = stunden + 24-(Int(Left$(time$,2))+1)

sekunden = stunden * 3600
sekunden = sekunden + (60-Int(Mid$(time$,4,2))-1)*60
sekunden = sekunden + 60-Int(Right$(time$,2))

msec = sekunden*1000
msec = msec + 1000-(MilliSecs()-timer) Mod 999

Text 0,0,date
Text 0,10,time
Text 0,20,"Tage bis Sylvester : "+ Str$(tage)
Text 0,30,"Stunden bis Sylvester : "+ Str$(stunden)
Text 0,40,"Sekunden bis Sylvester : "+ Str$(sekunden)
;Text 0,50,"Millisekunden bis Sylvester : "+ Str$(msec)

Flip
Cls
Until KeyHit(1)
End