系统环境：Windows 10Excel：2016版本

这个系列集锦一些常用的功能模块，在一些项目中会穿插应用

功能模块中又包括很多子模块，本文涉及的是：时间与日期

今天讲讲如何获取昨天是几号

Part 1：场景介绍已知一列日期，求其上一天是几号

图1 示例

Part 2：代码

Sub test()        Rem>>昨日之日不可留 今日之日多烦忧        Rem>>        Dim today        Dim yesterday            Set sht = ThisWorkbook.Worksheets("示例")    maxRow = sht.Cells(Rows.Count, "A").End(xlUp).Row            For i = 2 To maxRow Step 1        today = sht.Cells(i, "A")        yesterday = DateAdd("d", -1, today)        sht.Cells(i, "B") = yesterday        Next iEnd Sub

图2 代码截图

图3 执行动图

Part 3：部分代码解读

yesterday = DateAdd("d", -1, today)，在已知时间的基础上按照固定时间间隔进行计算获取新的时间点DateAdd(间隔单位,间隔数值,基础值)，间隔数值可正可负，正值表示未来，负值表示过去

图4 常用间隔单位（官方）

以上，为本次的介绍内容，下回见。

本文首发于微信公众号：Excel高效办公之VBA。排版和细节略作修改，发于头条