设为首页收藏本站
开启辅助访问 切换到窄版
搜索
第一问答网»论坛 › 中问网 › 问答 › VB获取当前时间并提示修改！

VB获取当前时间并提示修改！

[复制链接]
查看11 | 回复4 | 2009-6-20 12:02:30 | 显示全部楼层 |阅读模式
获取系统时间，用now()，弹出对话框用MSGBOX就行了。你还要把这个程序加到启动项才行，就是启动后，就运行这个程序，弹出对话框就OK了。打开VB，自动建立工程后，双击那个窗体，输入msgbox "现在时间：" & now() & vbclrf & "请修改时间!!"保存运行就行了 回答者： 小李无刀 - 一派掌门 十二级 2009-6-20 11:21Private Sub Form_Activate()d = InputBox("输入新日期" & vbCrLf & "格式:yyyy-mm-dd", "修改日期", "2009-6-")Date = dt = InputBox("输入新日间" & vbCrLf...
回复

使用道具 举报

千问 | 2009-6-20 12:02:30 | 显示全部楼层
获取系统时间，用now()，弹出对话框用MSGBOX就行了。你还要把这个程序加到启动项才行，就是启动后，就运行这个程序，弹出对话框就OK了。打开VB，自动建立工程后，双击那个窗体，输入msgbox "现在时间：" & now() & vbclrf & "请修改时间!!"保存运行就行了...
回复

使用道具 举报

千问 | 2009-6-20 12:02:30 | 显示全部楼层
Private Sub Form_Activate()d = InputBox("输入新日期" & vbCrLf & "格式:yyyy-mm-dd", "修改日期", "2009-6-")Date = dt = InputBox("输入新日间" & vbCrLf & "格式:hh-mm-ss", "修改时间")Time = tEnd Su...
回复

使用道具 举报

千问 | 2009-6-20 12:02:30 | 显示全部楼层
建议利用windows time这个服务来自动与互联网服务器校对时间...
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

千问

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
回复楼主 返回列表
热门排行