Непонятная проблема с программой

[alibek]

Есть небольшая программа, которая почему-то работает совсем не так, как ожидается.

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

Option Explicit
...
Public Enum Taxes As Single
  tvNormal = 0.18
  tvSimple = 0.13
End Enum
...
Public Function CalcTaxPart(ByVal Amount As Currency, ByVal Tax As Taxes, Optional ByVal Reservation As Currency)
Select Case Tax
  Case tvNormal
    CalcTaxPart = Amount * (1 - Tax)
    If CalcTaxPart < Reservation Then CalcTaxPart < Reservation
  Case tvSimple
    CalcTaxPart = Amount * (1 - Tax)
    If CalcTaxPart < Reservation Then CalcTaxPart < Reservation
End Select
End Function

Когда использую, ничего не считается.

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

? CalcTaxPart(1200,tvNormal)
0

? CalcTaxPart(1400,tvSimple,120)
0

Хе-хе :)

[vvs_adm]

Так у тя код неправильный, нужно так

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

Option Explicit
...
Public Enum Taxes As Single
  tvNormal = 0.18
  tvSimple = 0.13
End Enum
...
Public Function CalcTaxPart(ByVal Amount As Currency, ByVal Tax As Taxes, Optional ByVal Reservation As Currency)
Select Case Tax
  Case tvNormal
    CalcTaxPart = Amount * (1 - Tax)
    If CalcTaxPart < Reservation Then CalcTaxPart < Reservation
  Case tvSimple
    CalcTaxPart = Amount * (1 - Tax)
    If CalcTaxPart < Reservation Then CalcTaxPart < Reservation
Case tvPofig
    CalcTaxPart = Amount * (1 - Tax)
    If CalcTaxPart < Reservation Then CalcTaxPart < Reservation
Case tvOdinHren
    CalcTaxPart = Amount * (1 - Tax)
    If CalcTaxPart < Reservation Then CalcTaxPart < Reservation
Else
    CalcTaxPart = Amount * (1 - Tax)
    If CalcTaxPart < Reservation Then CalcTaxPart < Reservation
End Select
End Function

[Костя]

If CalcTaxPart < Reservation Then CalcTaxPart < Reservation
Сомневаюсь что это выполнимо.

[GSerg]

Гы гы гы

[vvs_adm]

If CalcTaxPart < Reservation Then CalcTaxPart < Reservation
Сомневаюсь что это выполнимо.

И чего же тут невыполнимого? Простейшая инструкция : Если КалТрахПат меньше резервирования зен КалТрахПат сдвигаем влево от резервирования... Но потому и не работает, что нужно дописать : иначе сдвигаем вправо (т.е. else CalcTaxPart > Reservation)

[Sedge]

Кхм. Даа...
И до нас уже добралось?

[Tarik]

Дык... Э... Блин, опять дурят нашего брата

2Костя: Невыполнима уже эта строчка

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


Public Enum Taxes As Single


[alibek]

Да, уж и помечтать нельзя
(закатывая глаза) А как было бы классно, если подобный синтаксис поддерживался... Enum Messages As String - рулез