Вам, вероятно, придется катиться самостоятельно.Вы можете сделать так, как Мастер теней показывает , или альтернативную версию, подобную этой:
myDate = dateadd("n", FTimeZoneDifference, theTime)
myString = FormatDateTime(myDate,vbShortDate) & " " & FormatDateTime(myDate,vbShortTime)
Преимущество мастера теней в том, что у вас больше контроля над выводом, где эта версия более зависимана настройку системы для короткой даты и короткого времени.