---

Hi,

is steh nun mal wieder im Wald.

ich versuch in VB einen String in ein Datum zu Konvertieren.
Aber VB will net so wie ich will.

Ich habe die Strings "7/1/2008" und "7/16/2008".
Beide will ich in Date umwandeln.

Private Sub Form_Load()
Dim a1 As String
Dim a2 As String

a1 = "7/1/2008"
a2 = "7/16/2008"
MsgBox (CDate(a1) & "  " & CDate(a2))

End Sub

VB spukt mir als Ergebnis aus "07.01.2008 16.07.2008".
Das kann doch net sein. Es sollte lauten 01.07.2008 und 16.07.2008

MfG
AMG

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

und Willkommen in der wunderbaren Welt des Datums.

Du kannst es nicht definitiv Lösen, jedenfalls nicht wenn deine Systemeinstellungen von deinen Eingabe Daten sich Unterscheiden.

In deinem Fall hast du ein US-Datum das du in das "Deutsche" Datum konvertieren willst... wobei die CDate Funktion dabei die im Systemeingestellte Region ermittelt -  und anhand deren Datumsformat dir einen Datumsstring formatiert. -> einen 1.16 gibt es nicht also musst du den 16.1 meinen. Den 7.1. gibt es also bekommst du den als Ergebniss...

Code:

---

Sub Test()
    Dim a1 As String
    Dim a2 As String
        a1 = "7/1/2008"
        a2 = "1/16/2008"
   
    Dim a1Date As Date
    Dim a2Date As Date
        a1Date = CDate(Format(a1, "MM.dd.YYYY"))
        a2Date = CDate(Format(a2, "MM.dd.YYYY"))
       
    MsgBox (CDate(a1Date) & "  " & CDate(a2Date))

End Sub

---

------------------
Stell dir vor, es geht, und keiner kriegts hin.

  

Zitat:

---

Interpunktion und Orthographie des Postings sind frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP