Question

我试图找出是否有一种更简单的方法来存储格式为MMDDYY的日期。

Function Insert(Source As String, myString As String, i As Integer) As String
    Insert = Mid(Source, 1, i) & myString & Mid(Source, i + 1, Len(Source) - i)
End Function

我的方法涉及使用insert函数在字符串中插入两次正斜杠。这不一定是一个巨大的负担，但知道将来参考会很好。见下文：

Sub Test()

    Dim strDate As String, iDate As Date

    strDate = "100416"
    strDate = Insert(strDate,"/",2) 'MM/DDYY
    strDate = Insert(strDate,"/",5) 'MM/DD/YY
    iDate = CDate(strDate)

End Sub

显然，格式为MMDDYY的数字可能会显示为十进制形式的日期，因此VBS不能很好地使用它。

Answer 1

您应该可以使用DateSerial(Y,M,D)。

试试这个，这会返回 100416 --> 10/04/2016 ：

strDate = "100416"
WScript.Echo strDate & " --> " & DateSerial(Mid(strDate,5,2),Mid(strDate,1,2),Mid(strDate,3,2))

存储日期存储为“MMDDYY”到日期变量

1 个答案: