如果日期和时间随着某些标准和时间而改变

Question

我真的对这个查询摸不着头脑。

如果可能，我需要更新带有特定时间戳的单元格。

星期六、星期日和星期一我希望日期回退到星期五 @ 12:00:00

但是，如果单元格 A1 位于周二、周三、周四、周五。我想使用以下标准/例外将日期和时间设为 -24 小时

另一个问题 如果单元格 A1 具有/包含 >12:00:00 的时间戳，则将日期/时间回溯到前一天 @ 12:00:00

如果单元格 A1 具有/包含

我正在努力实现的示例。

示例 A 降落在 星期六 如果单元格 A1 = 3/11/2018 @ 15:00:00，则回退到 2/11/2018 @ 12:00:00（星期五）

示例 B 降落在 星期日 如果单元格 A1 = 4/11/2018 @ 15:00:00，则回退到 2/11/2018 @ 12:00:00（星期五）

示例 C 降落在 星期四 但在 12:00:00 之后 如果单元格 A1 = 8/11/2018 @ 15:00:00，则回退到 7/11/2018 @ 12:00:00

示例 D 降落在 星期四 但在 12:00:00 之前 如果单元格 A1 = 8/11/2018 @ 07:30:00，则回退到 7/11/2018 @ 10:00:00

这有意义吗？我正在尝试为我的团队自动执行截止时间表，而不是过多地使用 excel。

问候 JW

Answer 1

非 VBA 选项：

=IF(WEEKDAY(A2,16)<4,INT(A2-WEEKDAY(A2,16))+0.5,IF((A2-INT(A2))>0.5,INT(A2)-0.5,INT(A2)-1+TIMEVALUE("10:00:00")))

Answer 2

我认为这符合您描述的逻辑，但与您期望看到的结果相差甚远。也许将其用作样板，看看我的理解或您的示例（或两者）可能在哪里偏离：

Function FunWithDates(InputDate As Double) As Date

  Dim dow As Integer
  Dim dateOnly As Long
  Dim timeOnly As Double

  dateOnly = int (InputDate)
  remainder = InputDate - dateOnly
  dow = Weekday(InputDate)

  If dow = 7 Then  ' Saturday
    FunWithDates = dateOnly - 0.5
  ElseIf dow = 1 Then ' Sunday
    FunWithDates = dateOnly - 1.5
  ElseIf dow = 2 Then ' Monday
    FunWithDates = dateOnly - 2.5
  ElseIf remainder > 0.5 Then
    FunWithDates = dateOnly - 0.5
  ElseIf remainder < 0.5 Then
    FunWithDates = dateOnly - 1 + (10 / 24)
  End If

End Function