用VBA 写一段代码，在“今天是2023年2月10日”中提取年月日，3个数值

### 回答1：

答：Sub ExtractYearMonthDay()
Dim dateStr As String
Dim year As Long
Dim month As Long
Dim day As Long
dateStr = "今天是2023年2月10日"
year = Val(Mid(dateStr, 5, 4))
month = Val(Mid(dateStr, 10, 2))
day = Val(Mid(dateStr, 13, 2))
MsgBox "年：" & year & "，月：" & month & "，日：" & day
End Sub

### 回答2：
你好！以下是使用VBA编写的从字符串“今天是2023年2月10日”中提取年月日三个数值的代码示例：

Sub 提取年月日()
    Dim str As String
    Dim 年 As String, 月 As String, 日 As String
    
    str = "今天是2023年2月10日" ' 定义原始字符串
    
    ' 提取年份
    年 = Mid(str, 6, 4)
    
    ' 提取月份
    月 = Mid(str, 11, 1)
    
    ' 提取日期
    日 = Mid(str, 14, 2)
    
    ' 打印结果
    MsgBox "年：" & 年 & vbCrLf & "月：" & 月 & vbCrLf & "日：" & 日
End Sub

代码中使用了`Mid`函数来提取字符串中的指定部分。具体来说，使用`Mid(str, 6, 4)`提取年份，其中`6`表示从第6个字符开始提取，`4`表示提取4个字符；使用`Mid(str, 11, 1)`提取月份，其中`11`表示从第11个字符开始提取，`1`表示只提取1个字符；使用`Mid(str, 14, 2)`提取日期，其中`14`表示从第14个字符开始提取，`2`表示提取2个字符。最后使用`MsgBox`函数将提取结果弹出显示。

执行该宏后，将会弹出一个对话框，显示提取出的年份、月份和日期。在这个例子中，年份为“2023”，月份为“2”，日期为“10”。

### 回答3：
可以使用VBA的Mid函数来提取字符串中的部分内容，具体代码如下：

Sub 提取年月日()
    Dim str As String
    Dim 年 As String
    Dim 月 As String
    Dim 日 As String
    
    ' 将原字符串赋值给str变量
    str = "今天是2023年2月10日"
    
    ' 使用Mid函数提取年份部分
    年 = Mid(str, 5, 4)
    
    ' 使用Mid函数提取月份部分
    月 = Mid(str, 9, 2)
    
    ' 使用Mid函数提取日期部分
    日 = Mid(str, 13, 2)
    
    ' 输出提取的结果
    MsgBox "年：" & 年 & vbCrLf & "月：" & 月 & vbCrLf & "日：" & 日
End Sub

运行这段代码后，会弹出一个消息框，显示提取得到的年、月、日的数值。输出结果如下：

年：2023
月：02
日：10

这样就成功使用VBA提取了字符串中的年、月、日三个数值。