vba生成四个随机连续的时间间隔2分钟

Sub GenerateRandomTimes() Dim i As Integer Dim startTime As Date Dim endTime As Date Dim timeInterval As Integer

startTime = "8:00:00 AM" '定义起始时间
endTime = "10:00:00 PM" '定义结束时间
timeInterval = 2 '定义时间间隔（单位：分钟）

For i = 1 To 4
    Randomize '随机数种子
    Range("A" & i) = Format(startTime + (endTime - startTime) * Rnd(), "hh:mm:ss AM/PM") '生成随机时间并格式化
    startTime = DateAdd("n", timeInterval, startTime) '生成下一个时间点
Next i

End Sub