Форматирование даты начала и окончания MeetingItem

Question

AppointmentItem.Start возвращает время начала события, если я правильно понимаю, и в моем случае это в следующем формате:
"29.05.2018 08:00:00"
Как мне отформатировать его так:
"2018-05-29T08:00:00" Iможно заменить точки на «-», но, возможно, есть лучший способ сделать это.И мне нужно переместить год в начало.

тот же формат возвращает AppointmentItem.End Я бы тоже хотел отформатировать его

Answer 1

Dim sTime As String
Dim eTime Ss String
sTime = AppointmentItem.Start
eTime = AppointmentItem.End
sTime = Format(sTime, "yyyy-mm-dd hh:mm:ss")
eTime = Format(eTime, "yyyy-mm-dd hh:mm:ss")

MsgBox "Start: " & sTime & " End: " & eTime