x4a <- with_tz(x4, tzone = "Australia/Lord_Howe") x4a #> [1] "2015-06-02 02:30:00 LHST" #> [2] "2015-06-02 02:30:00 LHST" #> [3] "2015-06-02 02:30:00 LHST" x4a - x4 #> 以秒计的时间差 #> [1] 0 0 0

（这也说明了时区的另一个挑战：它们的偏移量并不都是整数小时！）

• 更改底层的时间瞬间。当你有一个被标记了错误时区的瞬间，需要修正它时，可以使用此函数：

x4b <- force_tz(x4, tzone = "Australia/Lord_Howe") x4b #> [1] "2015-06-01 09:00:00 LHST" #> [2] "2015-06-01 09:00:00 LHST" #> [3] "2015-06-01 09:00:00 LHST" x4b - x4 #> 以小时计的时间差 #> [1] -17.5 -17.5 -17.5