Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Zaokruzivanje brojeva na proizvoljnu vrednost, na gore i na dole

[es] :: Access :: Zaokruzivanje brojeva na proizvoljnu vrednost, na gore i na dole

[ Pregleda: 7001 | Odgovora: 0 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Zidar
Canada

Moderator
Član broj: 15387
Poruke: 3085
*.eqao.com



+79 Profil

icon Zaokruzivanje brojeva na proizvoljnu vrednost, na gore i na dole30.03.2004. u 14:57 - pre 251 meseci
Sta raditi kad se trazi zaokruzivanje na najblizi 0.25? Sta raditi kad se zahteva zaokruzivanje na zapocetih 15 minuta? Sta raditi kad se priznaje samo zavrsenih 15 minuta, nepotpunih 15 minuta na kraju se ne priznaje? Evo funkcija koja pomaze:

Function RoundUpDown(varNumber As Variant, varDelta As Variant) As Variant
'*******************************************
'Name: RoundDelta (Function)
'Purpose: round varNumber to varDelta, up or down
'Inputs: varNumber = number to round
' varDelta = rounding precission
' +varDelta = rounds UP
' -varDelta = rounds DOWN
'Example: RoundUpDown(5.12,+0.25) = 5.25
' RoundUpDown(5.12,-0.25) = 5.00
'Output: varNumber rounded UP/DOWN
'*******************************************
Dim varTemp As Variant

'VarDelta must be <>0
If varDelta = 0 Then varDelta = 1

varTemp = CDec(varNumber / varDelta)

If Int(varTemp) = varTemp Then
RoundUpDown = varNumber
Else
RoundUpDown = Int(((varNumber + varDelta) + varDelta) / varDelta - 1) * varDelta
End If

End Function
 
Odgovor na temu

[es] :: Access :: Zaokruzivanje brojeva na proizvoljnu vrednost, na gore i na dole

[ Pregleda: 7001 | Odgovora: 0 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.