>set strictdate to 0 >messagebox(alltrim(gethebdate({12/16/1969}))) >set strictdate to >function gethebdate > lparameters djdate > local chebdate > set strictdate to 0 > objexcel= createobject("Excel.Application") > oworkbook = objexcel.workbooks.open('c:\c.xls') > osheet = oworkbook.activesheet > osheet.cells(3,2).value= djdate > chebdate=osheet.cells(3,3).value > objexcel.quit > return chebdate >endfunc>It's work fine but Excel ask me if to save the change and its very unnecessary service for me.