Second

FreeBASIC

Second
 
Gets the seconds from a Date Serial

Syntax

Declare Function Second ( ByVal date_serial As Double ) As Long

Usage

#include "vbcompat.bi"
result = Second( date_serial )

Parameters

date_serial
the date serial

Return Value

Returns the seconds from a variable containing a date in Date Serial format.

Description


The compiler will not recognize this function unless vbcompat.bi is included.

Example

#include "vbcompat.bi"

Dim ds As Double = DateSerial(2005, 11, 28) + TimeSerial(7, 30, 50)

Print Format(ds, "yyyy/mm/dd hh:mm:ss "); Second(ds)


Differences from QB

  • Did not exist in QB. This function appeared in PDS and VBDOS

See also