Некоторые способы редактирования даты:
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
- Дата - текущая системная дата (дата часть только)
- Теперь - текущая системная дата и время
- год, месяц, MonthName, WeekDay, WeekdayName, день
- час, минута, секунда
- IsDate, CDate, DateSerial, DateValue, DateAdd, DateDiff, DatePart
- Время, TimeSerial, Тим Evalue
- FormatDateTime, Таймер
Вы получаете сообщение об ошибке или он просто не прохождения, если. – MatthewD
Ошибок нет, новое ВРЕМЯ неверно. Я не знаю, как это сделать «Дата + 3», а затем добавить новое время вместо текущего времени. – Noob2Java
Я думаю, что я искал сто примеров, но не могу найти, где добавить дату, но всегда статично статично. – Noob2Java