vba 将日期时间类型转换成数字型

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