Difference of one day.

[stla]

Hello,

I create a xlsx file with a "Time" formatting:

library(openxlsx)
dat <- data.frame(A=c(1, 1.5, 1.8))
wb <- createWorkbook()
addWorksheet(wb=wb, sheetName = "Sheet1")
sty <- createStyle(numFmt = "h:mm AM/PM")
addStyle(wb, sheet=1, style=sty, rows=2:4, cols=1)
writeData(wb, sheet=1, dat)
saveWorkbook(wb, "test02.xlsx", overwrite = TRUE) 

In Excel:

But:

> readxl::read_excel("test02.xlsx", sheet=1)
                    A
1 1899-12-31 00:00:00
2 1899-12-31 12:00:00
3 1899-12-31 19:12:00

[nacnudus]

This is because of Excel's leap-year bug. Excel addresses it by printing 1/01/1900, which it can do because it also uses 29/02/1900. In R, 29/02/1900 is impossible.

I'd be interested to see how you handle this in readxl. In tidyxl I give the user a warning.

[hadley]

Duplicate of #148

[jennybc]

Yes duplicate of #148, which I am closing ... but note that it contains an example xlsx.

[jennybc]

Good description of how ssf (format code handler for SheetJS) deals with the Lotus 1-2-3 fake leap day:

https://github.com/SheetJS/ssf/blob/master/ssf.md#parsing-date-and-time-codes