AndreTM

Вот вы и засыпались.

Redriksg12Что мешает добавить в эту процедуру еще и дни недели: "Понедельник,Вторник, ..."?
Увидел родное универсальное CASE?

Не все же при виде этого слова инсульт зарабатывают ...
Но бывают и такие, судя по всему.

Jonny540Для ранних версий - двумерный массив.

С такими строками можно работать еще примерно так, только эти функции нужно отладить:

Через MLINE(), заменив разделители на CHR(13).
MLINE(CHRTRAN('янв,февр,март',',',CHR(13)),i)
Или через SUBSTR(), удлинив названия месяцев пробелами до одинаковой длины.
ALLTRIM(SUBSTR('янв фев март ',(i-1)*5+1,4))
Можно так:
ALLTRIM(RIGHT("LEFT('янв фев март ',i*5),5))
В VFP9 возможна и такая функция:
STREXTRACT(',янв,февр,март,',',',',',i)