Сергей Федорович, функция в руках, занесли её в скрипт и получили нужный результат
tsdima, именно поэтому все программы отличаются друг от друга, можно и так, и эдак, и через наискосяк
code_744

[size=-2]------ Добавлено в 12:44
Сергей Федорович, код № 744, наверное битый, ракладку клавиатуры не переключил при копировании, возьмите этот:
code_745