使用input作为什么date来显示excel vba的基础

我需要一种方法来使用用户窗体上的input来确定将在输出上显示的date。 这是我的代码：

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 

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

Answer 1

如`elapsedTime = endTime – startTime'中那样，从较高的时间值中减去较低的时间值。 不要混淆文本string，格式和连接，直到得到结果。