Vb6 存储日期存储为"；MMDDYY“；添加到日期变量

我试图从我一直在做的事情中找出是否有一种更简单的方法来存储格式化为

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不能很好地接受它

您应该能够使用

DateSerial（Y，M，D）

尝试此操作，将返回2016年4月10日的

100416-->

：

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

---

VBScript中没有Insert（），因此请指定正确的语言。这是标记的VBScript，但您的代码或给出的答案都没有使用VBScript语法，您实际使用的是什么？在VBScript中，您将使用类似

Mid（）

的内容，而不是

Insert（）

或构建自己的

Insert（）版本使用
Mid（）的
。我猜代码中的
Insert（）
函数是指VB.Net中的
String.Insert（）
方法？？我就
Insert
问题道歉。我已经更新了我的问题以包含我的函数。仍然不是VBScript，因为声明是无类型的
，因为没有使用
，只有VBA、VB或VB.Net使用该语法。我们仍然不知道它是否是VBScript，正如他们的代码所建议的那样，但这在VBScript中是一种有效的方法。经常使用
DateSerial（）
，非常有效。再加上一个。除了
WScript.Echo
应该是
Debug.Print
：）之外，它也可以在VB6或VBA中工作