Declare Function Now ( ) As Double

#include "vbcompat.bi"
result = Now

Возвращает серийную дату, содержащую системную дату и время во время выполнения.

Так как время является десятичной частью серийной даты, если значение Now сохраняется в целое число (в Integer), время в нем будет сброшено до 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
  
  

• Date Serials