SQL Format関数使用例：時間の書式

Format関数で時間を各種書式で表示するサンプル

SQL = " SELECT Format(時間 , '書式') "

SQL = " SELECT Format(日付フィールド/時間フィールド , '書式') FROM テーブル "

サンプルソフト
■実行画面
ボタンをクリックすると、Formatで現在の時間を各種書式で表示します。
時間表示のサンプルフォーム

■実行結果
h:n:s： 8:45:48
hh:nn:ss： 08:45:48
AM/PM hh:nn:ss： AM 08:45:48
am/pm hh:nn:ss： am 08:45:48
A/P hh:nn:ss： A 08:45:48
a/p hh:nn:ss： a 08:45:48

［コード］
Option Compare Database

Private Sub コマンド8_Click()
    Dim SQL As String
    Dim rs As Recordset
    Me!テキスト1 = Null
    SQL = "SELECT Format(now, 'h:n:s')"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "h:n:s： " & rs(0) & vbCrLf
    Set rs = Nothing
    SQL = "SELECT Format(now, 'hh:nn:ss')"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "hh:nn:ss： " & rs(0) & vbCrLf
    Set rs = Nothing
    SQL = "SELECT Format(now, 'AM/PM hh:nn:ss')"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "AM/PM hh:nn:ss： " & rs(0) & vbCrLf
    Set rs = Nothing
    SQL = "SELECT Format(now, 'am/pm hh:nn:ss')"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "am/pm hh:nn:ss： " & rs(0) & vbCrLf
    Set rs = Nothing
    SQL = "SELECT Format(now, 'A/P hh:nn:ss')"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "A/P hh:nn:ss： " & rs(0) & vbCrLf
    Set rs = Nothing
    SQL = "SELECT Format(now, 'a/p hh:nn:ss')"
    Set rs = CurrentDb.OpenRecordset(SQL)
    Me!テキスト1 = Me!テキスト1 & "a/p hh:nn:ss： " & rs(0) & vbCrLf
    Set rs = Nothing
End Sub

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

Home　

SQL Tips

SQL Format関数使用例： 時間の書式

Format関数で時間を各種書式で表示するサンプル

SQL Format関数使用例：時間の書式