如何在 VBA 中将字符串转换为日期(带有示例)

您所在的位置:网站首页 excel字符串设置自定义格式 如何在 VBA 中将字符串转换为日期(带有示例)

如何在 VBA 中将字符串转换为日期(带有示例)

2024-05-05 10:51| 来源: 网络整理| 查看: 265

如何在 vba 中将字符串转换为日期(带有示例)经过 本杰明·安德森博 7月 11, 2023 指导 0 条评论

您可以使用 VBA 中的CDate函数将文本字符串转换为日期。

以下是在实践中使用此功能的两种常见方法:

方法 1:使用默认格式 (MM/DD/YYYY) 将字符串转换为日期

Sub ConvertStringToDate() Dim i As Integer For i = 2 To 8 Range(" B " & i) = CDate(Range(" A " & i)) Next i End Sub

这个特定的宏会将A2:A8范围内的每个字符串转换为默认日期格式 MM/DD/YYYY 的日期。

例如,文本字符串 04/15/2023 将转换为日期 04/15/2023。

方法 2:使用自定义格式将字符串转换为日期

Sub ConvertStringToDate() Dim i As Integer For i = 2 To 8 Range(" B " & i) = Format(CDate(Range(" A " & i)), " MM.DD.YYYY ") Next i End Sub

此特定宏会将A2:A8范围内的每个字符串转换为 MM.DD.YYYY 格式的日期。

例如,文本字符串 04/15/2023 将转换为日期 04/15/2023。

以下示例展示了如何在 Excel 中以下列字符串的实践中使用每种方法:

示例 1:使用默认格式将字符串转换为日期

我们可以使用以下宏将 A 列中的每个字符串转换为默认 MM/DD/YYY 格式的日期:

Sub ConvertStringToDate() Dim i As Integer For i = 2 To 8 Range(" B " & i) = CDate(Range(" A " & i)) Next i End Sub

当我们运行这个宏时,我们会收到以下输出:

请注意,B 列将 A 列中的每个字符串转换为默认日期格式 MM/DD/YYYY 的日期。

示例 2:使用自定义格式将字符串转换为日期

我们可以使用以下宏将 A 列中的每个字符串转换为自定义格式 MM.DD.YYY 的日期:

Sub ConvertStringToDate() Dim i As Integer For i = 2 To 8 Range(" B " & i) = Format(CDate(Range(" A " & i)), " MM.DD.YYYY ") Next i End Sub

当我们运行这个宏时,我们会收到以下输出:

请注意,B 列将 A 列中的每个字符串转换为具有自定义 MM.DD.YYYY 格式的日期。

请随意使用 VBA格式功能以您选择的格式显示日期。

注意:您可以在此处找到 VBA CDate函数的完整文档。

其他资源

以下教程说明如何在 VBA 中执行其他常见任务:

如何在VBA中将字符串转换为int如何在VBA中将字符串转换为long如何在VBA中将字符串转换为双精度

关于作者安德森博本杰明·安德森博

大家好,我是本杰明,一位退休的统计学教授,后来成为 Statorials 的热心教师。 凭借在统计领域的丰富经验和专业知识,我渴望分享我的知识,通过 Statorials 增强学生的能力。了解更多

添加评论取消回复


【本文地址】


今日新闻


推荐新闻


CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3