ник: Анатолий (Киев)
Вероятно вы указываете валюту "грн0", чтоб получить "грн", но вместо "грн" указываете пробел.
Например в этом куске (в других тоже):
Case 1
b.d = Int(b.d1):
b.Hungred = -1
GoSub Subr 'b.d, 1, b.dd
Select Case Currenc
Case "USD": b.GrDop = " доллар "
Case "RUR": b.GrDop = " рубль "
Case "BYR": b.GrDop = " бел.рубль "
Case "грн", "UAH": b.GrDop = " гривня "
Case "грн0": b.GrDop = " "
Case Else: b.GrDop = " " + Currenc + " "
End Select
|
А вот окуда берутся килограммы - загадка!
Что вам мешает выполнить функцию в пошаговом режиме и самому проверить?