Среда разработки приложений с базами данных Афина.
В ней, действительно нет ни одного оператора на латинице (все на русском), а из более чем 150 встроенных функций только две записаны латынью, (хтоб знал зачем) - ExportToExcel и ExportToWord.
Среда служит верой и правдой с 95-го года (до 2003-го под DOS, сейчас под Windows).
Вот, например, как выглядит (можно сказать, типичная) библиотечная функция в Афине (в натуре с синтаксической подсветкой, естественно).
Код:
функция МассивДнейРожд(число Инд) : строка
переменные
справочник([Дни рождений], Д) сДН;
колонка(справочник([Дни рождений], Д)) кДР;
число А, К; дата Дт, ТД;
колонка(число) кИд, кДн;
колонка(дата) кДт;
начало
СписокЗначений(Документ := сДН, Результат := кДР, Д > {01.01.1920}, Д <> ПустаяДата, У = ПустаяДата);
цикл А от 1 до КоличествоСтрок(кДР) делать
Дт := ИзменитьДату(НачалоКвартала(1), ДеньВДате(кДР(А).Д)-1, МесяцВДате(кДР(А).Д)-1);
ВстЭлемент(кИд); К := КоличествоСтрок(кИд); кИд(К) := А;
ВстЭлемент(кДн); кДн(К) := Дней(Дт, ТекущаяДата);
ВстЭлемент(кДт); кДт(К) := Дт;
если Дней(Дт, ТекущаяДата) < 0 то
Дт := ИзменитьДату(Дт,,,1);
кДн(К) := Дней(Дт, ТекущаяДата);
кДт(К) := Дт;
конец
конец;
Сортировка(,, кДн, кИд, кДт);
если кДн(Инд) = 0 то
выход кДР(кИд(Инд)).Кто + ": Сегодня ("+ВСтроку(кДт(Инд))+")"
конец
выход кДР(кИд(Инд)).Кто + ": ост. "+ Встроку(кДн(Инд))+" дн. ("+ВСтроку(кДт(Инд))+")"
конецКто заинтересуется, то вам сюда: сайт Афины
Отредактировано san46 (31-03-2009 12:38:25)
