Номер серийной даты, который держит дату и время, в том же формате, который использовался в PDS или VBDOS. Значение является подсчетом из дней с 12:00 по полудни 30 декабря 1899 года; это в основном используется для легкого подсчета времени между двумя датами.

Единицей серийной даты является один день , а дробная часть представляет собой время дня. Если серийная дата записываются в тип Integer, время теряется. Серийные даты в FreeBASIC не ограничены датами между 1753 и 2078 годом как в VBDOS. Функции FreeBASIC для обработки серийной даты используют аргументы типа Double.

Функции FreeBASIC для обработки серийных дат требуют подключения файлов vbcompat.bi или datetime.bi в источнике.

Серийная дата создается функциями Now, TimeSerial+DateSerial, или DateValue+TimeValue.

Функции Year, Month, Weekday, Day, Hour, Minute, Second позволяют получить различные компоненты серийной даты.

Функция Format имеет возможность форматирования выражений в читаемые и понятные для человека выражения.

#include "vbcompat.bi"
Dim a As Double, b As Double

a = 0
Print "The origin of the date serials is:"
Print Format(a, "yyyy/mm/dd hh:mm:ss")
Print

a = Now
Print "The time now is: "
Print Format(a, "yyyy/mm/dd hh:mm:ss")
Print

b = DateSerial(2000,1,1)
Print Int(a-b) & " days have passed since 2000/01/01"