csv Export speziellen Datumformat

Guten Tag, ich möchte mich heute hier an die Gemeinde wenden mit folgender Problematik.
Ich habe eine Excel Tabelle "Fahrplanerzeugung_Kraftwerk", in der ich täglich von 0:00 bis 24:00 im 15 min Taktung Daten der Erzeugung eingebe (Diese Tabelle wird von einer anderen gespeist). Im Anschluß sollen die Daten aus diesem Tag versendet werden, allerdings nicht wie in der Datei "Fahrplanerzeugung_Kraftwerk".
Das ganze soll im csv Format versendet werden. Dabei soll die Spalte A das Datum und Uhrzeit mit folgendem Format haben.
2021-03-09 03:45:00+01:00
Und in Spalte B steht die jeweils eingegebene Leistung.
+01:00 (Winterzeit) +02:00 (Sommerzeit). Dies sollte er beim Export in die CSV gleich berücksichtigen und an den Umstellungstagen die Stunde von 01:00 auf 03:00 Uhr springen bzw umgekehrt.
Beispiel
2021-03-28 01:00:00+01:00
2021-03-28 01:15:00+01:00
2021-03-28 01:30:00+01:00
2021-03-28 01:45:00+01:00
2021-03-28 03:00:00+02:00
2021-03-28 03:15:00+02:00
2021-03-28 03:30:00+02:00
2021-03-28 03:45:00+02:00
2021-03-28 04:00:00+02:00
https://www.herber.de/bbs/user/147411.xlsm
Ich hoffe ich habe alles ausreichend beschrieben.
Für hilfreiche Tipps würde ich mich riesig freuen und sage schonmal danke.
Mfg Mathias

Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Mathias,
eine sehr interessante Frage, die nicht ganz einfach zu google ist.
Es geht darum, die lokale Zeit inklusiv UTC-Offset zu zeigen. Es schient dafür keine eigene Excel-Datumsformat, bzw. habe keins gefunden.
Alternativ wäre die anzeige als Zulu-Time. Siehe auch: https://de.wikipedia.org/wiki/ISO_8601
mMn geht es am leichtesten mit einer UDF (User Defined Function), die aber einen String zurückgibt, was unter Umstand dazu führen wird, dass dieses Feld zwischen "" in dem CSV-Export rauskommen wird.


Public Function UTC(Datum As Date) As String
Dim dt As Object
If IsDate(Datum) Then
Set dt = CreateObject("WbemScripting.SWbemDateTime")
dt.SetVarDate (Datum)
UTC = Format(DateSerial(dt.Year, dt.Month, dt.Day) + TimeSerial(dt.hours, dt.minutes, dt.seconds), "DD.MM.YYY hh:mm:ss") & Format(dt.UTC, "+;-") & Format(TimeSerial(0, Abs(dt.UTC), 0), "hh:mm")
End If
End Function

(basierend auf https://stackoverflow.com/questions/1600875/how-to-get-the-current-datetime-in-utc-from-an-excel-vba-macro )
Ein Test mit "=JETZT()" in A1, und drunter =A1+10, bzw =A18+1 ab Zeile 19, zeigt, dass der Rückkehr zu Winterzeit in der Nacht vom 30. zu 31.10. dieses Jahr stattfinden wird.
VG
Yal

Beliebteste Forumthreads (12 Monate)

csv Export speziellen Datumformat

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread