Question

更新05/03/2019

我使用了汤姆在下面提供的URL中的以下内容。
Function ConvertDate(InputStr As String) As Date

    Dim InputYear As Integer
    Dim InputMonth As Integer
    Dim InputDay As Integer

    'extract year, month and day
    InputYear = Right(InputStr, 4)
    InputMonth = Mid(InputStr, 4, 2)
    InputDay = Left(InputStr, 2)

    'put it together to a real date
    ConvertDate = DateSerial(InputYear, InputMonth, InputDay)
End Function
它以我想要的方式给我日期。但是当我写相同的日期转换为文本文件，日期更改回PC格式，即 MM / DD / YYYY。有办法解决这个问题吗？。

********我有这个excel VBA代码，它从另一个具有DD.MM.YYYY格式的大型机应用程序捕获日期，一旦捕获，我试图将其更改回以下格式YYYY / MM / DD我已将以下格式应用于Excel的date_value列。 Sheet1.Range（“ A2”，“ A50000”）。NumberFormat =“ yyyy / mm / dd”这就是我从大型机程序捕获日期值的方式。 Cells（noRow，9）.Value = Trim（MyHost.TextRC（5，68，12））当我运行程序时，它不会按照我想要的方式更改日期格式。我的PC日期格式设置为以下MM / DD / YYYY。任何提示或指导都将受到高度赞赏。****

更改已捕获到Excel的日期的格式

0 个答案: