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

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

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

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

スポンサーリンク




BackHomeへ BackSQL Tipsへ

サンプルソフト
■実行画面
ボタンをクリックすると、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

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

スポンサーリンク




BackHomeへ BackSQL Tipsへ

Copyright(C) FeedSoft