TimeSerial 函数的一个简单运用

Date 返回当前日期（不包含时间）。

TimeSerial(23, 59, 59) 表示一天中的 23:59:59。

Date + TimeSerial(23, 59, 59) 就是当前这一天的最后时间。

TimeSerial 函数返回特定小时、分钟和秒的时间。

1. Dim expireTime
   
2.          expireTime = Date + TimeSerial(23,59,59)
   
3. 
   
4. 输出：2025-5-23 23:59:59
   

复制代码