Не пiзнiше 30 листопада



Posted by Анатолий Анимица (80.243.1.50) on November 29, 2001 at 12:09:05:

In Reply to: Мiльон гривень. Готiвкою posted by Анатолий Анимица on November 25, 2001 at 00:34:20:

Как выяснилось в нашей беседе с Александром Гратулевичем из Киева, есть еще одна загвоздка в "украинизации" серверов ФБП R - функция [dt..], которая дату в формате "29 ноября 2001".
Непорядок. Подпрограмма DTUA


:dtua подпрограмма дата прописью на украинском вход dt выход dt (1 сент.. 200..|11 сент.. 200.. )
mh='января=сiчня,февраля=лютня,марта=березня,апреля=квiтня,мая=травня,июня=липня,июля=червня,августа=серпня,сентября=вересня,октября=жовтня,ноября=листопада,декабря=грудня'
dt=[strip dt];p1=[ps ' ',dt];if p1 p2=[strip [cp dt,1,p1-1]];p3=[strip [cp dt,p1+1,50]];p4=[ps ' ',p3]
if p4 p5=[strip [cp p3,1,p4-1]];p6=[strip [cp p3,p4+1,50]];endif;endif
p7=[ps p5,mh];if ps p8=[strip [cp mh,p7,100]];endif;ps=[ps '=',p8];if ps p8=[strip [cp p8,ps+1,12]];endif
ps=[ps ',',p8];if ps p8=[strip [cp p8,1,ps-1]];endif
dt=p1+' '+p8+' '+p6
return

представляет результат функции [dt] как положено.

Вызов описан в комментарии: dt вход;call dtua;на выходе - тоже dt.

С уважением

ААА


Пpишедшие ответы: