Datum prüfen

Übersicht

BlitzBasic

Beginners-Corner

	Der Eisvogel Betreff: Datum prüfen	So, Dez 09, 2007 22:18 Antworten mit Zitat
Hallo inzwischen weiß ich ja wie man feststellt ob einen Variable zwischen zwei Zahlen ist. Jetzt würd ich gerne noch wissen wie man prüft ob das Datum zwischen dem 1. Dezember und dem 31 Dezember liegt. Ich habe es folgendermasen versucht: Code: [AUSKLAPPEN] [EINKLAPPEN] If date$=>1 Dec And <31 Dec Then ... date$=CurrentDate$() Aber da kam die Meldung "Expecting end-of-line".

Der Eisvogel

Betreff: Datum prüfen

So, Dez 09, 2007 22:18
Antworten mit Zitat

Hallo
inzwischen weiß ich ja wie man feststellt ob einen Variable zwischen zwei Zahlen ist.
Jetzt würd ich gerne noch wissen wie man prüft ob das Datum zwischen dem 1. Dezember und dem 31 Dezember liegt.

Ich habe es folgendermasen versucht:
Code: [AUSKLAPPEN]

If date$=>1 Dec And <31 Dec Then ...
date$=CurrentDate$()

Aber da kam die Meldung "Expecting end-of-line".
Sad

	The_Nici	So, Dez 09, 2007 22:21 Antworten mit Zitat
du musst den String in zahlen umwandeln. Dazu musst du es in ein Integer umwandeln Mid, Right, Left, Int auf BlitzBase nachschlagen. EDIT: Und vorallem musst du eine Variable vor der Benutzung deklarieren.

The_Nici

So, Dez 09, 2007 22:21
Antworten mit Zitat

du musst den String in zahlen umwandeln. Dazu musst du es in ein Integer umwandeln
Mid, Right, Left, Int auf BlitzBase nachschlagen. Smile

EDIT: Und vorallem musst du eine Variable vor der Benutzung deklarieren.

	Der Eisvogel	So, Dez 09, 2007 22:24 Antworten mit Zitat
des versteh ich net

Der Eisvogel

So, Dez 09, 2007 22:24
Antworten mit Zitat

des versteh ich net

	The_Nici	So, Dez 09, 2007 22:27 Antworten mit Zitat
zeichenketten haben keine Integer-Werte. Du kannst also nicht a$, das "10" ist zu b$, das "5" ist, addieren, dass es 15 gibt, das würde 105 geben. Es müsste a%+b% sein. Und die zahlen ohne Klammern. Und wenn du das nicht verstehst, dann geh mal auf www.robsite.de

The_Nici

So, Dez 09, 2007 22:27
Antworten mit Zitat

zeichenketten haben keine Integer-Werte. Du kannst also nicht a$, das "10" ist zu b$, das "5" ist, addieren, dass es 15 gibt, das würde 105 geben. Es müsste a%+b% sein. Und die zahlen ohne Klammern.
Und wenn du das nicht verstehst, dann geh mal auf www.robsite.de

	Der Eisvogel	So, Dez 09, 2007 22:33 Antworten mit Zitat
da war ich schon. weißt du denn wie man das ganze schreiben müsste? wenn ja, könntest du ihn mir vielleicht schicken?

Der Eisvogel

So, Dez 09, 2007 22:33
Antworten mit Zitat

da war ich schon.
weißt du denn wie man das ganze schreiben müsste?
wenn ja, könntest du ihn mir vielleicht schicken?

	Xeres Moderator	So, Dez 09, 2007 22:39 Antworten mit Zitat
Alles in Zahlen bearbeiten, nur in Stings ausgeben, d.h. Monate 1-12 Tage 1-31 usw. dann Kannst du Abfragen ob Dezember ist (Monat=12) und ob es in dem Tagesbereich ist (tage =>1 And =< tage 31). Für eine Ausgabe musst du die entsprechenden Strings zu den Zahlen zusammenfügen.
Win10 Prof.(x64)/Ubuntu 16.04\|CPU 4x3Ghz (Intel i5-4590S)\|RAM 8 GB\|GeForce GTX 960 Wie man Fragen richtig stellt \|\| "Es geht nicht" \|\| Video-Tutorial: Sinus & Cosinus THERE IS NO FAIR. THERE IS NO JUSTICE. THERE IS JUST ME. (Death, Discworld)

Xeres

Moderator

So, Dez 09, 2007 22:39
Antworten mit Zitat

Alles in Zahlen bearbeiten, nur in Stings ausgeben, d.h.
Monate 1-12
Tage 1-31
usw.
dann Kannst du Abfragen ob Dezember ist (Monat=12) und ob es in dem Tagesbereich ist (tage =>1 And =< tage 31). Für eine Ausgabe musst du die entsprechenden Strings zu den Zahlen zusammenfügen.

Win10 Prof.(x64)/Ubuntu 16.04|CPU 4x3Ghz (Intel i5-4590S)|RAM 8 GB|GeForce GTX 960
Wie man Fragen richtig stellt || "Es geht nicht" || Video-Tutorial: Sinus & Cosinus
THERE IS NO FAIR. THERE IS NO JUSTICE. THERE IS JUST ME. (Death, Discworld)

	hectic Sieger des IS Talentwettbewerb 2006	So, Dez 09, 2007 22:40 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] Local datum$=CurrentDate() Local tag=Int(Mid$(datum,1,2)) Local jahr=Int(Mid$(datum,8,4)) Print "Datum: "+datum Print "Tag: "+tag Print "2 mal Tag: "+tag*2 WaitKey End
Download der Draw3D2 V.1.1 für schnelle Echtzeiteffekte über Blitz3D

hectic

Sieger des IS Talentwettbewerb 2006

So, Dez 09, 2007 22:40
Antworten mit Zitat

Code: [AUSKLAPPEN]

Local datum$=CurrentDate()
Local tag=Int(Mid$(datum,1,2))
Local jahr=Int(Mid$(datum,8,4))

Print "Datum: "+datum
Print "Tag: "+tag
Print "2 mal Tag: "+tag*2

WaitKey
End

Download der Draw3D2 V.1.1 für schnelle Echtzeiteffekte über Blitz3D

	Der Eisvogel	So, Dez 09, 2007 22:44 Antworten mit Zitat
ja aber ich versteh nicht wie man das dann schreiben muss.

Der Eisvogel

So, Dez 09, 2007 22:44
Antworten mit Zitat

ja aber ich versteh nicht wie man das dann schreiben muss.

	hectic Sieger des IS Talentwettbewerb 2006	So, Dez 09, 2007 22:49 Antworten mit Zitat
Du willst das wir dir dein Code schreiben? Alles was auf dieser Seite steht, kann bereits zum Erfolg führen. Code: [AUSKLAPPEN] [EINKLAPPEN] Tag$=Mid$(datum,1,2) ;Für Tag als String IntTag=Int(Mid$(datum,1,2)) ;Für Tag als Integer Monat$=Mid$(datum,4,3) ;Für Monat als String ;Als Int müsste man 12 IF-Abfragen dazu machen Jahr$=Mid$(datum,8,4) ;Für Jahr als String IntJahr=Int(Mid$(datum,8,4)) ;Für Jahr als Integer Das Parsen solltest du selbst machen, denn sonst lernst du es nicht
Download der Draw3D2 V.1.1 für schnelle Echtzeiteffekte über Blitz3D

hectic

Sieger des IS Talentwettbewerb 2006

So, Dez 09, 2007 22:49
Antworten mit Zitat

Du willst das wir dir dein Code schreiben?

Alles was auf dieser Seite steht, kann bereits zum Erfolg führen.

Code: [AUSKLAPPEN]

Tag$=Mid$(datum,1,2) ;Für Tag als String
IntTag=Int(Mid$(datum,1,2)) ;Für Tag als Integer

Monat$=Mid$(datum,4,3) ;Für Monat als String
;Als Int müsste man 12 IF-Abfragen dazu machen

Jahr$=Mid$(datum,8,4) ;Für Jahr als String
IntJahr=Int(Mid$(datum,8,4)) ;Für Jahr als Integer

Das Parsen solltest du selbst machen, denn sonst lernst du es nicht

Download der Draw3D2 V.1.1 für schnelle Echtzeiteffekte über Blitz3D

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

Datum prüfen

Betreff: Datum prüfen