Declare Function Now ( ) As Double

#include "vbcompat.bi"
result = Now

在执行时返回包含系统日期和时间的日期序列号。

由于时间是日期序列的小数部分，如果Now的值保存为整数，则其中的时间将重置为00:00:00

编译器将不会识别此函数，除非包含vbcompat.bi.

#include "vbcompat.bi"

Dim a As Double = Now()

Print Format(a, "yyyy / mm / dd hh：mm：ss") 

• 在QB中不存在该函数出现在PDS和VBDOS中
  
  

• 日期序列号