T
tokey
Unregistered / Unconfirmed
GUEST, unregistred user!
function Mysubstr(inputDate:Tdatetime):string;
var
tempstr:string;
begin
datetimetostring(tempstr,'YYYYMMDD',inputDate);
tempstr:=copy(tempstr,1,6);
result:=tempstr;
end;
var
tempstr:string;
begin
datetimetostring(tempstr,'YYYYMMDD',inputDate);
tempstr:=copy(tempstr,1,6);
result:=tempstr;
end;