189 8069 5689
1.可以用DateDiff函数，返回值表示两个指定日期间的时间间隔。
公司主营业务：成都网站制作、成都网站设计、外贸营销网站建设、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。成都创新互联是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。成都创新互联推出泸溪免费做网站回馈大家。
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
1、文本框清空
text1.text=""
text2.text=""
2、单击窗体 文本框2得到焦点
Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
TextBox2.focus()
End Sub
3、文本框1变动，文本框2跟动
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
text2.text=text1.text
End Sub
这是窗体控件，对着他右键，如果出现调节框可以直接delete删除，如果没有，先点开发工具设计模式，再点右键delete
frmmain.Enabled=false;//把主窗体frmmain变成不可用
你这里的主窗口是frmmain
main.Enabled=true;//改变主窗体的是否可用状态为真。
而你这里有吧main改为可用
是不是前后不一致啊