找回密码
 加入
搜索
查看: 1059|回复: 3

时间停止不前,如何获得当前时间??

[复制链接]
发表于 2009-4-27 09:27:00 | 显示全部楼层 |阅读模式
本帖最后由 hhasee 于 2009-4-27 15:45 编辑

各位大侠,当我加入以下代码时发现秒针止不前,不可有何良策?  另想将此时的时间输入到EXCEL上不知又有什么办法!在线等......
GUISetFont(11, 400, 1)
  $Date = GUICtrlCreateLabel(@YEAR & "-" & @MON & "-" & @MDAY & " " &@HOUR & ":" & @MIN & ":" & @SEC , 210, 15, 140, 17)
   GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
   GUICtrlSetColor(-1, 0x000000)
发表于 2009-4-27 09:52:08 | 显示全部楼层
GUICtrlSetData ( 控件ID, 数据 [, 默认值] )
发表于 2009-4-27 10:01:46 | 显示全部楼层
[au3]#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 201, 95, 193, 125)
$Label1 = GUICtrlCreateLabel(@YEAR & "-" & @MON & "-" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC, 32, 24, 360, 17)
AdlibEnable("date", 1000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
        EndSwitch
WEnd

Func date()
        GUICtrlSetData($Label1, @YEAR & "-" & @MON & "-" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC)
EndFunc   ;==>date[/au3]

输出到EXCEL请参考EXCELUDF
 楼主| 发表于 2009-4-27 15:46:10 | 显示全部楼层
已全数搞定,在此谢谢了!
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-4-28 19:34 , Processed in 0.071398 second(s), 19 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表