在 MS Access 中使用 ISO 8601 日期

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 日期之间来回转换的函数。

Ada*_*cha 5

创建一个模块并粘贴以下代码。然后可以在任何表单/模块中调用这些函数

'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)

  • 请注意,此代码不考虑 2017-11-13T21:42:30.000+03:00(即“+03:00”)中的“TZD”(时区指示符)。请参阅 https://www.w3.org/TR/NOTE-datetime。 (3认同)