xaker-sss,
посмотрел быстренько Вашу программу.
Что заметил, на первый взгляд.
В процедуре - KolDen: 'Программа определения количества дней в текущем месяце
есть определение высокосного года:
Код
For B = 0 To 50 ' Здесь определяем високосный год или нет, думаю 200 лет хватит
GodV = GodV + 4
If GodV = God Then GodVis = 1
Next
можно сделать проще и не на 200 лет.
Высокосный год можно разделить только на 4, без остачи.
Получаем код.
Код
GodV = God // 4
If GodV = 0 Then
GodVis = 1
Else
GodVis = 0
EndIf
А теперь еще одно. Пришел у Вас высокосный год, Вы поставили GodVis = 1. А где снимаем этот флаг, GodVis = 1???
Или я не нашел?