hetinghtht 发表于 2011-5-23 10:57:32

[已解决]如何计算时间

本帖最后由 hetinghtht 于 2011-6-7 10:12 编辑

根据输入的时间计算距离2012年12月21日下午3点14分35秒还有多少秒？
高手告知方法啊

lpxx 发表于 2011-5-23 11:25:15

#include <Date.au3>
$BackValue = _DateDiff('s', "2012/12/21 15:14:35", _NowCalc())
MsgBox(4096, "", "现在离2012年12月21日下午3点14分35秒还剩下: " & $BackValue & "秒")

m765555 发表于 2011-5-23 12:20:36

#include <Date.au3>
$BackValue = _DateDiff('s', "2012/12/21 15:14:35", _NowCalc())
MsgBox(4096, "", "现在离2012年12月21日下午3点14分35秒还剩下: " & StringReplace(Round($BackValue /3600/24/30),"-","")& "月")

haijie1223 发表于 2011-5-23 13:32:10

#include <date.au3>
#Region ### START Koda GUI section ### Form=Form1.kxf
$Form1 = GUICreate("时间倒计时", 619, 213, 192, 124)
$BackValue = _DateDiff('s', _NowCalc() ,"2012/12/21 15:14:35")
$Label1 = GUICtrlCreateLabel("现在离2012年12月21日下午3点14分35秒还剩下"&$BackValue&"秒", 20, 28, 512, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
AdlibRegister("_timer", 1000)
While 1
        $nMsg = GUIGetMsg()       
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
        EndSwitch
WEnd
Func _timer()
$BackValue -= 1
GUICtrlSetData($Label1,"现在离2012年12月21日下午3点14分35秒还剩下"& $BackValue & "秒")
If $BackValue <= 0 Then AdlibUnRegister()
EndFunc
年月日 请根据自己的思路添加

hetinghtht 发表于 2011-5-24 10:48:50

回复 4# haijie1223
不错，但是我在测试你的程序中发现第12行出现问题，请查看

3mile 发表于 2011-5-24 10:51:12

回复 5# hetinghtht
12行改成case -3

5i5wei 发表于 2011-5-25 09:46:24

高手谢谢
页: [1]
查看完整版本: [已解决]如何计算时间