vba 将日期时间类型转换成数字型 excel vba中如何将日期转换为数字进行计算？

VBA\u4e2d\u5c06\u65e5\u671f\u683c\u5f0f\u6570\u636e\u8f6c\u6362\u6210\u6570\u5b57

DateValue\u662f\u628a\u65e5\u671f\u53d8\u5e8f\u53f7\uff0c\u5e94\u8be5\u662f\u7528timeValue\u5427\uff0c\u7136\u540e*24*60*60\u5c31\u662f\u79d2\u4e86
\u4f60\u8bd5\u8bd5\u4e0b\u9762\u7684
time1= TimeValue(WorksheetFunction.Text(arr(row, 1), "hh:mm:ss")) * 24 * 60 * 60
\u5982\u679c\u6709\u6beb\u79d2\uff0c\u53ef\u4ee5\u5148\u53d6\u51fa\u6765\uff0c\u6700\u540e\u518d\u52a0\u4e0a

\u7528datevalue\u8bd5\u8bd5
\u9644\u4ef6\u91cc\u6709\u793a\u4f8b
Sub ff()Dim a, b, cFor i = 1 To 2a = Cells(i, 1)b = Cells(i, 2)c = Cells(i, 3)If DateValue(c) - DateValue(a) > -1 And DateValue(c) - DateValue(b) >= 0 ThenCells(i, 4) = "Y"End IfNext iEnd Sub

vba将日期时间类型转换成数字型的方法。

如下参考：

1.首先在开发工具中打开VBA编辑器。

2.例如，在单元区域中输入一些内容。

3.在VBA编辑器中插入模块，如下所示。

4.在模块中输入以下代码，然后运行它，如下图所示。

5.在a列中以“6-15”格式输入数据数据，单元格将返回“sundate5,June15,2007”，并忽略其他列中的数据。

请尝试代码：

Sub Demo()
   Dim dt As Date
   
   dt = #7/18/2013 9:57:59 AM#
   
   MsgBox "拆分结果如下：" & vbCrLf & _
          "年：" & CStr(Year(dt)) & vbCrLf & _
          "月：" & CStr(Month(dt)) & vbCrLf & _
          "日：" & CStr(Day(dt)) & vbCrLf & _
          "时：" & CStr(Hour(dt)) & vbCrLf & _
          "分：" & CStr(Minute(dt)) & vbCrLf & _
          "秒：" & CStr(Second(dt)), vbInformation, "日期拆分"
End Sub

运行效果如图所示：

PS：如果是在 Excel 中，上述函数 Year、Month、Day、Hour、Minute、Second 依然行得通。

将-189 中间输入一个空格,然后直接复制,贴到其表格中,电脑会自动处理成日期格式,这样也就可以调数字型了

2013-07-189：57：59，这不是数字型，数字型是一串数字，例如12345.678

DateValue

扩展阅读：word vba 日期 ... vba 日期转换成ticks ... vba 提取某单元格日期 ... vba显示今天日期 ... vba计算时间差 ... vba获取当前日期时间 ... vba文本转换为日期时间 ... vba当前日期减一个日期 ... vba编程必背50个程序 ...