Dear Experts

Following procedure converts dbf into Excel.
All fields exports to Excel except Date field.
Date field in Excel sheet appears as
23 oct 2007 instead of 23-10-2007 as in dbf.

How to export Date fields according to dbf.

Please help

set safety off
use ?
als1=alias()
if !empty(als1)
	gcdelimname =alias() + '.xls'
	gcdelimfile = putfile('excel_file:', gcdelimname, 'xls')
	if !empty(gcdelimfile)
		copy to (gcdelimfile) type xl5 && Create delimited file
	endif

	res=messagebox("Do you want to Open &gcDelimName",4+32+512,"Dbf2Xls")
	if res=6
		loexcel = createobject("Excel.Application")
		loworkbook = loexcel.workbooks.open(gcdelimfile)
		losheet = loworkbook.sheets(1) && or pass the name of your sheet as a string!
		losheet.columns().autofit()
		loexcel.visible = .t. && display Excel
	endif
endif