Re: DAY Number in an Year

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
.

Relevant Pages

  • Re: DAY Number in an Year
    ... >> FUNCTION juldate ... >> the starting point or to change Gregorian dates to Julian. ... For a one-to-one correspondence with calendar dates, ... the leap day at the end of Feb. was at the end ...
    (comp.lang.fortran)
  • Re: DAY Number in an Year
    ... FUNCTION juldate ... IMPLICIT NONE ... INTEGER juldate, day, month, year ... starting point or to change Gregorian dates to Julian. ...
    (comp.lang.fortran)
  • Re: DAY Number in an Year
    ... FUNCTION juldate c ... IMPLICIT NONE ... INTEGER juldate, day, month, year c ... starting point or to change Gregorian dates to Julian. ...
    (comp.lang.fortran)
  • Re: DAY Number in an Year
    ... FUNCTION juldate c ... IMPLICIT NONE ... INTEGER juldate, day, month, year c ... starting point or to change Gregorian dates to Julian. ...
    (comp.lang.fortran)
  • Re: Use Julian Date To Create Serial Number
    ... Frank Kabel ... "antho10359" schrieb im ... > current julian date + an increment counter. ... > populates the cell, it remains fixed. ...
    (microsoft.public.excel.misc)