crash in export date TXBrwColumn to excel

[AntoninoP]

Hello,
Exporting to excel a xBrowse column of type Date, the program crashes in this line:

Code: Select all  Expand view

oSheet:Cells( nRow, nCol ):NumberFormat   := Lower( Set( _SET_DATEFORMAT ) )

at begin of the

Code: Select all  Expand view

METHOD ToExcel( oSheet, nRow, nCol ) CLASS TXBrwColumn

It is because I have excel in Italian and the dateFormat is like dd/mm/yyyy.
I put here the same fix I see in another place in the same file:

Code: Select all  Expand view

     if lxlEnglish
        if ValType( ::cEditPicture ) == 'C' .and. Left( ::cEditPicture, 1 ) != '@'
           oSheet:Cells( nRow,nCol ):NumberFormat := Lower( ::cEditPicture )
        else
           oSheet:Cells( nRow,nCol ):NumberFormat := Lower( Set( _SET_DATEFORMAT ) )
        endif
      endif
 

I see that for OOCalc export there is a GetNumberFormatId that convert it for localized formats, maybe we can do it for excel too...