字符串到时间戳的转换

Question

我有一个表格，其中日期以字符串 function 的形式给出，以橙色突出显示，并希望转换为时间戳字段，在附表中以黄色突出显示。 有人可以帮我如何使用 function 并将其转换为访问中的时间戳列吗？

感谢您。

Answer 1

它可以简化为：

Timestamp = CDate(Format([SampleID], "!@@-@@-@@@@") & Str(Val([SampleID])) & ":0")

例子：

[SampleID] = "13H 11122017"
-> 2017-12-11 13:00:00

Answer 2

试试下面的查询 -

SELECT format(dateserial(right(t.SampleID,4),left(right(t.SampleID,6),2),left(right(t.SampleID,8),2)) + TimeSerial(left(t.SampleID,2),0,0),"dd-mm-yyyy hh:mm") AS ConvertedDateTime FROM Table1 as t;

编辑：如果要将转换后的Date/Time存储到表列，则可以使用以下VBA function

Function DateTimeConversion(strDT As String) As Date
Dim MyDate As Date
    
    MyDate = DateSerial(Right(strDT, 4), Left(Right(strDT, 6), 2), Left(Right(strDT, 8), 2)) + TimeSerial(Left(strDT, 2), 0, 0)

DateTimeConversion = MyDate
End Function

然后从Command Button调用 function 或使用Update查询。

Private Sub cmdConvertDateTime()
Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("Table1")

rs.MoveLast
rs.MoveFirst

    Do While Not rs.EOF
        rs.Edit
        rs!ConvertedDateTime = DateTimeConversion(rs!SampleID)
        rs.Update
       rs.MoveNext
    Loop

Set rs = Nothing
End Sub