Countdown Problem

Übersicht

BlitzBasic

Allgemein

	TOONY Betreff: Countdown Problem	Mo, Jul 18, 2005 15:18 Antworten mit Zitat
Ich habe versucht ein Countdown Programm zu erstellen, Leider funktioniert es nicht ganz so wie ich es möche, wer es startet weiß warum! Wer hat eine Lösung für dieses Problem? Code: [AUSKLAPPEN] [EINKLAPPEN] d$= CurrentDate$() t$= CurrentTime$() day=Left(d$,2) mon$=Mid(d$,4,3) If mon$="Jan" Then month=1 If mon$="Feb" Then month=2 If mon$="Mar" Then month=3 If mon$="Apr" Then month=4 If mon$="May" Then month=5 If mon$="Jun" Then month=6 If mon$="Jul" Then month=7 If mon$="Aug" Then month=8 If mon$="Sep" Then month=9 If mon$="Oct" Then month=10 If mon$="Nov" Then month=11 If mon$="Dec" Then month=12 year=Right(d$,4) Print day+"."+ month+"."+ year +" bis zum 01.9.2005" j=2005-year m=9-month d=1-day Print j+" Jahre " +m+" Monate "+ d+" Tage" WaitKey()

TOONY

Betreff: Countdown Problem

Mo, Jul 18, 2005 15:18
Antworten mit Zitat

Ich habe versucht ein Countdown Programm zu erstellen, Leider funktioniert es nicht ganz so wie ich es möche, wer es startet weiß warum!

Wer hat eine Lösung für dieses Problem?

Code: [AUSKLAPPEN]

d$= CurrentDate$()
t$= CurrentTime$()

day=Left(d$,2)
mon$=Mid(d$,4,3)
If mon$="Jan" Then month=1
If mon$="Feb" Then month=2
If mon$="Mar" Then month=3
If mon$="Apr" Then month=4
If mon$="May" Then month=5
If mon$="Jun" Then month=6
If mon$="Jul" Then month=7
If mon$="Aug" Then month=8
If mon$="Sep" Then month=9
If mon$="Oct" Then month=10
If mon$="Nov" Then month=11
If mon$="Dec" Then month=12
year=Right(d$,4)

Print day+"."+ month+"."+ year +" bis zum 01.9.2005"

j=2005-year
m=9-month
d=1-day

Print j+" Jahre " +m+" Monate "+ d+" Tage"

WaitKey()

	Rallimen Sieger des 30-EUR-Wettbewerbs	Mo, Jul 18, 2005 15:31 Antworten mit Zitat
wenn day unter 0 geht dann must du auch 1 Monat abziehen, das gleiche könnt bei Jahren passieren! BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] If 1 - day < 0 Then monat= monat -1 day = 31 - day End If
[BB2D \| BB3D \| BB+]

Rallimen

Sieger des 30-EUR-Wettbewerbs

Mo, Jul 18, 2005 15:31
Antworten mit Zitat

wenn day unter 0 geht dann must du auch 1 Monat abziehen, das gleiche könnt bei Jahren passieren!
BlitzBasic: [AUSKLAPPEN]

If 1 - day < 0 Then 
monat= monat -1 
day = 31 - day
End If

[BB2D | BB3D | BB+]

	Jack	Mo, Jul 18, 2005 17:05 Antworten mit Zitat
Das ist schon oft gefragt worden. Moment, ich such mal schnell in der Forensuche... [EDIT] ...und da ist ja auch schon eins: klick mal hier [/EDIT]
Wer kein HTML kann und lernen will, der ist wirklich dumm... MFG Dennerlein

Jack

Mo, Jul 18, 2005 17:05
Antworten mit Zitat

Das ist schon oft gefragt worden. Moment, ich such mal schnell in der Forensuche...

[EDIT]
...und da ist ja auch schon eins:
klick mal hier
[/EDIT]

Wer kein HTML kann und lernen will, der ist wirklich dumm... MFG Dennerlein

	TheShadow Moderator	Mo, Jul 18, 2005 18:14 Antworten mit Zitat
falscher weg. Man berechnet aus einem Datum das Julianische Datum und dann kann man die 2 Werte einfach voneinander abziehen und Dann muß man nur Tage in Monate und Jahre umrechnen... http://www.blitzbase.de/2c.htm Datumarithmetik
AMD64 3500+ \| GeForce6600GT 128MB \| 1GB DDR \| WinXPsp2

TheShadow

Moderator

Mo, Jul 18, 2005 18:14
Antworten mit Zitat

falscher weg. Man berechnet aus einem Datum das Julianische Datum und dann kann man die 2 Werte einfach voneinander abziehen und Dann muß man nur Tage in Monate und Jahre umrechnen...

http://www.blitzbase.de/2c.htm
Datumarithmetik

AMD64 3500+ | GeForce6600GT 128MB | 1GB DDR | WinXPsp2