用VB编程计算2019年春节到来还有多少天？

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编程中的时间和日期函数：

祝大家学习成功！