在VB（Visual Basic）中，可以使用多种方法来计算日期。以下是一些常用的函数和方法：
获取当前日期和时间
`Date` 函数：返回当前系统日期。
`Time` 函数：返回当前系统时间。
`Now` 函数：同时返回当前系统的日期和时间。
示例代码：
```vb
Dim currentDate As Date = Date
MsgBox "当前日期是: " & currentDate
Dim currentTime As Date = Time
MsgBox "当前时间是: " & currentTime
Dim currentDateTime As Date = Now
Console.WriteLine("当前日期和时间: " & currentDateTime)
```
计算时间间隔
`DateDiff` 函数：计算两个日期或时间之间的差值。
示例代码：
```vb
Dim date1 As Date = 2023-01-01
Dim date2 As Date = 2023-12-31
Dim daysDifference As Integer = DateDiff("d", date1, date2)
MsgBox "两个日期之间的天数差是: " & daysDifference
```
日期计算
`DateAdd` 函数：用于实现日期的计算，可以添加年、季度、月、周、天、小时、分钟或秒。
示例代码：
```vb
Dim currentDate As Date = Date
Dim newDate As Date = DateAdd("m", 3, currentDate) ' 在当前日期基础上加3个月
MsgBox "新的日期是: " & newDate
```
格式化日期
`Format` 函数：将日期格式化为指定的字符串格式。
`ToString` 方法：将日期对象转换为字符串。
示例代码：
```vb
Dim currentDate As Date = Now
Dim formattedDate As String = Format(currentDate, "yyyy-MM-dd HH:mm:ss")
Console.WriteLine("格式化后的日期: " & formattedDate)
```
提取日期
可以使用正则表达式或内置的日期和时间函数来提取日期。
示例代码（使用正则表达式）：
```vb
Dim input As String = "今天是2022年1月1日"
Dim pattern As String = "(\d{4})年(\d{1,2})月(\d{1,2})日"
Dim match As Match = Regex.Match(input, pattern)
If match.Success Then
Dim year As Integer = Integer.Parse(match.Groups(1).Value)
Dim month As Integer = Integer.Parse(match.Groups(2).Value)
Dim day As Integer = Integer.Parse(match.Groups(3).Value)
Dim dateValue As New DateTime(year, month, day)
Console.WriteLine(dateValue.ToString("yyyy/MM/dd"))
Else
Console.WriteLine("没有找到日期")
End If
```
这些方法和函数可以帮助你在VB中方便地进行日期和时间的计算。根据具体需求选择合适的函数进行操作即可。