使用输入作为显示excel vba的日期的基础

Question

我需要一种方法来使用userform上的输入来确定将在输出上显示的日期。这是我的代码：

If StatusBox.Value <= "23:59" And ShiftCode.Value = "AA5" Then
    Cells(emptyRow, 8).Value = ((Date - 1) + " " + StatusBox.Value + " " + "CEST")
Else
    Cells(emptyRow, 8).Value = (Date + " " + StatusBox.Value + " " + "CEST")
End If

基本上我需要将日期显示为Date - 1当StatusBox.Value的输入小于或等于11:59 PM or 23:59时，StatusBox字段上的输入将始终位于12小时格式。

Answer 1

从较高时间值中减去较低时间值，如`elapsedTime = endTime - startTime＆＃39;。不要乱用文本字符串，格式化和连接，直到得到结果。