在PPT中用vba编写三个计时器，放在三页幻灯片中，分别计时到2027年8月1日，2025年8月1日，2023年8月1日的剩余时间，帮我编写一段代码...

Sub 定时器1() Dim 时间1 As Date 时间1 = #8/1/2027# Range("A1").Value = DateDiff("d", Now(), 时间1) End Sub Sub 定时器2() Dim 时间2 As Date 时间2 = #8/1/2025# Range("A2").Value = DateDiff("d", Now(), 时间2) End Sub Sub 定时器3() Dim 时间3 As Date 时间3 = #8/1/2023# Range("A3").Value = DateDiff("d", Now(), 时间3) End Sub