vba上的TimeSerial（）函数可在PC上运行，但在另一台PC上执行时不起作用

Question

我有以下代码在特定时间执行某些子例程：

Sub time()

Dim time1 As Date
Dim time2 As Date
Dim time3 As Date

time1 = TimeSerial(12, 46, 0)
time2 = TimeSerial(12, 46, 20)
time3 = TimeSerial(12, 46, 40)

Application.OnTime time1, "Thisworkbook.Update_WS", time1 + 20, True
Application.OnTime time2, "Thisworkbook.renameandmoveVALIRS", time2 + 20, True
Application.OnTime time3, "Thisworkbook.CrearTXT", time3 + 20, True

End Sub

我在另一个pc程序中使用了类似的代码来在某个特定时间执行某些子例程，并且它起作用了，但是当我尝试使用此代码（这是相等的，只是更改了sobroutines的名称）时，它什么都不做。我没有收到错误警报或什么，什么也没做。

EDITION ：我认为问题出在函数TimeSerial()中，因为我试图替换行

time1 = TimeSerial(12,46,0)

与此：

time1 = Now() + TimeValue("00:00:30")

它可以工作，但是我真的需要在特定时间对其进行编程，但是我无法使代码正常工作，有人可以帮助我吗？