时间戳

首页 > 解决方案 > VBA 双倍时间

vba - VBA 双倍时间

问题描述

我有一个 VBA 用户表单，当我在输入数据后按保存时，它会写入电子表格并将我的时间和日期设置为 Now()，该表格正在写入电子表格，我将 now() 值拆分为时间和日期，当我读回来时，我得到了日期，但我的时间是十进制格式的这但是它将它转换为'00：双：00'的分钟这里是代码

Public Function FromDecimalTime(ByVal t As Double) As Date
FromDecimalTime = TimeSerial(0, Fix(t), (t - Fix(t)) * 60)
End Function

标签： vbaexcel-2010

解决方案

以下将转换Double为Date格式。为了仅显示日期格式的时间部分，请使用以下Format功能：

Sub trythis()
Dim t As Double
t = Now()
Debug.Print CDate(t)
Debug.Print Format(t, "hh:mm:ss")

End Sub

推荐阅读