大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
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改为可用
是不是前后不一致啊