Ada*_*cha 2 ms-access datetime vba
第一季度
是否有一种方法可以在 MS Access 中处理 ISO 8601 日期。我需要能够在 VBA 代码中使用 date: 2010-05-31T06:00:00 。我还需要能够在 5/31/10 6:00am 输入其他格式
Q2
我正在NoSQL
数据库(例如 Firebase)中保存日期和时间,并且还将检索数据和时间戳。因此需要一个在访问数据和时间数据类型和 ISO 8601 日期之间来回转换的函数。
创建一个模块并粘贴以下代码。然后可以在任何表单/模块中调用这些函数
'ISO to Access
Public Function DtIsoToAccess(myisodate as String) as date
DtIsotoaccess=cdate(Replace(myisodate, "T"," "))
End function
'Access to ISO
Public Function DtAccessToIso(myaccdate as Date) as string
DtAccessToIso= format(myaccdate, "yyyy-mm-dd\Thh:nn:ss")
End function
Run Code Online (Sandbox Code Playgroud)