Сomparison-line Голосов: 1 Адрес блога: http://comparison-line.ru Добавлен: 2010-11-26 13:42:23 блограйдером kottx

NEXT I

2013-05-07 21:46:04 (читать в оригинале)

NEXT I YEARS=YEAR(SelectDateTreaty) DO CASE CASE YEARS=2000 YearText=[ двухтысячного года] CASE YEARS=2001 YearText=[ две тысячи первого года] CASE YEARS=2002 YearText=[ две тысячи второго года] * Фрагмент пропущен CASE YEARS=2010 YearText=[ две тысячи десятого года] OTHERWISE YearText=[] ENDCASE RETURN PROCEDURE WRITE && Вывод строки лицевого счета * Вызывается из процедуры ExcelAccount (см. выше) oExcel.Range([A]+ALLTRIM(STR(nRow,3))).Select oExcel.ActiveCell.FormulaR1C1=DTOC(pAccount.Data_zap) oExcel.Range([B]+ALLTRIM(STR(nRow,3))).Select [...]