Como pasar un campo Fecha a Excel

yo lo hago asi , te envio el codigo espero te sirva.

FOR I=1 TO lcuantos
lcampo=ALLTRIM(lcursor)+'.'+lcampos(I,1)
IF TYPE('&lcampo')#'G'
IF TYPE('&lcampo')='C'
XLSheet.Cells(R,I).VALUE=ALLTRIM(&lcampo)
XLSheet.Cells(R,I).FONT.NAME = "Arial"
XLSheet.Cells(R,I).FONT.SIZE = 10
ELSE
IF TYPE('&lcampo')='T'
XLSheet.Cells(R,I).VALUE=TTOC(&lcampo)
ELSE
XLSheet.Cells(R,I).VALUE=&lcampo
ENDIF
XLSheet.Cells(R,I).FONT.NAME = "Arial"
XLSheet.Cells(R,I).FONT.SIZE = 10
ENDIF
ENDIF
NEXT
R=R+1

Saludos

-
PortalFox :: Nada corre como un zorr
http://www.portalfox.co

PortalFox - NNTP Forum Gatewa