从 Excel 中的日期中删除

在 Excel 中，日期通常以日期格式的单元格形式呈现。有时候，我们需要从日期中删除一些特定的信息，例如年份、月份、日期、小时或分钟等。本篇文章将介绍如何通过编写 VBA 代码来从日期中删除不需要的信息。

删除年份

如果我们希望从日期中删除年份，可以使用 VBA 中的 Year 函数来提取年份，然后用日期减去年份的毫秒数来实现。下面是一个示例代码：

Sub DeleteYear()
    Dim dt As Date
    dt = Range("A1").Value
    Range("B1").Value = dt - Year(dt) * 365.25
End Sub

其中，dt 表示输入的日期值，Year(dt) 表示提取 dt 的年份，365.25 表示每年的天数。将提取年份后的天数从日期中减去，便得到了去除年份后的日期。

删除月份

将日期中的月份删除与删除年份相似。我们可以使用 VBA 中的 Month 函数来提取月份，然后用日期减去月份的天数来实现。以下是一个示例代码：

Sub DeleteMonth()
    Dim dt As Date
    dt = Range("A1").Value
    Range("B1").Value = dt - Day(dt)
End Sub

其中，dt 表示输入的日期值，Day(dt) 表示提取 dt 的月份的天数。将提取月份的天数从日期中减去，便得到了去除月份后的日期。

删除日期

将日期中的日期删除与删除月份类似。我们可以使用 VBA 中的 Day 函数来提取日期，然后用日期减去日期的毫秒数来实现。以下是一个示例代码：

Sub DeleteDay()
    Dim dt As Date
    dt = Range("A1").Value
    Range("B1").Value = dt - Day(dt)
End Sub

其中，dt 表示输入的日期值，Day(dt) 表示提取 dt 的日期。将提取日期的天数从日期中减去，便得到了去除日期后的日期。

删除小时和分钟

要从日期中删除小时和分钟，可以使用 VBA 中的 TimeValue 函数来提取日期的时间部分，然后用日期减去时间部分以获得去除小时和分钟后的日期。以下是一个示例代码：

Sub DeleteHourMinute()
    Dim dt As Date
    dt = Range("A1").Value
    Range("B1").Value = dt - TimeValue(dt)
End Sub

其中，dt 表示输入的日期值，TimeValue(dt) 表示提取 dt 的时间部分。将提取的时间部分从日期中减去，便得到了去除小时和分钟后的日期。

结论

通过以上介绍，我们学会了如何从日期中删除特定的信息。使用 VBA 编写的代码可以自动去除不需要的信息，对于大批量的数据处理，可以提高工作效率。