回复：wincc全局脚本生成Excel日报表的问题-技术论坛-工业支持中心-西门子中国

回复：wincc全局脚本生成Excel日报表的问题

城外之人

版主

帖子

8689
精华

18
被关注

218

论坛等级：至圣

注册时间：2003-09-23

钻石如何晋级?

发布于 2012-07-08 09:27:39

4楼

二楼说得对。需要应用DateAdd函数，二次。
第一次，计算昨天：
Yesterday = DateAdd("d", -1, Date)
sYesterday = CStr(Year(Yesterday)) _
& "-" & Right("00" & CStr(Month(Yesterday)),2) _
& "-" & Right("00" & CStr(Day(Yesterday)),2)

' Local Time
dBeginTime = CDate(sYesterday & " 00:00:00")
dEndTime = CDate(sYesterday & " 23:59:59")

第二次，计算时差：
' Convert to UTC
dBeginTime = DateAdd("h", -8, dBeginTime)
dEndTime = DateAdd("h", -8, dEndTime)

sBeginTime = CStr(Year(dBeginTime)) _
& "-" & Right("00" & CStr(Month(dBeginTime)),2) _
& "-" & Right("00" & CStr(Day(dBeginTime)),2) _
& " " & Right("00" & CStr(Hour(dBeginTime)),2) _
& ":" & Right("00" & CStr(Minute(dBeginTime)),2) _
& ":" & Right("00" & CStr(Second(dBeginTime)),2)
sEndTime = CStr(Year(dEndTime)) _
& "-" & Right("00" & CStr(Month(dEndTime)),2) _
& "-" & Right("00" & CStr(Day(dEndTime)),2) _
& " " & Right("00" & CStr(Hour(dEndTime)),2) _
& ":" & Right("00" & CStr(Minute(dEndTime)),2) _
& ":" & Right("00" & CStr(Second(dEndTime)),2)

无论成与败，无论甜与苦，我还是我。