日期格式不工作mm / dd / yyyy到yyyy / mm / dd

Question

我正在创建一个将八进制转换为十进制到日期的函数。我已经将转换八进制的部分转换为十进制到日期但我无法获得格式yyyy-mm-dd。这是我的代码：

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

但我总得到的结果是10/15/2017而我想要的结果是2017-10-15任何人都可以帮助我吗？我卡住了

Answer 1

答案是关于数据类型

在：

Dim PlainDate As Date

后：

Dim PlainDate As String

我将PlainDate声明为日期，但Format返回strings，这就是为什么它不会更改格式。谢谢你的帮助

Answer 2

以下是代码示例::

的答案

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

我希望能帮助你。