Private Sub command1_click()Dim x As Datex = "15:00"x = DateAdd("s", 15, x)MsgBox xEnd Sub
你说的是15分钟，15秒是15:00:15
