文本框到日期 MS Access答案

【问题标题】：textBox to Date MS Access文本框到日期 MS Access
【发布时间】：2022-01-17 16:37:08
【问题描述】：

请看看我的问题。背景数据：ItemB - 日期类型的字段，格式为 YYMMDDHHNN inptdate - YYMMDDHHNN 格式的输入数据的文本框需要什么，将数据从字符串格式（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

但我的代码执行时出现“类型不匹配”错误

【问题讨论】：

我认为您的分隔符有误？使用 DateSerial 和 timeserial
感谢您的贡献，但我不这么认为，因为我已经在表单中有相同的代码
日期没有逗号 - 首先转换为正常日期，然后根据需要格式化。

标签： vba ms-access

【解决方案1】：

您可以使用 Format 和 CDate：

Dim TrueDate As Date

mydate = "2212131400"
TrueDate = CDate("20" & Format(mydate, "@@\/@@\/@@ @@\:@@"))

【讨论】：