Does anyone have routines that will return the current date as
'day-of-year', a julian date like the US military uese.

Thanks

In article <695nsk$...@news3.his.com>, Darrel Davis <darr...@his.com>
writes

 It'd be easy enough... Figure out the month, and add the days in
between....  (or subtract from 365 (I forget which one goes which way...))
But, in your function, you'd wanna use a case statement... (something like
this....)

function GetJulian(Day, Month: Integer): inter;
begin
  Result := 0;    <--  bad date....
  Case Month of
    1:  result := day;
    2:  result := 31 + day;
    3:  result := 31 + 28 + day;

    etc...

  12:  result := 31 + 28 + .... 31 + day;
  end;
  if Result = 0 then MessageBox(Application.Handle, 'Bad Date', 'Error',
MB_ICONERROR);
end;

  Or something to that effect....

--
Jason Wallace
SL Software
Dark...@SLSoftware.reno.nv.us
--
"We are Microsoft.  Resistance is Futile.  You will be Assimiliated."

There's a "Year 2000" article that covers a lot of the date
math functions, including Julian dates (I think) in the latest
Unofficial Newsletter for Delphi Users (UNDU).  It's a free
download; get it in the "Windows Help" format; there's also
an HTML version, but the HTML coding sometimes scrambles the
Pascal source code.
http://www.informant.com/delphi
--
============================================================
Rick Carter   carte...@email.uc.edu   rcar...@tso.cin.ix.net
============================================================

On 11 Jan 1998 12:59:43 GMT, carte...@news.ececs.uc.edu (Richard

------------------------------------------------------------------------------

FUNCTION ymdtojul(y : INTEGER; m,d : BYTE) : LONGINT;

VAR temp : REAL;
    yr,mn,dy,d1 : word;

BEGIN
  IF (y < 1900) or (y > 2099) or NOT(M IN [1..12]) OR NOT(d IN
[1..31]) THEN
  BEGIN
    getdate(yr,mn,dy,d1);
    y := yr;
    m := mn;
    d := dy;
  END;
  temp := INT((m - 14.0) / 12.0);
  ymdtojul := TRUNC(d- 32075 +
                    INT(1461.0 * (y + 4800.0 + temp) / 4.0) +
                    INT(367.0 * (m - 2.0 - temp * 12.0) / 12.0) -
                    INT(3.0 * INT((y + 4900.0 + temp) / 100.0) /
4.0));
END;

{-------------------------------------------------------------------------}

PROCEDURE jultoymd(julian : LONGINT; VAR y : INTEGER; VAR m,d : BYTE);

VAR tempa,tempb : REAL;

BEGIN
  IF (julian < 0) THEN
  BEGIN
    y := 0;
    m := 0;
    d := 0;
    EXIT;
  END;
  tempa := julian + 68569.0;
  tempb := INT(4.0 * tempa / 146097.0);
  tempa := tempa - INT((146097.0 * tempb + 3.0) / 4.0);
  y := TRUNC(4000.0 * (tempa + 1.0) / 1461001.0);
  tempa := tempa - INT(1461.0 * y / 4.0) + 31.0;
  m := TRUNC(80.0 * tempa / 2447.0);
  d := TRUNC(tempa - INT(2447.0 * m / 80.0));
  tempa := INT(m / 11.0);
  m := TRUNC(m + 2.0 - 12.0 * tempa);
  y := TRUNC(100.0 * (tempb - 49.0) + y + tempa);
END;

----------------------------------------------------------------------------------

On 11 Jan 1998 12:59:43 GMT, carte...@news.ececs.uc.edu (Richard

------------------------------------------------------------------------------

FUNCTION ymdtojul(y : INTEGER; m,d : BYTE) : LONGINT;

VAR temp : REAL;
    yr,mn,dy,d1 : word;

BEGIN
  IF (y < 1900) or (y > 2099) or NOT(M IN [1..12]) OR NOT(d IN
[1..31]) THEN
  BEGIN
    getdate(yr,mn,dy,d1);
    y := yr;
    m := mn;
    d := dy;
  END;
  temp := INT((m - 14.0) / 12.0);
  ymdtojul := TRUNC(d- 32075 +
                    INT(1461.0 * (y + 4800.0 + temp) / 4.0) +
                    INT(367.0 * (m - 2.0 - temp * 12.0) / 12.0) -
                    INT(3.0 * INT((y + 4900.0 + temp) / 100.0) /
4.0));
END;

{-------------------------------------------------------------------------}

PROCEDURE jultoymd(julian : LONGINT; VAR y : INTEGER; VAR m,d : BYTE);

VAR tempa,tempb : REAL;

BEGIN
  IF (julian < 0) THEN
  BEGIN
    y := 0;
    m := 0;
    d := 0;
    EXIT;
  END;
  tempa := julian + 68569.0;
  tempb := INT(4.0 * tempa / 146097.0);
  tempa := tempa - INT((146097.0 * tempb + 3.0) / 4.0);
  y := TRUNC(4000.0 * (tempa + 1.0) / 1461001.0);
  tempa := tempa - INT(1461.0 * y / 4.0) + 31.0;
  m := TRUNC(80.0 * tempa / 2447.0);
  d := TRUNC(tempa - INT(2447.0 * m / 80.0));
  tempa := INT(m / 11.0);
  m := TRUNC(m + 2.0 - 12.0 * tempa);
  y := TRUNC(100.0 * (tempb - 49.0) + y + tempa);
END;

----------------------------------------------------------------------------------

DecodeDate(Now, Year, Month, Day);   // Just to get the year
DayOfYear := 1 + TRUNC(Now - EncodeDate(Year,1,1,));

Add 1 since "Jan 1" - "Jan 1" above will return 0.

efg
_________________________________________________

Earl F. Glynn          EarlGl...@WorldNet.att.net
MedTech Research Corporation
Lenexa, KS  66219  USA

[This follow up was also send to author]
A human entity called "Darrel Davis" <darr...@his.com> send the message :

The Graphical Gnome (r...@ktibv.nl)
Sr. Software Engineer IT Department
-----------------------------------------
The Unofficial Delphi Developers FAQ
http://www.gnomehome.demon.nl/uddf/index.htm