Returns the (local) current date in a YYYYMMDD format.
Kernel.bdh
GetCurrentDate(): number;
Returns the (local) current date in a YYYYMMDD format.
dcltrans transaction TGetCurrentDate var nDate : number; sDateString : string; begin nDate := GetCurrentDate(); sDateString := FormatDate(nDate, DATE_DEFAULT); write("date = "); write(nDate); writeln; write("datestring = "); write(sDateString); writeln; end TGetCurrentDate;
date = 19980831datestring = 08/31/98