Thanks for sharing this great tool.
I beleive I found a bug in ReadCellValueFormat(). If a datetime cell value doesn't have a decimal in it, the method returns the integer as the decimal. So "42709" becomes ".42709000" instead of "42709.0000". The line lnNdx = ATC(".", loCellFormat.CellVal) returns 0, which causes the next lines' LEFT and SUBSTR to incorrectly parse the string. Suggested fix is to change the next two lines:
lcWholeNbr = IIF(lnNdx=0, loCellFormat.CellVal, LEFT(loCellFormat.CellVal, lnNdx-1))
lcDecNbr = IIF(lnNdx=0,"", SUBSTR(loCellFormat.CellVal, lnNdx+1))
↧