Excel VBA 复制 18:00 为 0,750000000003

Question

我有两本工作簿，其中一本受密码保护。

Sub WorkTime()
Dim Employee1 As Workbook

Application.ScreenUpdating = False

    Set Employee1 = Workbooks.Open(Filename:="J:\Firm\Time\Employee1.xlsx", Password:="emp")
    MsgBox (Employee1.Sheets(1).Range("$E3:$E3").Value)

Application.ScreenUpdating = True
End Sub

Employee-Workbook 中的值是 18:00 但是当我在 MsgBox 中显示它时它显示为 0,75000000000000003。我也已经测试过每个其他有公式的单元格，它们都显示正确的值

Answer 1

这是18:00的数字时间值。

应用时间格式或使用 CDate 转换为真正的 DateTime 值。 –

Excel VBA 复制 18:00 为 0,750000000003

Excel VBA Copying 18:00 as 0,750000000003

excel

vba