napisał: pil
postów: 154
 umieszczony:
1 kwietnia 2005
10:48
|
|
Można stworzyć funkcję, która najpierw zaokrągli otrzymaną wartość, a później sprawdzi czy pobrana liczba jest jest większa od zaokrąglonej wartości (wtedy musi być większa o 1).
Function ZaokraglWGore(Liczba)
Dim tempLiczba As Double
tempLiczba = Round(Liczba, 0)
If tempLiczba < Liczba Then
tempLiczba = tempLiczba + 1
End If
MsgBox "zaokrąglona liczba :" & tempLiczba 'tylko test wartości
ZaokraglWGore = tempLiczba
End Function |
|
|
napisał: du_gy
postów: 22
umieszczony:
1 kwietnia 2005
09:27
|
|
czesc
mam taki problem:
chce zeby w wyniku dzielena dwoch liczb (reprezentowanych jako zmienne) dostac wynik zaokraglony ZAWSZE w gore np
jezeli uzyskam wynik 2.15 to chce miec 3
pytanie brzmi: jak to zrobic?
z gory dzieki |
|
|
 wstecz 1 dalej  wszystkich stron: 1
|
