スポンサーリンク

2007-11-14

Tips104 - SQL文 指定した小数桁で切り捨てを行う FIX関数

dim SQL as String
dim rs As Recordset
'小数点以下1桁で切り捨て
SQL = "SELECT FIX(数値フィールド) FROM テーブル名"
'小数点以下2桁で切り捨て
SQL = "SELECT FIX(数値フィールド*10)/10 FROM テーブル名"
'小数点以下3桁で切り捨て
SQL = "SELECT FIX(数値フィールド*100)/100 FROM テーブル名"
Set rs = CurrentDb.OpenRecordset(SQL)

小数点以下2桁の場合
1)10倍する
2)FIX関数で整数部を取り出す
3)10で割ります

小数点以下1桁の使用結果:
1.2 は 1
2.8 は 2
-5.78 は -5
10.4195 は 10
20.987 は 20

小数点以下2桁の使用結果:
1.2 は 1.2
2.8 は 2.8
-5.78 は -5.7
10.4195 は 10.4
20.987 は 20.9

小数点以下3桁の使用結果:
1.2 は 1.2
2.8 は 2.8
-5.78 は -5.78
10.4195 は 10.41
20.987 は 20.98