在VB编程中，可以使用以下方法来计算日期：
获取当前日期和时间
使用 `Date` 函数获取当前系统日期。
使用 `Time` 函数获取当前系统时间。
使用 `Now` 函数同时获取当前系统的日期和时间。
计算时间间隔
使用 `DateDiff` 函数计算两个日期或时间之间的差值。其语法为 `DateDiff（interval, date1, date2[, firstdayofweek[, firstweekofyear]]）`，其中 `interval` 表示时间间隔类型（如年、季度、月、周、天、小时、分钟、秒），`date1` 和 `date2` 是要计算差值的两个日期。
日期计算
使用 `DateAdd` 函数实现日期的计算。其语法为 `DateAdd（interval, number, date）`，其中 `interval` 表示要添加的时间间隔类型，`number` 表示要添加的数量，`date` 表示要进行计算的日期。
示例代码
```vb
' 获取当前日期和时间
Dim currentDate As Date = Date
Dim currentTime As Date = Time
Dim now As DateTime = Now
' 显示当前日期和时间
MsgBox "当前日期是： " & currentDate
MsgBox "当前时间是： " & currentTime
MsgBox "当前日期和时间： " & now.ToString（"yyyy-MM-dd HH:mm:ss"）
' 计算日期差
Dim targetDate As Date = DateSerial（2022, 12, 31）
Dim daysRemaining As Integer = DateDiff（"d", currentDate, targetDate）
MsgBox "距离指定日期（2022年12月31日）还有 " & daysRemaining & " 天"
' 日期计算示例
Dim startDate As Date = 2022-01-01
Dim endDate As Date = 2022-12-31
Dim totalDays As Integer = （endDate - startDate）.Days
MsgBox "从 " & startDate & " 到 " & endDate & " 一共有 " & totalDays & " 天"
```
建议
在进行日期计算时，建议使用 `DateTime` 类型来处理日期和时间，因为它提供了丰富的方法和属性来操作日期和时间。
使用 `DateDiff` 和 `DateAdd` 函数时，确保正确指定时间间隔类型和数值，以避免计算错误。
如果需要处理复杂的日期计算，可以考虑使用第三方日期处理库，以获得更强大和灵活的功能。