2017-10-02 3 views
0

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

+0

Kann mir jemand erklären, warum ich einen Downvote bekomme? –

+0

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. –

+0

@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. –

Antwort

1

Die Antwort ist über Datentyp

Vorher:

Dim PlainDate As Date

Nach:

Dim PlainDate As String

I PlainDate als Datum zu erklären, aber die Format kehrt strings das ist, warum es tut ändere das Format nicht. Danke, dass du mir geholfen hast

0

Hier ist die Antwort mit dem Codebeispiel ::

https://msdn.microsoft.com/en-us/library/aa241719(v=vs.60).aspx

ich Ihnen helfen hoffen.

+0

Ich habe es schon versucht und es gibt das gleiche Ergebnis zurück. Ich weiß nicht, was das Problem ist –

+0

@Feras, um Ihre Antwort zu verbessern, sollten Sie die relevanten Teile von Ihrem Link reproduzieren. Die Verbindung kann eines Tages verschwinden. – DaveInCaz

Verwandte Themen