Returns the (local) time of the current day in seconds.
Kernel.bdh
GetCurrentTime(): number;
Returns the (local) time of the current day in seconds.
dcltrans transaction TGetCurrentTime var nDate, nTime : number; sDateTime : string; begin nDate := GetCurrentDate(); nTime := GetCurrentTime(); FormatDateTime(nDate, nTime, "%x %X", sDateTime); write("date = "); write(nDate); writeln; write("time = "); write(nTime); writeln; write("datetime = "); write(sDateTime); writeln; end TGetCurrentTime;
date = 19980831 time = 37741 datetime = 08/31/98 10:29:01
MutexLogin.bdf