Re: DAY Number in an Year
- From: Anton Haumer <AHaumer_gmxnet@xxxxxxxxxxxxxxx>
- Date: Thu, 29 Sep 2005 06:18:54 +0200
ttw@xxxxxxxxxxxxxxx schrieb:
>
> In 2003, I suggested:
> FUNCTION juldate (year,month,day)
> c
> c Converts DAY/MONTH/YEAR to a Julian date transformed to 2000
> c
> IMPLICIT NONE
> c
> INTEGER juldate, day, month, year
> c
>
> juldate=367*year-7*(year+(month+9)/12)/4-3*((year+(month-9)/7)/100
>
> 1 +1)/4+275*month/9+day-730516
> END
>
> The constant 730516 can be adjusted to match any date desired as the
> starting point or to change Gregorian dates to Julian.
May i remember that the OP asked for the inverse of your func ...
Toni
.
- References:
- DAY Number in an Year
- From: prasad413in
- Re: DAY Number in an Year
- From: ttw
- DAY Number in an Year
- Prev by Date: Re: DAY Number in an Year
- Next by Date: Re: DAY Number in an Year
- Previous by thread: Re: DAY Number in an Year
- Next by thread: Re: DAY Number in an Year
- Index(es):
Relevant Pages
|
