Normalne jsem vzdy zaokrouhloval pomoci orezu desetinnych mist : (int(x*10^pocet_mist+0.5))/10^pocet_mist tady bych to resil podobne : (round(x*10^pocet_mist+0.1))/10^pocet_mist tedy korekci pred provedenim funkce... Mikulas Hypr -- > Dobry den vsem chytrym programatorum, > > predpokladam, ze mam pro vas velmi jednoduchy dotaz: > > Mam v Accessu funkci na zaokrouhlovani cisel v Basicu a zjistil jsem, ze mi > zaokrouhluje spatne, neboli celou pulku mi zaokrouhluje dolu (pro > zaokrouhleni na 2 desetinna mista napr. 2,255 = 2,25, ale 2,2550001 = 2,26). > mam za to, ze 2,255 by melo byt uz 2,26 (..?) > Poradite mi nekdo, jak tu funkci upravit? > > Posilam jeji zneni: > > Function Round(cislo As Double, des As Integer) As Double > > Dim fmt As String, citac As Integer > Select Case des > Case Is < 0 > Round = cislo > Exit Function > Case 0 > fmt = "0" > Case Is > 0 > fmt = "0." > For citac = 1 To des > fmt = fmt & "0" > Next > End Select > > Round = CDbl(Format(cislo, fmt)) > > End Function > > > Predem moc diky za pomoc. > > P. > > > > -- > ------------------- konference casopisu Internet ----------------------- > Archiv a instrukce pro odhlaseni/prihlaseni na http://internet.nawebu.cz > FAQ a objednavka jeho aktualizaci mailem na http://www.kab.cz/faq/ > ------------------------------------------------------------------------ > > --- Odchozí zpráva neobsahuje viry. Zkontrolováno antivirovým systémem AVG (http://www.grisoft.cz). Verze: 6.0.268 / Virová báze: 140 - datum vydání: 7.8.2001
This archive was generated by hypermail 2.1.2 : 04. 09. 2001, 10:03 CEST