[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [Fwd: EL after 2000 dates.]



PureBytes Links

Trading Reference Links

Then the dh_mo_da_yr function could probably be modified to
something like this.......

dave stanley

{
Function:  mo_da_yyyr

returns a string in the form mm/dd/yyyy
}

vars:
yy(0),yyxx(0),yyyy(0);

yy=year(date);

if date>99999 and date<1010000 then begin
  if date<1000000 then yyxx=19;
  if date>1000000 then yyxx=20;
  yyyy=yyxx+yy;
  mo_da_yyyr=
    numtostr(month(date),0) + "'/" +
    numtostr(dayofmonth(date),0) +"/" +
    numtostr(yyyy,0);
end:{...99999 to1010000...}

Dennis H's original function.......

{
Function: dh_mo_da_yr

returns a string in the form mm/dd/yy
}

dh_mo_da_yr =
  numtostr(month(date),0) + "/" +
  numtostr(dayofmonth(date),0) + "/" + 
  numtostr(year(date),0);