Text in Datum umwandel vba

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Text in Datum umwandel vba von: Frank
Geschrieben am: 13.02.2005 12:22:04

Hallo,

ich habe den folgenden String:

Tue Dec 9 19:31:31 2003

aus dem ich das Datum als Datum extrahieren möchte.

Die einzelnen Teile, Tag, Monat und Jahr habe ich in Variabeln.
Tag enthält 9
Monat enthält Dec
Jahr enthält 2003
Wenn ich im Direktbereich "Datum3 = #9 dec 2003#" eingebe, wird der String in ein Datum umgewandelt.

Wie bekomme ich diese nun mit Variablen hin?.

Gruss Frank

Bild


Betrifft: AW: Text in Datum umwandel vba von: Ramses
Geschrieben am: 13.02.2005 12:39:48

Hallo

probier mal DateSerial

Debug.Print DateSerial(Jahr,Monat,Tag)

Gruss Rainer


Bild


Betrifft: AW: Text in Datum umwandel vba von: Frank
Geschrieben am: 13.02.2005 13:22:42

Hallo,

als Antwort erhalte ich "Laufzeitfehler 13, Typenunverträglichkeit.
:-(

Gruss Frank


Bild


Betrifft: AW: Text in Datum umwandel vba von: Frank
Geschrieben am: 13.02.2005 13:30:27

Hallo,

ich antworte mir mal gleich selbst.

Wenn ich als Monat eine gültig Zahl einsetzte, funktionierts einwandfrei. Nur leider habe ich keine Zahl sondern die englischen Abkürzungen mit drei Buchstaben.

Hat noch jemand eine Idee?

PS Eine Umwandlung mittels Case kommt wirklich nur als Notlösung in Frage.


Bild


Betrifft: AW: Text in Datum umwandel vba von: Ramses
Geschrieben am: 13.02.2005 14:10:24

Hallo

Dann musst du halt deine Buchstaben in Zahlen verwandeln :-)
Wenn du in Deutschland mit den englischen Bezeichnungen arbeitest, musst du diese in deutsche Monatsbezeichnungen umsetzen


Sub DemoDate()
Dim Tag As String, nTag As String
Dim Monat As String, nMonat As String
Dim Jahr As String, nJahr As String
Tag = "9"
Monat = "Dec"
Jahr = "2004"
MsgBox "Der korrekte Tag: " & Day(DateValue(Tag & "." & convert_Month(Monat) & "." & Jahr))
MsgBox "Der korrekte Monat: " & Month(DateValue(Tag & "." & convert_Month(Monat) & "." & Jahr))
MsgBox "Das korrekte Jahr: " & Year(DateValue(Tag & "." & convert_Month(Monat) & "." & Jahr))
End Sub




Function convert_Month(cMon As String) As String
Select Case UCase(cMon)
    Case "MAR"
        convert_Month = "März"
        Exit Function
    Case "MAY"
        convert_Month = "Mai"
        Exit Function
    Case "JUN"
        convert_Month = "Juni"
        Exit Function
    Case "OCT"
        convert_Month = "Oktober"
        Exit Function
    Case "DEC"
        convert_Month = "Dezember"
        Exit Function
    Case Else
        convert_Month = cMon
End Select
End Function



Viel Spass

Gruss Rainer


Bild


Betrifft: AW: Text in Datum umwandel vba von: Frank
Geschrieben am: 13.02.2005 15:43:01

Hallo,

Danke, wollte ich zwar nict so machen, aber funktioniert einwandfrei.

Gruß Frank


Bild


Betrifft: Wie lauten denn alle englischen Abkürzungen? von: Boris
Geschrieben am: 13.02.2005 14:00:14

Grüße Boris


Bild


Betrifft: AW: Wie lauten denn alle englischen Abkürzungen? von: Frank
Geschrieben am: 13.02.2005 14:37:38

Hallo,

die, die ich gefunden habe lauten

Feb


May
Jun
Jul
Aug
Sep
Oct
Nov
Dec

Ich nehme an das die fehlenden Abkürzungen wie folgt lauten

Jan

Mar
Apr

Sind englische linux Abkürzungen.

Gruß Frank


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Text in Datum umwandel vba"