玄関へお回り下さい。
日付・時刻に関する書式設定関係のメソッド等の使用例 (2個)             (SNo.011)
Format　　　　　　 書式指定文字列式に含まれる指示に従って書式設定された文字列を返します
ToLocalTime 　　　 現在の世界協定時刻 (UTC) をローカル時刻に変換します
ToLongDateString　 このインスタンスの値をそれと等価な長い形式の日付の文字列形式に変換します
ToLongTimeString　 このインスタンスの値をそれと等価の長い時刻書式の文字列形式に変換します
ToShortDateString　このインスタンスの値をそれと等価な短い形式の日付の文字列形式に変換します
ToShortTimeString　このインスタンスの値をそれと等価の短い時刻書式の文字列形式に変換します
ToString　　　　　 インスタンスの値をそれと等価な文字列形式に変換します
ToUniversalTime 　 現在のローカル時刻を世界協定時刻 (UTC) に変換します
使用コントロール Button1  〜　Button8
その他条件 WindowsXP(Vista)　Visual Basic 2005(VB2008)
　
★　Format 関数
　
Private Sub Button2_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button2.Click
'Microsoft.VisualBasic.Format 関数
    '書式指定文字列 (String) 式に含まれる指示に従って書式設定された文字列を返します。
    Debug.WriteLine(Format(DateTime.Now, "yyyy/MM/dd"))       '結果  2004/05/16
    Debug.WriteLine(Format(DateTime.Now, "gyyyy年MM月dd日"))  '結果  西暦2004年05月16日
    Debug.WriteLine(Format(DateTime.Now, "yyyy年MM月dd日"))   '結果  2004年05月16日
    Debug.WriteLine(Format(DateTime.Now, "hh時mm分ss秒"))     '結果  10時00分04秒
    Debug.WriteLine(Format(DateTime.Now, "Medium Time"))      '結果  午前 10:33:41
    ' .NET では月の指定に mm を使用すると 分 を指定した事になるので注意
    ' 月を指定する場合は大文字の MM を使用して下さい。
    ' 分を指定する場合は小文字の mm を使用して下さい。
    'VB6.0 で使用できた  "gggee年mm月dd日"  平成16年05月16日  は使用できない。
End Sub
　
★　ToLocalTime メソッド
　
Private Sub Button24_Click(ByVal sender As System.Object, _
                           ByVal e As System.EventArgs) Handles Button24.Click
'DateTime.ToLocalTime メソッド  [名前空間: System]
    '現在の世界協定時刻 (UTC) をローカル時刻に変換します。
    Dim dt As DateTime = System.DateTime.Now.ToString
    Debug.WriteLine(System.DateTime.Now)        '結果  2005/09/02 22:00:55
    Debug.WriteLine(dt.ToLocalTime)             '結果  2005/09/03 7:00:55
End Sub
　
★　ToLongDateString メソッド
　
Private Sub Button25_Click(ByVal sender As System.Object, _
                           ByVal e As System.EventArgs) Handles Button25.Click
'DateTime.ToLongDateString メソッド     [名前空間: System]
    'このインスタンスの値を、それと等価な長い形式の
    '日付の文字列形式に変換します。
    Dim dt As DateTime = System.DateTime.Now
    Debug.WriteLine(System.DateTime.Now)        '結果  2005/09/02 22:04:59
    Debug.WriteLine(dt.ToLongDateString)        '結果  2005年9月2日
End Sub
　
★　ToLongTimeString メソッド
　
Private Sub Button26_Click(ByVal sender As System.Object, _
                           ByVal e As System.EventArgs) Handles Button26.Click
'DateTime.ToLongTimeString メソッド     [名前空間: System]
    'このインスタンスの値を、それと等価の
    '長い時刻書式の文字列形式に変換します。
    Dim dt As DateTime = System.DateTime.Now
    Debug.WriteLine(System.DateTime.Now)        '結果  2005/09/02 22:08:29
    Debug.WriteLine(dt.ToLongTimeString)        '結果  22:08:29
End Sub
　
★　ToShortDateString メソッド
　
Private Sub Button27_Click(ByVal sender As System.Object, _
                           ByVal e As System.EventArgs) Handles Button27.Click
'DateTime.ToShortDateString メソッド    [名前空間: System]
    'このインスタンスの値を、それと等価な
    '短い形式の日付の文字列形式に変換します。
    Dim dt As DateTime = System.DateTime.Now
    Debug.WriteLine(System.DateTime.Now)        '結果  2005/09/02 22:12:46
    Debug.WriteLine(dt.ToShortDateString)       '結果  2005/09/02
End Sub
　
★　ToShortTimeString メソッド
　
Private Sub Button28_Click(ByVal sender As System.Object, _
                           ByVal e As System.EventArgs) Handles Button28.Click
'DateTime.ToShortTimeString メソッド    [名前空間: System]
    'このインスタンスの値を、それと等価の
    '短い時刻書式の文字列形式に変換します。
    Dim dt As DateTime = System.DateTime.Now
    Debug.WriteLine(System.DateTime.Now)        '結果  2005/09/02 22:16:14
    Debug.WriteLine(dt.ToShortTimeString)       '結果  22:16
End Sub
　
★　ToString メソッド
　
Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button1.Click
'DateTime.ToString メソッド
    'インスタンスの値をそれと等価な文字列形式に変換します。
    Debug.WriteLine(DateTime.Now.ToString("yyyy/MM/dd"))      '結果  2004/05/15
    Debug.WriteLine(DateTime.Now.ToString("yyyy.MM.dd"))      '結果  2004.05.15
    Debug.WriteLine(DateTime.Now.ToString("gyyyy年MM月dd日")) '結果  西暦2004年05月15日
    Debug.WriteLine(DateTime.Now.ToString("hh:mm:ss"))        '結果  09:55:53
    Debug.WriteLine(DateTime.Now.ToString("hh時mm分ss秒"))    '結果  09時57分14秒

    Debug.WriteLine(DateTime.Now.ToString("d"))               '結果  2004/05/15
    Debug.WriteLine(DateTime.Now.ToString("D"))               '結果  2004年5月15日
    Debug.WriteLine(DateTime.Now.ToString("F"))               '結果  2004年5月15日 22:33:44

    '又、下記のような使用方法もあります
    Dim myCIintl As New System.Globalization.CultureInfo("ja-JP", True)
    myCIintl.DateTimeFormat.Calendar = New System.Globalization.JapaneseCalendar
    Debug.WriteLine(DateTime.Now.ToString("gyy年MM月dd日", myCIintl)) '結果 平成16年05月15日

    Dim dt As System.DateTime = "平成16年05月15日"
    Debug.WriteLine(dt.ToString("yyyy/MM/dd"))                        '結果  2004/05/15
    ' .NET では月の指定に mm を使用すると 分 を指定した事になるので注意
    ' 月を指定する場合は大文字の MM を使用して下さい。
    ' 分を指定する場合は小文字の mm を使用して下さい。

　　'文字列型から日付型に変換する場合
    Dim dt As DateTime
    Dim strTime As String = "20050921"
    dt = CDate(CLng(strTime).ToString("0000/00/00"))
    Debug.WriteLine(dt)     '結果  2005/09/21 00:00:00
    Debug.WriteLine(dt.ToShortDateString)   '結果  2005/09/21
End Sub
★　ToUniversalTime メソッド
　
Private Sub Button29_Click(ByVal sender As System.Object, _
                           ByVal e As System.EventArgs) Handles Button29.Click
'DateTime.ToUniversalTime メソッド  [名前空間: System]
    '現在のローカル時刻を世界協定時刻 (UTC) に変換します。
    Dim dt As DateTime = System.DateTime.Now
    Debug.WriteLine(System.DateTime.Now)        '結果  2005/09/02 22:20:40
    Debug.WriteLine(dt.ToUniversalTime)         '結果  2005/09/02 13:20:40
End Sub
　





2005/09/04
2005/09/21


VBレスキュー(花ちゃん)
VB.NET2003　　VB2005