如何转换CEST至UTC？

Question

我想将时间转换为日期与时间：

 > 15525.1+as.Date("1970-01-01")
 [1] "2012-07-04" ## correct but no time

我试过这个：

> apollo.fmt <- "%B %d, %Y, %H:%M:%S"
> as.POSIXct((15525.1+as.Date("1970-01-01")), format=apollo.fmt, tz="UTC")
[1] "2012-07-04 04:24:00 CEST"

但正如您在CEST中看到的结果一样。但是我需要它在UTC中。有什么暗示吗？