month
month()
Возвращает (как число) значение месяца текущей системной даты. Январю соответствует 0, февралю - 1,.. декабрю - 11.
cls
dim n$(12)
n$ = {"Янв", "Фев", "Мар", "Апр", "Май", "Июн", "Июл", "Авг", "Сен", "Окт", "Ноя", "Дек"}
print day + "-" + n$[month] + "-" + year
В Новый Год будет напечатано
1-Янв-2011
0.9.4