本帖最后由 navy 于 2014-5-6 22:58 编辑
原理:将时分秒分别转换成秒求和,加上随机数之后再转换回去。
下面代码测试通过,推荐你自己做成Func函数Local $suiji = 70
Local $totaltime = Round(@HOUR*60*60+@MIN*60+@SEC+$suiji)
$h = Int($totaltime/3600)
$m = Int(($totaltime-$h*60*60)/60)
$s = $totaltime-$h*60*60-$m*60
If StringLen($h) = 1 Then
$h = "0" & $h
EndIf
If StringLen($m) = 1 Then
$m = "0" & $m
EndIf
If StringLen($s) = 1 Then
$s = "0" & $s
EndIf
MsgBox(0, "Info","当前时间:" & @HOUR & ":" & @MIN & ":" & @SEC & @CRLF & "随机时间:" & $suiji & "秒" & @CRLF & "秒数总计:" & $totaltime & @CRLF & "最终格式:" & $h & ":" & $m & ":" & $s)
|