home *** CD-ROM | disk | FTP | other *** search
/ ftp.texkom.ru / ftp.texkom.ru.tar / ftp.texkom.ru / round.txt < prev    next >
Text (UTF-16)  |  2008-07-06  |  694b  |  9 lines
  1. round2(V As Double) As Double
  2. Dim PosInStr As Byte
  3. PosInStr = InStr(1, CStr(V * 100 + 0.5), ",", vbTextCompare)
  4. If PosInStr = 0 Then PosInStr = Len(CStr(V * 100 + 0.5)) + 1
  5. round2 = CLng(Mid$(CStr(V * 100 + 0.5), 1, PosInStr - 1)) / 100
  6.  
  7. 'round2 = Int(Abs(V) * 100 + 0.5) / 100 * Sgn(V)
  8. End Function
  9. Public Sub PutIn(NameOfFile As String)