求一条语句.关于时间判断的.急. 用if语句写一条判断整点的语句.比如每到1点,2点,3点... 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 If Format(Now, "N") = "0" Then MsgBox Format(Now, "Hh") IF clng(right$(FORMAT$(now(),"hhmmss"),4))=0 THEN MSGBOX "整点"END IF If DatePart("n",Now)=0 and DatePart("s")=0 then msgbox DatePart("h",Now)end if DateDiff 函数 ---- 语法 DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]]) 返回 Variant (Long) 的值,表示两个指定日期间的时间间隔数目。DateDiff 函数语法中有下列命名参数: ---- interval 必要。字符串表达式,表示用来计算date1 和 date2 的时间差的时间间隔 Date1,date2 必要;Variant (Date)。计算中要用到的两个日期。 ---- Firstdayofweek 可选。指定一个星期的第一天的常数。如果未予指定,则以星期日为第一天。 ---- firstweekofyear 可选。指定一年的第一周的常数。如未指定,则以包含 1 月 1 日的星期为第一周。 ---- interval 参数的设定值如下(我们设置为s即秒): ---- yyyy 年;q 季 ;m 月 ;y 一年的日数 ;d 日 ;w 一周的日数 ;ww 周 ;h 时 ; ---- n 分钟 ;s 秒 同一前面几个的观点,但是还有个问题应该注意的就是如果使用Timer控件判断,必须将Interval属性设置不能太大也不能太小,太大了的话,超过了整点也没反应,太小了,那么没次整点会报很多次。如果能保证每秒判断一次就行,不过Timer控件不是很精确的。 vb向oracle数据库同时插入clob与日期类型的问题 如何解决set rs=con.execute存储过程速度慢 帮我进来看到题目 就10行 帮帮忙 在线等 使用了资源文件后,为什么VB的编译文件变的很大 我把希望给了大家 请教字符输出问题 轻松创建不规则窗体(任意形状)!! 如何才能让我自己写的exe 只能用我自己写的dll打开呢。 SQLServer中的NEWID()语句问题! 求助!如何用VB访问EXCEL文件?急! 才鸟请教!如何实现Byte型数组的加法运算?? 问问题咯...........关于多媒体的(如解即揭!!)
MSGBOX "整点"
END IF
msgbox DatePart("h",Now)
end if