二舍八入 三七做五

bassking

对一例数值（金额）Ａ进行处理，当金额＜＝５元时，小数点保留到分，即３．４．５．６．７分都算５分。１，２分算舍去，８，９分进位算一角。
例：1.13     处理后为：1.15(一块一毛五）；1.18   处理后为：   1.20(一块二）。
对一例数值（金额）Ａ进行处理，当金额＞５元时，采取四舍五入，保留到角
例：5.13     处理后为：5.1   ;                                 5.18   处理后为：   5.2
请问如何使用access中的sql实现?

andymark

Public Function FixJiao(Mydata As Double) As Double
'================================================

'二舍八入 三七做五
'当金额＜＝５元时，小数点保留到分，即３．４．５．６．７分都算５分。１，２分算舍去，８，９分进位算一角。
'当金额＞５元时，采取四舍五入，保留到角
'用法:Fixjiao(2.13)
' andymark
'==================================================
Dim IntFen As Integer
Dim IntJiao As Integer
Dim IntYuan As Integer

If Mydata > 5 Then
   FixJiao = RoundToLarger(Mydata, 1)
Else
   
IntYuan = Fix(Mydata)
IntJiao = Fix((Mydata - IntYuan) * 10)
IntFen = Round((Mydata - IntYuan - (IntJiao / 10)) * 100)

  Select Case IntFen
  
      Case 3, 4, 5, 6, 7
         FixJiao = IntYuan + (IntJiao + 0.5) / 10
      Case 8, 9
         FixJiao = IntYuan + (IntJiao + 1) / 10
       Case 0, 1, 2
          FixJiao = IntYuan + IntJiao / 10
  End Select
  
End If

End Function

Public Function RoundToLarger(dblInput As Double, intDecimals As Integer) As Double '四舍五入
    Dim strFormatString As String
    If dblInput <> 0 Then
        strFormatString = "#." & String(intDecimals, "#")
        RoundToLarger = Format(dblInput, strFormatString)
    Else
        RoundToLarger = 0
    End If
End Function

[ 本帖最后由 andymark 于 2007-9-22 21:29 编辑 ]

bassking

请问版主，如果我想用iif在access的sql中实现，应当如何是好？？？

bassking

希望尽快能够得到帮助，我写的语句好像不对，希望可以得到纠正
IIF(sqldj>5,ROUND(sqldj,1),IIF(cint(RIGHT(FORMAT(sqldj-0.005,'#.00'),1))<3,ROUND(sqldj,1),IIF(cint(RIGHT(FORMAT(sqldj-0.005,'#.00'),1))>8,ROUND(sqldj,1),ROUND(sqldj-0.05,1)+0.05)))

bassking

三七作五 二舍八入
用IIF写起来比较困难，我想在access的sql里实现
希望尽快能够得到帮助，我写的语句好像不对，希望可以得到纠正
IIF(sqldj>5,ROUND(sqldj,1),IIF(cint(RIGHT(FORMAT(sqldj-0.005,'#.00'),1))<3,ROUND(sqldj,1),IIF(cint(RIGHT(FORMAT(sqldj-0.005,'#.00'),1))>8,ROUND(sqldj,1),ROUND(sqldj-0.05,1)+0.05)))

kangking

上面的太复杂了,就下面的一句足够

select 字段,5*INT(字段*100/5+0.4)/100 as 二舍八入三七做五 from 表

上面的查询列出了两个字段,一个是原值,一个是用来比较的值,你可以对比看一下对否.

bassking

朋友，谢谢你的回答，你的这个方法好像行不通，我还是想通过IIF来实现

kangking

晕!结果不对吗?能给出你的例子吗?

bassking

举例说明：
进价    销售价
1.376      1.4
4.429       4.45
1.669       1.7
0.608       0.6
2.483        2.5            总之，当金额＜＝５元时，小数点保留到分，即３．４．５．６．７分都算５分。１，２分算舍去，８，９分进位算一角。当金额＞５元时，采取四舍五入，保留到角

kangking

我上面的查询除了没有考虑>5元外应该是正确的,因为我只考虑了"三七作五 二舍八入",你只要加上这个判断就行.