R日付をExcelのシリアル日付に変換するには？

Question

Excelは日付を浮動小数点シリアル日付として内部的に格納します。私たちはas.Date(var2, origin="1899-12-30", tz='UTC')を使ってRに変換する方法を知っています。

質問：Excelに変換する方法？私はすべての明白なことを試しましたが、私はまだ不一致があります。

Answer 1

一つのアプローチは、日付については、例えば、「2017年5月15日」である：Excelで

d0 <- as.Date(0, origin="1899-12-30", tz='UTC') 
d1 <- as.Date('2017-05-15') 

d <- as.numeric(d1-d0) 
# or in one line 
d <- as.numeric(as.Date('2017-05-15') -as.Date(0, origin="1899-12-30", tz='UTC')) 
print(d) 
[1] 42870 

数値シリアル日付として発現された場合日付「2017年5月15日」は同じ番号を与えます。