我刚学VB几个课时,有个菜鸟问题请大家相助.......静待中...

indog 2003-05-17 03:15:53
Private Sub setdate()
Dim r%, i%
r% = CInt(Format$(Now, "yyyy"))
i% = r% - 1960
~~~~~~~~~~~~~~~~~~/谁能解释这一句的意思 谢了
cboyear.ListIndex = i%

r% = CInt(Format$(Now, "mm"))
cbomonth.ListIndex = (r% - 1)
~~~~~~~~~~~~~~~~~~/谁能解释这一句的意思 谢了
r% = CInt(Format$(Now, "dd"))
lblnumber(r% - 1).BorderStyle = 1
selectedate% = r%
~~~~~~~~~~~~~~~~~~/谁能解释这一句的意思 谢了
End Sub
...全文
11 点赞 收藏 1
写回复
1 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
yingzi80 2003-05-17
Private Sub setdate() '你程序中的Now是怎么传过来的(全局变量?)
Dim r%, i% '你这两个变量是什么类型,Va 类型的吗
r% = CInt(Format$(Now, "yyyy")) '将Now中的年份取出来
i% = r% - 1960 '从1960年起Now是第几年
~~~~~~~~~~~~~~~~~~/谁能解释这一句的意思 谢了
cboyear.ListIndex = i%

r% = CInt(Format$(Now, "mm"))
cbomonth.ListIndex = (r% - 1) 'Now中是第几个月
~~~~~~~~~~~~~~~~~~/谁能解释这一句的意思 谢了
r% = CInt(Format$(Now, "dd"))
lblnumber(r% - 1).BorderStyle = 1
selectedate% = r% 'Now中是第几天
~~~~~~~~~~~~~~~~~~/谁能解释这一句的意思 谢了
End Sub
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7490

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-05-17 03:15
社区公告
暂无公告