指定した小数桁で切り捨てる　FIX関数

FIX関数は、指定した数値の整数部分を返す関数です。
これを利用し、例えば小数点以下１桁の場合、10倍した数値をFIX関数で整数し、その結果を10で割ります。

---

Homeへ　SQL Tipsへ

■コード
Option Compare Database

'小数点以下1桁
Private Sub コマンド62_Click()
    Dim SQL As String
    Dim rs As Recordset
    Dim i As Long
            SQL = "SELECT 重量,FIX(重量*10)/10 FROM M_製品マスター"

    Set rs = CurrentDb.OpenRecordset(SQL)
    Do Until rs.EOF
        Me!テキスト1 = Me!テキスト1 & rs(0) & "： " & rs(1) & vbCrLf
        rs.MoveNext
    Loop
    Set rs = Nothing

End Sub

'小数点以下2桁
Private Sub コマンド63_Click()
    Dim SQL As String
    Dim rs As Recordset
    Dim i As Long
            SQL = "SELECT 重量,FIX(重量*100)/100 FROM M_製品マスター"

    Set rs = CurrentDb.OpenRecordset(SQL)
    Do Until rs.EOF
        Me!テキスト1 = Me!テキスト1 & rs(0) & "： " & rs(1) & vbCrLf
        rs.MoveNext
    Loop
    Set rs = Nothing

End Sub

'整数
Private Sub コマンド8_Click()
    Dim SQL As String
    Dim rs As Recordset
    Dim i As Long
            SQL = "SELECT 重量,FIX(重量) FROM M_製品マスター"

    Set rs = CurrentDb.OpenRecordset(SQL)
    Do Until rs.EOF
        Me!テキスト1 = Me!テキスト1 & rs(0) & "： " & rs(1) & vbCrLf
        rs.MoveNext
    Loop
    Set rs = Nothing
End Sub

サンプルソフトのダウンロード