具有实际日期和时间的条件格式

Question

我想要使用条件格式或VBA代码来解决这个问题，哪个无关紧要。

我想有条件地为A1着色。我的流程以B1中存储的特定日期和时间结束。我的流程开始日期和时间存储在B2中。我在C1编码了一个实时时钟。

假设我的流程将于2013-09-29 17:05:16结束（存储在B1）。我想将此值与C1中的实时时钟进行比较，该时钟每秒都会打勾。

我有四种不同的条件要满足A1：

1. 如果C1在B1之前，则绿色，直到C1达到开始 - 停止间隔的最后3％。
2. 否则，如果C1在B1之前，则黄色 所以它基本上是0.97和1.00之间的区间，其中0.97是3％ 在流程结束之前，1.00处于流程结束。
3. 如果C1已经过了B1最多3％的开始 - 停止间隔，那么橙色。
4. 否则，如果C1晚于B1，则红色。

我不知道你们是否需要编码实时和日期（C1），但无论如何：

Global clockOn As Boolean
Sub runClock()
    Range("C1").Value = Now()
    If clockOn = True Then
        Application.OnTime Now + TimeValue("00:00:01"), "runClock"
    End If
End Sub
Sub startClock()
    clockOn = True
    runClock
End Sub
Sub stopClock()
    clockOn = False
End Sub

Answer 1

UNTESTED但我认为你需要这种东西！：

其中A1中的公式为=(NOW()-B2)/(B1-B2)