PDA

Vollständige Version anzeigen : Sommer / Winterzeit


Devin Miller
02.08.2012, 11:01
Hallo Zusammen,

folgendes Problem plagt mich:
Ich möchte in eine Spalte beginnend von einem Startwert das Datum im Stundenraster fortschreiben.

In der ersten Zeile steht dann bsp. der 01.01.2012 00:00:00, in der zweiten Zeile 01.01.2012 01:00:00 usw. Dies ist ziemlich trivial und lässt sich durch eine Schleife mit Addition von 1/24 lösen. Tückisch ist jedoch die verfluchte Zeitumstellung, also die Wechsel von Sommer- und Winterzeit. Hat hier jmd eine Idee oder sogar fertigen Code?

Dank vorab

Johannes

M Merlin
02.08.2012, 11:26
Hallo,
Sommerzeit und Winterzeit kannst du wie folgt berechnen:


Dim Anfang As Date
Dim Ende As Date
Dim Jahr As Integer
Jahr = 2012
Anfang = DateSerial(Jahr, 4, 1) - Weekday(DateSerial(Jahr, 4, 1), vbMonday) + TimeSerial(3, 0, 0)
Ende = DateSerial(Jahr, 11, 1) - Weekday(DateSerial(Jahr, 11, 1), vbMonday) + TimeSerial(2, 0, 0)


Evtl. Kannst du das Jahr noch berechnen lassen...

Anhand dieser Kriterien kannst du deinen Code anpassen und reagieren...