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.
This archive was generated by hypermail 2.1.2 : 04. 09. 2001, 10:03 CEST