не удалось отформатировать результаты Dateadd

Question

Function CurrMonthName(dateval) 
Dim tmp : tmp = DateAdd("m", 0, dateval) 
CurrMonthName = MonthName(Month(tmp)) 
CurrMonthName = replace(CurrMonthName , "%M",CurrMonthName) 

Я пытаюсь отформатировать название месяца так, чтобы оно отображало первые 3 буквы. При поиске найденного% M можно использовать. Я попытался использовать его в приведенном выше коде, и результаты не будут такими, как ожидалось. Он по-прежнему показывает полный месяц

Answer 1

В VBScript, способ получить сокращенное имя месяца MonthName.

>> WScript.Echo MonthName(Month(Date()), True) 
>> 
Jul 
>> 

См this answer для более гибкого пути к форматирования даты (и других видов данных).

Answer 2

Используйте функцию "Влево", чтобы сократить первый офф: Left ("Февраль", 3) дает "фев"