Как определить массив констант

[AHTOXA]

Мне нужно определить массив констант, т.е заменить:

Public MonthNumDays(12) As Integer

MonthNumDays(1) = 31
MonthNumDays(2) = 28
MonthNumDays(3) = 31
MonthNumDays(4) = 30
MonthNumDays(5) = 31
MonthNumDays(6) = 30
MonthNumDays(7) = 31
MonthNumDays(8) = 31
MonthNumDays(9) = 30
MonthNumDays(10) = 31
MonthNumDays(11) = 30
MonthNumDays(12) = 31

на что-то типа: Const MonthNumDays = (..,..,.....)

Как это сделать?

[GSerg]

Public MonthNumDays As Variant

MonthNumDays = Array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)

[AHTOXA]

Спасибо за ответ

[AHTOXA]

ругается, говорит: invalid outside procedure

[GSerg]

Присвоение

Код: Выделить всё

MonthNumDays = Array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)

должно быть внутри процедуры какой-нибудь.