Тип Currency в VB?

Corrector 11.04.2004 - 14:44 | Народ такая проблема: Есть число типа Currency как преоброзовать это число с четырьмя знаками, после запятой в число с двумя знаками после запятой типа 1323.5479-->1323.55
Corrector 1 - 11.04.2004 - 18:39 | уже не надо, ручками написал, давно я такого извращения не писал :) Function myCurrency(source As Currency) As Currency cel = Fix(source) drob = source - cel If drob = 0 Then myCurrency = source Exit Function End If drobs = Trim(Str(drob)) drobs = Right(drobs, Len(drobs) - 1) If Len(drobs) < 3 Then myCurrency = source Exit Function End If If Len(drobs = 3) Then If Val(Right(drobs, 1)) > 4 Then myCurrency = Val(cel) + Val("0." + Left(drobs, 2)) + 0.01 Exit Function End If End If If Len(drobs = 4) Then If Val(Right(drobs, 2)) > 49 Then myCurrency = Val(cel) + Val("0." + Left(drobs, 2)) + 0.1 Exit Function End If End If myCurrency = Val(cel) + Val("0." + Left(drobs, 2)) End Function
ASP21342 2 - 12.04.2004 - 11:46 | А функцией Format слабо воспользоваться?
warmouse 3 - 12.04.2004 - 11:51 | Умножаешь число на сто, отбрасываешь дробную часть, и делишь на сто. Пожалуй функция по меньше будет :))

>>