|
Hallo zusammen,
Ich habe wieder ein Problem mit dem Datum und bin damit seit Tagen beschäftigt...
Aus einem Formular, das aus mehrere Fields besteht, bekomme ich die Werte getrennt. (ein für den Tag, ein für den Monat...)
Insgesamt habe ich 2 Datum (DateD0 und DateD7). Ich habe aber gemerkt, dass wenn der Tag kleiner ist als der Monat, Excel kehrt die beide um und gibt das falsche Format zurück...
Könnt ihr mir dabei helfen?
Hier der Code:
Dim DateD7, DateD0 As Date
'Pickdate=Formular, woher die Daten kommen.
DateD0 = DateSerial(PickDate.Year0.Value, PickDate.Month0.Value, PickDate.Day0.Value) 'Aus einem Formular: 2017 7 02
DateD0 = Format(DateD0, "mm-dd-yyyy")
'Ergebnis: DateD0= 07.02.2017 (falsches Datum, komischerweise im deutschen Format, und gar nicht was ich will)
DateD0 = Format(DateD0, "mmm-dd-yyyy")
'Ergebnis: DateD0= 02.07.2017 (richtig aber komischerweise im deutschen Format)
DateD7 = DateSerial(PickDate.Year7.Value, PickDate.Month7.Value, PickDate.Day7.Value)
DateD7 = Format(DateD7, "mm-dd-yyyy")
'Gibt immer 07-09-2017 zurück, was ich will.
Danke im Voraus!!
Joanna
|