FiveTech Software tech support forums

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

patili wrote: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

DOY ([<dDate>])

No i'm using Fivewin and clipper

Patili,

Code: Select all  Expand view

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     


And NOW it exist
Thank you Antonio

You are welcome