SQL Format関数使用例: 小数の書式

Format関数使用例サンプルソフト

SQL = " SELECT Format(数値フィールド名 , 書式) FROM テーブル名 "
例: format(7,'000.00') の場合: 007.00
例: format(7.7127,'000.00') の場合: 007.71

2番目の引数の書式で指定します。



BackHomeへ BackSQL Tipsへ

サンプルソフト
フィールドを指定すると分かりにくいので、直接数値を設定しています。

■実行画面
「Format関数使用例: 小数の書式」ボタンをクリックすると、3種類の使用結果を表示します。
1番目: 小数点以下の桁数の指定
2番目: 3桁ごとに区切り記号を付ける
3番目: %表示
Formatフォーム


[コード]
Option Compare Database

Private Sub コマンド8_Click()
    Dim SQL As String
    Dim rs As Recordset
    Me!テキスト1 = Null
    SQL = "SELECT Format(54321.1234,'0.0') FROM T_在庫管理"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "Format(54321.1234,'0.0'): " & rs(0) & vbCrLf
    SQL = "SELECT Format(54321.1234,'#,##0.00') FROM T_在庫管理"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "Format(54321.1234,'#,##0.00'): " & rs(0) & vbCrLf
    SQL = "SELECT Format(0.54321,'0.00%') FROM T_在庫管理"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "Format(0.54321,'0.00%'): " & rs(0) & vbCrLf
    Set rs = Nothing

End Sub

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



BackHomeへ BackSQL Tipsへ

Copyright(C) FeedSoft