已知时间从1970年1月1日8:00开始的秒数，获取正确日期格式

大力SAMA

如现有秒数：1533792945  把该数字除以（60*60*24）一天的秒数后获得天数，天数加上初始日期就是我要获取的正确日期格式

但是我死在了RC[-1]引用上，这个是字符型，无法用来计算，求大神帮忙

1. Sub 编写时间()
   
2.     Dim d1 As Date
   
3.     d1 = "1970-1-1 8:00"
   
4.     a = "=RC[-1]/24/60/60"
   
5.     ActiveCell.FormulaR1C1 = DateAdd("d", a, d1)
   
6. End Sub
   

复制代码

a是一个字符型，无法作为数字进行计算，但是又不知道怎么处理

我是来讨说法的

D2单元格的公式为：
=TEXT((A2+8*3600)/86400+70*365+19,"yyyy-mm-dd hh:mm:ss")

大力SAMA

我是来讨说法的 发表于 2018-8-9 15:58
D2单元格的公式为：
=TEXT((A2+8*3600)/86400+70*365+19,"yyyy-mm-dd hh:mm:ss")

谢谢，公式理解了，但是VBA中引用的处理仍旧不会，比如我的秒数是随机放在一个单元格的，我要在右边获得结果，就要用到RC[-1]