VBA DateSerial函数与 VB.NET DateSerial 函数的区别

在 VBA中使用"DateSerial"函数，其结果是一个数字串。如果用于 Excel worksheet 的Cell 中其值可以直接显示为 【43880.620532407】，暨带小数的数字。这样在早期的VBA编程中就有很多这样的语句用于计算。

例如：日期值 ：2020/2/19 14:53:34

DateSerial （日期）

单元格可以显示 ：43880.620532407

那么，在编程时 int（DateSerial （日期）） 将取整，且在VBA的应用中是合法的。

可是在VB.NET中，上述取整的语句就是非法的，将报错。

因为VB.NET中的的DateSerial语法规定如下：

Public Function DateSerial (Year As Integer, Month As Integer, Day As Integer) As DateTime

返回表示已指定年月日的 Date 值，其时间信息被设置为午夜 (00:00:00)。

其返回的是 datetime 数据类型，不再是简单的一串数字。

因此若要在VB.NET中，要得到数字，如何做？

使用DateTime.FromOADate(Double) , DateTime.ToOADate 方法。

具体就是在程序体中使用如下语句：

dim Date01 as date = DateSerial(2020,2,19)
dim Time01 as Double = Date01.toOADate
dim Time0A as integer = int(Time01)
           

如上代码就解决了该问题。

当然，也可以只要小数部分。

参考文档

参考文档

参考文档