До Нового Года осталось....

[Matv]

Не могу, как начинающий, претендовать на правильность, но я использую такую подпрограмку для окончаний:

Код: Выделить всё

        Function FNokon$(ln As Variant, kor$, ok1$, ok2$, ok5$)
            Dim a_$, N
            If ln > 100 Then N = ln - CLng(ln / 100) * 100 Else N = ln
            a_$ = kor$ + ok5$
            If N Mod 10 < 5 And Not (N > 10 And N < 20) Then a_$ = kor$ + ok2$
            If N Mod 10 = 1 And N <> 11 Then a_$ = kor$ + ok1$
            If N Mod 10 = 0 Then a_$ = kor$ + ok5$
            FNokon$ = a_$
        End Function


Т.е. в данном случае FNokon$(d, "д","ень","ня", "ней") должно правильно писать слово взависимости от значения d.
P.S. Программа исходно была написана в ТурбоБейсике и потом переведена в VB6.

[tyomitch]

Ну вроде всё правильно, однако же опять - не оптимально... Например, вторую строку можно заменить просто на N = ln Mod 100