让窗户读出它的时间

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小时格式读取它。

Answer 1

作为documented，Hour()返回0到23之间的数字，表示当前小时。你需要将小时模12除以得到你想要的东西：

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