mit Datum rechnen

Rebon · Beitrag von **Rebon** » 26.05.2009 07:48

@MrVain
Ich hab ein bischen mit deinem Programm herumexperimentiert.
Ich hoffe du nimmst es mir nicht übel.

Global START_ZEIT$
Global END_ZEIT$
Global DATUM_WERT$
Global DATUM_START$
Global DATUM_END$
Global START_WERT$
Global END_WERT$
Global x
Global v = 2
Global Datum$
Global Sekunden
Global WertDatumAlt$
Global WertDatumNeu$

Procedure WerteSuchen()
START_WERT$ = Mid(START_ZEIT$, x, v)
END_WERT$ = Mid(END_ZEIT$, x, v)

If x = 7 Or x = 4
   WertDatumAlt$ = START_WERT$ + WertDatumAlt$
   WertDatumNeu$ = END_WERT$ + WertDatumNeu$ 
 Else
   WertDatumAlt$ + START_WERT$
   WertDatumNeu$ + END_WERT$
EndIf
EndProcedure


Procedure NeuerWertLinks(Zeichen$)
DATUM_START$ = Mid(START_WERT$, 1, v) + Zeichen$ + DATUM_START$
DATUM_END$ = Mid(END_WERT$, 1, v) + Zeichen$ + DATUM_END$
EndProcedure

Procedure NeuerWertRechts(Zeichen$)
DATUM_START$ = DATUM_START$ + Zeichen$ + Mid(START_WERT$, 1, v)
DATUM_END$ = DATUM_END$ + Zeichen$ + Mid(END_WERT$, 1, v)
EndProcedure

START_ZEIT$ = "20.12.2009 10:35:11"
END_ZEIT$ = "20.12.2009 11:25:11"
        
For x = 1 To y = Len(START_ZEIT$)

Select x

;Tag
Case 1
WerteSuchen()
NeuerWertLinks("")

;Monat
Case 4
WerteSuchen()
NeuerWertRechts(".")

;Jahr
Case 7
v = 4
WerteSuchen()
NeuerWertRechts(".")
v = 2 
AltesDatum$ = DATUM_START$
NeuesDatum$ = DATUM_END$
DatumZahlAlt$ = WertDatumAlt$
DatumZahlNeu$ = WertDatumNeu$
DATUM_START$ = ""
DATUM_END$ = ""
WertDatumAlt$ = ""
WertDatumNeu$ = ""

;Stunden
Case 12
WerteSuchen()
NeuerWertRechts("")

;Minuten
Case 15
WerteSuchen()
NeuerWertRechts(":")

;Sekunden
Case 18
WerteSuchen()
NeuerWertRechts(":")
AlteZeit$ = DATUM_START$
NeueZeit$ = DATUM_END$
ZeitZahlAlt$ = WertDatumAlt$
ZeitZahlNeu$ = WertDatumNeu$
DATUM_START$ = ""
DATUM_END$ = ""
WertDatumAlt$ = ""
WertDatumNeu$ = ""

EndSelect

Next x
 
Sekunden = ParseDate("%yyyy%mm%dd%hh%ii%ss", DatumZahlNeu$ + RSet(ZeitZahlNeu$,6,"0")) - ParseDate("%yyyy%mm%dd%hh%ii%ss", DatumZahlAlt$ + RSet(ZeitZahlAlt$,6,"0")) 

Debug "Startdatum: " + AltesDatum$
Debug "Enddatum: " + NeuesDatum$
Debug "Startdatumszahl: " + DatumZahlAlt$
Debug "Enddatumszahl: " + DatumZahlNeu$
Debug "Startzeit: " + NeueZeit$
Debug "Endzeit: " + AlteZeit$
Debug "Startzeitzahl: " + ZeitZahlNeu$
Debug "Endzeitzahl: " + ZeitZahlAlt$
Debug "Sekunden: " + Str(Sekunden)

End

Code gespacet - Kaeru fecit

Rebon · Beitrag von **Rebon** » 26.05.2009 08:12

Rebon hat geschrieben:@MrVain

Code: Alles auswählen

Sekunden = ParseDate ("%yyyy%mm%dd%hh%ii%ss",DatumZahlNeu$ + RSet(ZeitZahlNeu$,6,"0")) - ParseDate("%yyyy%mm%dd%hh%ii%ss", DatumZahlAlt$ + RSet(ZeitZahlAlt$,6,"0"))

Das ist eine ganze Zeile!

War in der Vorschau auch noch so.

Code gespacet - Kaeru fecit
Überflüssigen Code-Tag entfernt - Andesdaf

Kaeru Gaman · Beitrag von **Kaeru Gaman** » 26.05.2009 14:03

Rebon hat geschrieben:Das ist eine ganze Zeile!

War in der Vorschau auch noch so.

wie breit jemand sein Brauserfenster macht, ist jedem seine sache.
Und es ist tierisch nervig, den horizontalen scrollbalken benutzen zu müssen.
also damit das Forenlayout nicht vergewaltigt wird, macht man spaces in die Codezeile, damit der Brauser es umbrechen kann.
trotzdem kann man es per Copy/Paste in die IDE kopieren und es bleibt eine einzige Zeile.

... eigentlich macht man sowieso einige spaces in seine codezeilen, damit man sie besser lesen kann.

Rebon · Beitrag von **Rebon** » 26.05.2009 15:47

Kaeru Gaman hat geschrieben:
wie breit jemand sein Brauserfenster macht, ist jedem seine sache.
Und es ist tierisch nervig, den horizontalen scrollbalken benutzen zu müssen.
also damit das Forenlayout nicht vergewaltigt wird, macht man spaces in die Codezeile, damit der Brauser es umbrechen kann.
trotzdem kann man es per Copy/Paste in die IDE kopieren und es bleibt eine einzige Zeile.

... eigentlich macht man sowieso einige spaces in seine codezeilen, damit man sie besser lesen kann.

Es ist eine einzige Zeile mit Überlänge, das wird man wohl noch
verkraften.

Ausserdem ist das aber immer noch kein Grund weshalb es in der Vorschau nicht angezeigt wird.

Beitrag von **Andesdaf** » 26.05.2009 15:56

Bei mir wird schon in der Vorschau das Layout zerstört.

Rebon · Beitrag von **Rebon** » 26.05.2009 16:02

Andesdaf hat geschrieben:Bei mir wird schon in der Vorschau das Layout zerstört.

Dann liegt es an meinem Browser(Mozilla) oder hab ich irgendwas falsch
gemacht?

Btw. Gibt es in PureBasic eine möglichkeit, mit einem Zeichen
den Compiler zu veranlassen zwei Zeilen als eine
zu compilieren?

Kann mich an sowas errinern, es ist aber auch gut möglich
das es bei einer anderen Programmiersprache war.

In der Help fand ich nichts dazu oder übersehen?

Beitrag von **Andesdaf** » 26.05.2009 16:04

Rebon hat geschrieben:Btw. Gibt es in PureBasic eine möglichkeit, mit einem Zeichen
den Compiler zu veranlassen zwei Zeilen als eine
zu compilieren?

Von Purebasic selbst aus nicht.

aber: http://www.purebasic.fr/german/viewtopic.php?t=10350

Rebon · Beitrag von **Rebon** » 26.05.2009 16:12

Andesdaf hat geschrieben:
Rebon hat geschrieben:Btw. Gibt es in PureBasic eine möglichkeit, mit einem Zeichen
den Compiler zu veranlassen zwei Zeilen als eine
zu compilieren?
Von Purebasic selbst aus nicht.

aber: http://www.purebasic.fr/german/viewtopic.php?t=10350

Danke Andesdaf!

Kaeru Gaman · Beitrag von **Kaeru Gaman** » 26.05.2009 16:44

Rebon hat geschrieben:
Andesdaf hat geschrieben:
Rebon hat geschrieben:Btw. Gibt es in PureBasic eine möglichkeit, mit einem Zeichen
den Compiler zu veranlassen zwei Zeilen als eine
zu compilieren?
Von Purebasic selbst aus nicht.

aber: http://www.purebasic.fr/german/viewtopic.php?t=10350
Danke Andesdaf!

das ist doch in diesem Falle völlig unnötig!

Kaeru Gaman hat geschrieben:trotzdem kann man es per Copy/Paste in die IDE kopieren und es bleibt eine einzige Zeile.

also nochmal langsam zum mitdenken:
es ist völlig egal, mit wieviel Zeilenumbrüchen das im Brauser angezeigt wird,
wenn du es rauskopierst, ist es wieder eine einzige Codezeile.

Rebon hat geschrieben:Dann liegt es an meinem Browser(Mozilla)

nein, es liegt an der Auflösung deines Desktops, bzw. mit wieviel Pixel breite du das Brauserfenster anzeigen läßt.

Rebon hat geschrieben:oder hab ich irgendwas falsch gemacht?

ja, du liest nur die Hälfte, oder denkst nicht mit.

Rebon hat geschrieben:Es ist eine einzige Zeile mit Überlänge, das wird man wohl noch
verkraften.

völlig egal, ob eine oder dreitausend, der Brauser wird gezwungen,
das Forenlayout breiter als sein Fenster zu machen.

und wenn man nach rechts scrollen muss, um das Forum zu bedienen,
nur weil ein einziger User nicht mitdenkt und eine einzige zu lange Zeile in seinen Code einbaut,
die dadurch sowieso unlesbar wird, mit spaces besser zu lesen wäre,
dann nervt das einfach, und einige Kollegen, die vielleicht sowieso schon angenervt sind,
wegen der Hitze, schlechter Klimatisierung und nervigen Aufgaben im Job,
reagieren auf Solches dann unter Umständen unerwartet pampig.

.... ich hoffe, das war jetzt ausführlich genug, um den Kern der Sache rüber zu bringen.

Rebon · Beitrag von **Rebon** » 26.05.2009 16:58

Kaeru Gaman hat geschrieben: völlig egal, ob eine oder dreitausend, der Brauser wird gezwungen,
das Forenlayout breiter als sein Fenster zu machen.

und wenn man nach rechts scrollen muss, um das Forum zu bedienen,
nur weil ein einziger User nicht mitdenkt und eine einzige zu lange Zeile in seinen Code einbaut,
die dadurch sowieso unlesbar wird, mit spaces besser zu lesen wäre,
dann nervt das einfach, und einige Kollegen, die vielleicht sowieso schon angenervt sind,
wegen der Hitze, schlechter Klimatisierung und nervigen Aufgaben im Job,
reagieren auf Solches dann unter Umständen unerwartet pampig.

.... ich hoffe, das war jetzt ausführlich genug, um den Kern der Sache rüber zu bringen.

Tut mir leid, als ich den Code schrieb, hab ich tatsächlich nicht
mitgedacht, da ich in erster Linie zum experimentieren geschrieben
habe.

Ich werde das nächste mal 2 Versionen schreiben, eine für PureBasic
und eine für das Forum.