Question

我正在试图弄清楚如何更改此代码，以便它能够满足我的需求。我想基本上说，如果今天是星期五，时间是下午4点或更长时间，那么新的时间是星期一早上7点。这是我所拥有的，但我无法弄清楚它的TIME部分。

TiffTag.IMAGELENGTH

Answer 1

这有点啰嗦，但似乎有效：

If Weekday(modDropOff) = 6 And Hour(modDropOff) >= 16 Then
    modDropOff = DateSerial(Year(modDropOff), Month(modDropOff), Day(modDropOff)) + 3 + TimeSerial(7, 0, 0)
End If

Answer 2

编辑日期的一些方法：

Option Explicit

Public Sub checkDate()

    Dim modDropOff As Date

    If Weekday(Now) = 2 And Hour(Now) >= 16 Then

        modDropOff = (Date + 3) + TimeValue("07:00:00 AM")

    Else

        modDropOff = Now

    End If

    MsgBox Format(modDropOff, "ddd mmm dd, yyyy - hh:mm:ss AMPM")

End Sub

Public Sub editDate()
    Dim modDropOff As Date
    If Weekday(Now) = 2 And Hour(Now) >= 16 Then
        modDropOff = DateAdd("d", 3, Now)
        modDropOff = DateSerial(Year(Now), Month(Now), Day(Now) + 3) + TimeSerial(7, 0, 0)
    Else
        modDropOff = Time
    End If
    MsgBox Format(xDate, "ddd mmm dd, yyyy - hh:mm:ss AMPM")
End Sub

其他VBA日期和时间功能

日期 - 当前系统日期（仅限日期部分）
现在 - 当前系统日期和时间
年，月，月名，周日，周日名称，日
小时，分钟，秒
IsDate，CDate，DateSerial，DateValue，DateAdd，DateDiff，DatePart
时间，TimeSerial，TimeValue
FormatDateTime，Timer

Excel VBA时间和日期

2 个答案: