如何基于MM/DD/YYYY h:mm格式单元格设置宏的前一天23:00启动时间？

核心思路 #

Excel里日期本质是数值，1代表一整天，时间是小数部分（比如23:00对应23/24≈0.9583）。你之前直接减1得到的是原日期时间的前一天同一时刻，要得到前一天的23:00，需要提取原日期的「日期部分」，减1天后再加上固定的23:00时间。

VBA代码实现 #

以下两种方法都可以实现需求，选一种适合你的即可：

方法1：用日期时间函数组合构造

Sub SetMacroStartTime()
    Dim originalDateTime As Date
    Dim targetStartTime As Date
    
    ' 替换为你的原日期所在单元格（比如A1）
    originalDateTime = Range("A1").Value
    
    ' 提取原日期的年/月/日，生成前一天的日期，再加上23:00
    targetStartTime = DateSerial(Year(originalDateTime), Month(originalDateTime), Day(originalDateTime) - 1) + TimeSerial(23, 0, 0)
    
    ' 将结果写入目标单元格（比如B1），并设置格式
    Range("B1").Value = targetStartTime
    Range("B1").NumberFormat = "MM/DD/YYYY h:mm"
End Sub

方法2：提取日期部分后直接计算（更简洁）

Sub SetMacroStartTime_Simple()
    Dim originalDateTime As Date
    Dim targetStartTime As Date
    
    originalDateTime = Range("A1").Value
    
    ' DateValue提取原日期的纯日期部分（忽略时间），减1天得到前一天00:00，再加23:00
    targetStartTime = DateValue(originalDateTime) - 1 + TimeValue("23:00")
    
    Range("B1").Value = targetStartTime
    Range("B1").NumberFormat = "MM/DD/YYYY h:mm"
End Sub

验证示例 #

如果原单元格是07/15/2022 20:55，运行代码后目标单元格会得到07/14/2022 23:00，完全符合要求。

内容的提问来源于stack exchange，提问作者Pedro Pansini