Sub table()
 Dim dimens
 read_data()			//чтение данных
 dimens=normal()   //вызов функции масштабирования
  //вывод размерности
 If dimens=3 then Call alfabet
(2,2,»Единица данных: тысяча».)
 If dimens=6 then Call alfabet
(2,2,»Единица данных: миллион».)
 If dimens=9 then Call alfabet
(2,2,»Единица данных: миллиард».)
 //заполнение таблицы
 Call alfabet(44,47,day_week(1))
 Call alfabet(62,47,day_week(2))
 Call alfabet(80,47,day_week(3))
 Call alfabet(98,47,day_week(4))
 Call alfabet(116,47,day_week(5))
 Call alfabet(3,36,»Продажи»)
 Call alfabet(3,24,»Платежи»)
 Call alfabet(3,13,»Баланс»)
 call line(1,11,132,11,»11»)
 call line(1,22,132,22,»11»)
 call line(1,33,132,33,»11»)
 call line(1,44,132,44,»11»)
 call line(42,55,132,55,»11»)
 call line(1,11,1,44,»11»)
 call line(132,11,132,55,»11»)
 call line(114,11,114,55,»11»)
 call line(96,11,96,55,»11»)
 call line(78,11,78,55,»11»)
 call line(60,11,60,55,»11»)
 call line(42,11,42,55,»11»)
 Call alfabet(116,36,Left(CStr(data1(5)),4))
 Call alfabet(116,25,Left(CStr(data2(5)),4))
 Call alfabet(116,14,Left(CStr(data1(5)-data2(5)),4))
 Call alfabet(98,36,Left(CStr(data1(4)),4))
 Call alfabet(98,25,Left(CStr(data2(4)),4))
 Call alfabet(98,14,Left(CStr(data1(4)-data2(4)),4))
 Call alfabet(80,36,Left(CStr(data1(3)),4))
 Call alfabet(80,25,Left(CStr(data2(3)),4))
 Call alfabet(80,14,Left(CStr(data1(3)-data2(3)),4))
 Call alfabet(62,36,Left(CStr(data1(2)),4))
 Call alfabet(62,25,Left(CStr(data2(2)),4))
 Call alfabet(62,14,Left(CStr(data1(2)-data2(2)),4))
 Call alfabet(44,36,Left(CStr(data1(1)),4))
 Call alfabet(44,25,Left(CStr(data2(1)),4))
 Call alfabet(44,14,Left(CStr(data1(1)-data2(1)),4))
End Sub

назад

Поделитесь материалом с коллегами и друзьями