Subj : Re: Julian to String Date [2/2]
To   : Dan Egli
From : Leonard Erickson
Date : Mon Feb 09 2004 03:40 pm

 >>> Part 2 of 2...

  
PROCEDURE DayOfYearToDate(dy,y:word;VAR d,mn:word);
{ y=4 digit year
  n=day of year
 mn=month
  d=day of month}
  VAR
    l : word;
BEGIN
  IF leap_year(y) THEN
    l := 1
  ELSE
    l := 0;
  IF dy>59+l THEN
    d := dy+2-l
  ELSE
    d := dy;
  mn := 100*(d+91) DIV 3055;
  d := d+91-3055*mn DIV 100;
  mn := mn-2;
END; {DayOfYearToDate}
  
{----------------------------------------------------------------------}
  
FUNCTION DateToDateStr(d,mn,y,l : word):STRING;
{ y=4 digit year
 mn=month
  d=day of month}
  VAR
    ys     : STRING[5];
    ms, ds : STRING[3];
    dt     : STRING[10];
BEGIN
  mn := mn+100;
  STR(mn:3,ms);
  d := d+100;
  STR(d:3,ds);
  y := y+10000;
  STR(y:5,ys);
  dt := COPY(ms,2,2)+'-'+COPY(ds,2,2)+'-'+COPY(ys,2,4);
  CASE l OF
  08 : DateToDateStr := COPY(dt,1,6)+COPY(dt,9,2);
  10 : DateToDateStr := dt;
  ELSE
      DateToDateStr :='bad length';
  END;
END;
  
{----------------------------------------------------------------------}
  
END.

--- FMailX 1.60
 * Origin: Shadowgard (1:105/50)

.