Ich erstelle eine Funktion, die Oktal in Dezimal nach Datum konvertiert. Ich mache bereits den Teil von Octal in Dezimal zu Datum, aber ich kann nicht das Format yyyy-mm-dd
bekommen. Hier ist mein Code:Datumsformat funktioniert nicht MM/TT/JJJJ bis JJJJ/MM/TT
Public Function OctToDate(ByVal OctDate As String) As String
Dim LDate As Long
Dim ODate As String
Dim StrDate As String
Dim PlainDate As Date
ODate = OctDate
LDate = CLng("&O" & ODate)
StrDate = CDate(Format(LDate, "####/##/##"))
PlainDate = Format(StrDate, "yyyy-mm-dd")
MsgBox (PlainDate)
End Function
Aber das Ergebnis, das ich immer bekommen, ist 10/15/2017
und das Ergebnis, dass ich will, ist 2017-10-15
jemand kann mir helfen? im stecken
Kann mir jemand erklären, warum ich einen Downvote bekomme? –
Ich weiß nicht viel VB6, aber es sieht so aus, als ob Sie versuchen, eine * Zeichenkette * ('Format $ (StrDate, ...)') neu zu formatieren - das sieht nicht richtig für mich aus. Sie ignorieren dann auch das Ergebnis von 'PlainDate' und drucken stattdessen' StrDate'. Außerdem entspricht das Format im Text Ihrer Frage nicht dem Titel. –
@JonSkeet Tut mir leid, ich habe vergessen, meinen Code zu aktualisieren, weil ich versuchte, '$' zu versuchen, wenn es funktioniert, aber es immer noch nicht funktioniert. Ich bekomme keinen Fehler, also habe ich keine Ahnung, was falsch ist. –