vba - 在VBA宏中使用日期变量？

Question

我正在尝试在宏中使用日期变量，其中我有一个日期作为输入，我想计算它的天数。这是一段代码:

Dim ntf as Date


'#An example of ntf is "12/10/2006  15:17:09" (properly formatted as a date)   
Sheets("myshhet").Select
ntf = Cells(2, 4)
Cells(6, 6).FormulaR1C1 = "=WEEKDAY(" & ntf & ")"

但它给了我错误

run-time error '1004'

在出现公式的行)。

相反，如果我使用:

Dim ntf as Long

它有效，但给出了错误的结果。

我做错了什么？

Answer 1

要使用日期，请将日期字符串放在引号中。

Dim ntf As Date


'# An example of ntf is ntf = 12/10/2006  15:17:09 (properly formatted as a date

ntf = Sheets("sheet5").Cells(2, 4).Value
Sheets("sheet5").Cells(6, 6).Formula = "=WEEKDAY(""" & ntf & """)"

或者使用 Long 时，您需要取整数部分，而不是让 vba 对数字进行舍入。日期时间是小数。因此，只要您的时间大于中午，就会四舍五入到第二天。您需要强制它不舍入。

Dim ntf As Long


'# An example of ntf is ntf = 12/10/2006  15:17:09 (properly formatted as a date

ntf = Int(Sheets("sheet5").Cells(2, 4).Value2)
Sheets("sheet5").Cells(6, 6).Formula = "=WEEKDAY(" & ntf & ")"

或者避免所有这些并使用 double 代替:

Dim ntf As Double


'# An example of ntf is ntf = 12/10/2006  15:17:09 (properly formatted as a date

ntf = Sheets("sheet5").Cells(2, 4).Value2
Sheets("sheet5").Cells(6, 6).Formula = "=WEEKDAY(" & ntf & ")"