day of year

[patili]

Hi,
i am looking about a function which returns the numeric value of the day in the year
ex function (01/01/06) return 1
function (31/12/06) reutrn 365
May be this function exist but i don't find it
Any idea? Thanks

[wmormar]

Hi,
i am looking about a function which returns the numeric value of the day in the year
ex function (01/01/06) return 1
function (31/12/06) reutrn 365
May be this function exist but i don't find it
Any idea? Thanks

If use xHarbour

Code: Select all  Expand view  RUN

DOY ([<dDate>])

[patili]

No i'm using Fivewin and clipper

[Antonio Linares]

Patili,

Code: Select all  Expand view  RUN

function Main()

   SET DATE FRENCH

   MsgInfo( Doy( CToD( "01/01/06" ) ) )

   MsgInfo( Doy( CToD( "31/12/06" ) ) )
   
return nil   

function DOY( dDate )

   local nMonth := Month( dDate )
   local nDay := 0
   
   while nMonth > 0
      nDay += Day( dDate )
      dDate -= Day( dDate )
      nMonth--
   end
   
return nDay     


[patili]

And NOW it exist
Thank you Antonio

[Antonio Linares]

You are welcome