VB 时间判断问题 怎么写

[复制链接]
查看11 | 回复3 | 2008-12-7 15:34:13 | 显示全部楼层 |阅读模式
我想用时间做条件
如果 时间大于 2009.01.01
则 lable的caption 变为 “过年了”
这句话怎么写

回复

使用道具 举报

千问 | 2008-12-7 15:34:13 | 显示全部楼层
t = #1/1/2009#a = DateDiff("d", t, Now)If a > 0 Then '时间大于 2009.01.01Label1.Caption = "过年了"ElseLabel1.Caption = "还没过年呢!"End If...
回复

使用道具 举报

千问 | 2008-12-7 15:34:13 | 显示全部楼层
Private Sub Timer1_Timer()If Format(Now(), "yyyyMMdd") > Format("2009.01.01", "yyyyMMdd") ThenLabel1.Caption = "过年了"End IfEnd Sub...
回复

使用道具 举报

千问 | 2008-12-7 15:34:13 | 显示全部楼层
if date>#2009-01-01# thenlabel1="过年了"endif...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行