我有一个具有纪元时间的数据,我需要以年、月、日、分、秒、毫秒为单位提取人类可读的时间。
转换前的纪元时间:1517166673385
转换后我需要它是这种格式:20180128191113385
我写了下面的函数,效果很好,但是需要很长时间。我正在寻找更快的功能,因为我有数千个文件要处理。
getDTI<- function(echotime){
DTItemp<-as.POSIXct(as.POSIXct(as.numeric(substr(echotime,1,10)), origin="1970-01-01", tz="GMT"), origin="1970-01-01", tz="GMT")
DTI<-paste0(substr(DTItemp,1,4),substr(DTItemp,6,7),substr(DTItemp,9,10),substr(DTItemp,12,13),substr(DTItemp,15,16),substr(DTItemp,18,19),substr(test$STIME,11,13))
return(DTI)
}
a = 1517166673385
paste0(format(as.POSIXct(a/1000,origin="1970-01-01", tz="GMT"),"%Y%m%d%H%M%S"),sprintf("%03d",a%%1000))
[1] 函数形式的“20180128191113385”:
fun=function(a){
paste0(format(as.POSIXct(a/1000,origin="1970-01-01",
tz="GMT"),"%Y%m%d%H%M%S"),sprintf("%03d",a%%1000))
}
d=c(1517166673385, 1517701556075)
fun(d)
[1] "20180128191113385" "20180203234556075"
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句