vb怎么在字符串中提取日期

在VB中，您可以使用正则表达式或者内置的日期和时间函数来提取日期。

1. 使用正则表达式提取日期：

Imports System.Text.RegularExpressions

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

2. 使用内置的日期和时间函数提取日期：

Dim input As String = "2022年1月1日"
Dim formats() As String = {"yyyy年M月d日", "yyyy/M/d"}

Dim dateValue As DateTime
If DateTime.TryParseExact(input, formats, CultureInfo.InvariantCulture, DateTimeStyles.None, dateValue) Then
    Console.WriteLine(dateValue.ToString("yyyy/MM/dd"))
Else
    Console.WriteLine("无法解析日期")
End If

以上代码示例中，我们假设输入的字符串中包含"2022年1月1日"这样的日期格式。您可以根据实际情况调整正则表达式或者日期格式。