請看看我的問題。背景資料：ItemB - 日期型別的欄位，其格式為 YYMMDDHHNN inptdate - 用于輸入 YYMMDDHHNN 格式的資料的 textBox 需要什么，將資料從字串格式（inptdate）轉換為日期格式（ItemB）
我的方式
Private Sub Idate_AfterUpdate()
Dim mydate As String
mydate = "2212131400"
inptdate= mydate
Me.ItemB = CDate(Mid(mydate, 6, 2) & "," & Mid(mydate, 4, 2) & "," & Mid(mydate, 2, 2) & " " & Mid(mydate, 8, 2) & ":" & Mid(mydate, 10, 2))
End Sub
但我的代碼執行時出現“型別不匹配”錯誤
uj5u.com熱心網友回復：
您可以使用 Format 和 CDate：
Dim TrueDate As Date
mydate = "2212131400"
TrueDate = CDate("20" & Format(mydate, "@@\/@@\/@@ @@\:@@"))
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/380628.html
上一篇：vba訪問試圖讓變數欄位名作業