请问如何提取系统时间

vizeo 2003-09-12 09:54:48
请问如何提取系统时间,并在点击button后写入一个文本文件中
...全文
39 16 打赏 收藏 转发到动态 举报
写回复
用AI写文章
16 条回复
切换为时间正序
请发表友善的回复…
发表回复
jinesc 2003-09-12
  • 打赏
  • 举报
回复
来个死循环好了

do
text1=Format(Now, "yyyy/mm/dd hh:mm:ss")
text1.refresh
loop
vizeo 2003-09-12
  • 打赏
  • 举报
回复
有没有方法将日期转换成 年份+周数+星期数
比如 031807 表示2003年第18周的星期天
officecn 2003-09-12
  • 打赏
  • 举报
回复
最简单的办法是:
建立一个FORM
添加一个TextBox 命名为TxtDate
放一个BUTTON 命名为BTN
在BTN的BTN_CLICK()
事件里添加以下代码

private sub BTN的BTN_CLICK()
Dim FileStr as string '声明一个文件名
FileStr="C:\1.txt"
open FileStr as #1 for OutPut
Print #1,TxtDate.text
Close(1)
end sub

再添加一个TIMER 命名为SysTime
在它的事件里添加如下代码:
TxtDate.text=Now
officecn 2003-09-12
  • 打赏
  • 举报
回复
最简单的办法是:
建立一个FORM
放一个BUTTON 命名为BTN
在BTN的BTN_CLICK()
事件里添加以下代码

private sub BTN的BTN_CLICK()
Dim FileStr as string '声明一个文件名
FileStr="C:\1.txt"
open FileStr as #1 for OutPut
Print #1,Time
Close(1)
end sub

战箫 2003-09-12
  • 打赏
  • 举报
回复
Open "C:\Time.txt" For Output As #1
Print #1, Format(Now, "yyyy/mm/dd hh:mm:ss")
Close #1
将此段代码放入timer事件过程中,一秒执行一次
zxlkxy 2003-09-12
  • 打赏
  • 举报
回复
要用timer控件,一秒跳一次。
planetike 2003-09-12
  • 打赏
  • 举报
回复
Open "C:\Time.txt" For Output As #1
Print #1,Now
Close #1
vizeo 2003-09-12
  • 打赏
  • 举报
回复
多谢大家
我发现直接写到文件中不是很好
如果先用一个Textbox txt_date 提取当前时间,并显示在textbox中(实时显示当前时间,秒数在不停的变),然后当点击button后再把点击时显示的时间写入到time.txt中
这样该怎么写呢

viena 2003-09-12
  • 打赏
  • 举报
回复
Open "C:\Time.txt" For Output As #1
Print #1, Time
Close #1
lxqlogo0 2003-09-12
  • 打赏
  • 举报
回复
Open "C:\Time.txt" For Output as #1
Print #1, time
Close #1
lxqlogo0 2003-09-12
  • 打赏
  • 举报
回复
Open "C:\Time.txt" For Output as #1
Print #1, time
Close #1
onlineboy 2003-09-12
  • 打赏
  • 举报
回复
dim i as Long
i=FreeFile()
Open "C:\Time.txt" For Output as #i
Print #i, Now
Close #i
射天狼 2003-09-12
  • 打赏
  • 举报
回复
Open "C:\Time.txt" For Output As #1
Print #1, Format(Now, "yyyy/mm/dd hh:mm:ss")
Close #1
wei1027 2003-09-12
  • 打赏
  • 举报
回复
now
feiqinfeiwhw 2003-09-12
  • 打赏
  • 举报
回复
Time
blueice2002 2003-09-12
  • 打赏
  • 举报
回复


Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
Private Sub Form_Load()
Dim MyTime As SYSTEMTIME
'Set the graphical mode to persistent
Me.AutoRedraw = True
'Get the local time
GetLocalTime MyTime
'Print it to the form
Me.Print "The Local Date is:" & MyTime.wMonth & "-" & MyTime.wDay & "-" & MyTime.wYear
Me.Print "The Local Time is:" & MyTime.wHour & ":" & MyTime.wMinute & ":" & MyTime.wSecond
End Sub


7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧