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