一个vb的小问题!请教各位大大! 一个vb的小问题!请教各位大大!做一个打铃的程序,要求每天中午11点30和下午5点30,该程序就会响1调用Beep函数实现打铃2用Time函数获取当天的时间 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 有什么问题?不会判断时间吗?timer中:if format(now,"HH:MM")="11:30" or format(now,"HH:MM")="05:30" then beep 请问这个format是什么函数!我是初学者! Format() 格式化一个字符串,类似于 C 的 sprintf() Format是一个格式转换函数,功能强大,而且可能会经常用到,下面举几个常用的例子给楼主参考:Format(Date, "YYYY") '获得年Format(Date, "MM") '获得月Format(Date, "DD") '获得日Format(Time, "HH") '获得时Format(Time, "NN") '获得分Format(Time, "SS") '获得秒Format(Date, "WW") '获得周次Format(Date, "Q") '获得季度Format(Date, "DDDD") '获得星期Format(Date,"MM/DD/YYYY") '将当前系统日期转换成月/日/年的方式,还可以是"DD-MM-YYYY","D-M-YY",顺序和中间的间隔符都可以自定。暂时就想到这些,楼主有时间看看相关的资料吧!祝成功! '到时间响十次,每秒响一次,否则效果不好。Private Sub Timer1_Timer() '先设置 Timer1.Interval = 1000 If Format(Now, "HH:MM") = "11:30" Or Format(Now, "HH:MM") = "05:30" Then For i = 1 To 10 n = Timer * 10 Do While Timer * 10 <= n + 10 DoEvents Loop Beep Next End IfEnd Sub 讨论贴,使用On Error Resume Next是不是一个好习惯? 谁能帮我说一下啊 所有数的和排列集合 如(1,3,4,5) access表中第一列设置为自动编号,那在insert的时候对该列怎么处理 webbrowser控件问题??? 求救进来看看啊!UpDown控件! 请问如何将TOOLBAR作成可移动的效果? 急!急!怎样保存邮件的附件? VB 监控文件的创建 我是要在我的程序中使用类似记事本的打印设置的功能...可以调整页面边距的. 关于VB打包问题 求教
不会判断时间吗?
timer中:
if format(now,"HH:MM")="11:30" or format(now,"HH:MM")="05:30" then beep
Format(Date, "YYYY") '获得年
Format(Date, "MM") '获得月
Format(Date, "DD") '获得日
Format(Time, "HH") '获得时
Format(Time, "NN") '获得分
Format(Time, "SS") '获得秒
Format(Date, "WW") '获得周次
Format(Date, "Q") '获得季度
Format(Date, "DDDD") '获得星期
Format(Date,"MM/DD/YYYY") '将当前系统日期转换成月/日/年的方式,还可以是"DD-MM-YYYY","D-M-YY",顺序和中间的间隔符都可以自定。
暂时就想到这些,楼主有时间看看相关的资料吧!
祝成功!
Private Sub Timer1_Timer()
'先设置 Timer1.Interval = 1000
If Format(Now, "HH:MM") = "11:30" Or Format(Now, "HH:MM") = "05:30" Then
For i = 1 To 10
n = Timer * 10
Do While Timer * 10 <= n + 10
DoEvents
Loop
Beep
Next
End If
End Sub