time - 让windows读出现在几点

Question

我正在使用这种格式让我的电脑每小时都说话：

Dim speaks, speech

speaks = “It is ” & hour(time) & ” O’clock”

Set speech = CreateObject(“sapi.spvoice”)

speech.Speak speaks

问题是它以 24 小时而不是 12 小时格式读取它，有人碰巧知道如何解决这个问题吗？我将系统时钟设置为 12 小时格式，但由于某种原因，当 Microsoft Hazel 读取它时，她以 24 小时格式读取它。

score 0 · Accepted Answer

如文档所述，Hour()返回一个介于 0 和 23 之间的数字，表示当前小时。您需要除以小时模 12 以获得您想要的：

speaks = "It is " & Hour(Time) Mod 12 & " o'clock"

1 回答 1