2.也可以把两个日期直接相减:
a = Now - CDate("2014-1-1") '2014年1月1日到今天,共这么多天。
b = CDate("2014-3-1") - CDate("2014-1-1") '2014年1月1日到2014年3月1日,共这么多天。
vb的函数是强大的,闰年和平年它自己会处理,无需担心。
追问:
那需要什么控件,能详细说一下吗
回答:
不需要任何控件呢,是系统自带的函数呢,你写到代码里面试试就可以了。
你稍等,我给你写代码:
'窗体弄一个按钮Command1,加入以下代码,你试试看:
Private Sub Command1_Click()
Dim a As Long
Dim b As Long
a = Now - CDate("2014-1-1")'2014年1月1日到今天,共这么多天。
b = CDate("2014-3-1") - CDate("2014-1-1")'2014年1月1日到2014年3月1日,共这么多天。
Print "2014年1月1日到今天,共" &a &"天。"
Print "2014年1月1日到2014年3月1日,共" &b &"天。"
End Sub
frmmain.Enabled=false//把主窗体frmmain变成不可用你这里的主窗口是frmmain
main.Enabled=true//改变主窗体的是否可用状态为真。
而你这里有吧main改为可用
是不是前后不一致啊
好像对话框是没有位置参数的给你的建议是你新建一个窗体模拟对话框。这样你想怎么跟随窗体都可设置了
补充:就是gongxuchao说的那样:调Form2的StartUpPosinion属性为1就可以了