in VBA Datum aus Jahr, Monat und Tag zusammensetze
04.11.2008 09:55:20
Peter
Ich möchte meiner Funktion tagkurz ein String wie "28.1" oder "1.11" sowie das Jahr, z.B. 2008 übergeben und dann den Wochentag abgekürzt zurückerhalten
Ich habe Probleme, der Variable xdate Jahr, Monat und Tag zuzuordnen.
xdate = date(xJahr,xMonat,xTag)
Was ist hier falsch?
Danke für eine Antwort.
Gruss, Peter
Public Function tagkurz(TTPMM As String, xJahr As Long) As String
Dim xMonat As Long, xTag As Long, Punkt1 As Long, Punkt2 As Long
Dim xDAte As Date
Punkt1 = InStr(TTPMM, ".")
Punkt2 = InStrRev(TTPMM, ".")
xTag = Left(TTPMM, Punkt1 - 1)
xMonat = Mid(TTPMM, Punkt1 + 1, Punkt2 - Punkt1)
xdate = date(xJahr,xMonat,xTag)
tagkurz = WorksheetFunction.Text(xDAte, "TTT")
End Function