2019年1月
腊月十一
16
如果想知道今天是几月几号,星期几,我们在VB中用日期和时间函数写代码就可以轻易得到。今天要说的这个问题,是计算两个日期之差,我们应该怎么写代码实现呢?
首先解决这个问题,我们需要用到时间和日期内部函数,这就要考验我们的VB知识掌握程度了。好多同学向我反映,遇到问题无从下手,不会做。其实不是不会,是自己对VB基本知识不够掌握,还没学到家,从而导致在程序中遇到问题就一筹莫展。
首先我们根据自己的需求,添加相应的控件,分析完成这一功能需要用到哪些VB知识。
当前日期的获取非常简单,直接用VB中的DATE函数就可以得到,关键是计算这个时间差的函数DateDiff,我们要熟悉它的用法,具体参考VB教程的常用内部函数,里面有详细介绍。
代码如下:
Private Sub Command1_Click()
Dim I
I = DateDiff("D", CDate(Text1), CDate(Text2))
Text3 = Abs(I) & "天"
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Text1 = Date
End Sub
首先我们运行程序,来看今天距离2019年猪年春节的到来还有多少天,运行后可知仅有20天时间了!
VB编程中的时间和日期函数:
祝大家学习成功!
领取专属 10元无门槛券
私享最新 技术干货