玄関へお回り下さい。
DateTime 書式指定文字の実行例及び書式設定応用例 (36個)         (SNo.081)

1.標準 DateTime 書式指定文字の実行例 (21)
2.カスタム DateTime 書式指定文字の実行例 (13)
3.日付の文字列("20051006")をDate型の値に変換する (1)
4.今年のクリスマスイブは何曜日?(月日を固定してシステム日付を取得) (1)
使用コントロール Button1 〜 Button4
その他条件 WindowsXP(Vista) Visual Basic 2005(VB2008)
 
1.標準 DateTime 書式指定文字の実行例(21)

Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button1.Click
'標準 DateTime 書式指定文字の実行例(20)
    Dim dt As System.DateTime = System.DateTime.Now
    Debug.WriteLine(dt.ToString("yyyy/MM/dd"))      '結果  2005/10/06
    Debug.WriteLine(dt.ToString("yyyy/MM"))         '結果  2005/10
    Debug.WriteLine(dt.ToString("yyyy.MM.dd"))      '結果  2005.10.06
    Debug.WriteLine(dt.ToString("yyyyMMdd"))        '結果  20051006
    Debug.WriteLine(dt.ToString("gyyyy年MM月dd日")) '結果  西暦2005年10月06日
    Debug.WriteLine(dt.ToString("d"))             '結果  2005/10/06
    Debug.WriteLine(dt.ToString("D"))             '結果  2005年10月6日
    Debug.WriteLine(dt.ToString("t"))             '結果  14:31
    Debug.WriteLine(dt.ToString("T"))             '結果  14:31:48
    Debug.WriteLine(dt.ToString("f"))             '結果  2005年10月6日 14:31
    Debug.WriteLine(dt.ToString("F"))             '結果  2005年10月6日 14:31:48
    Debug.WriteLine(dt.ToString("g"))             '結果  2005/10/06 14:31
    Debug.WriteLine(dt.ToString("G"))             '結果  2005/10/06 14:31:48
    Debug.WriteLine(dt.ToString("m"))             '結果  10月6日
    Debug.WriteLine(dt.ToString("M"))             '結果  10月6日
    Debug.WriteLine(dt.ToString("r"))             '結果  Thu, 06 Oct 2005 14:31:48 GMT
    Debug.WriteLine(dt.ToString("R"))             '結果  Thu, 06 Oct 2005 14:31:48 GMT
    Debug.WriteLine(dt.ToString("s"))             '結果  2005-10-06T14:31:48
    Debug.WriteLine(dt.ToString("u"))             '結果  2005-10-06 14:31:48Z
    Debug.WriteLine(dt.ToString("U"))             '結果  2005年10月6日 05:31:48
  Debug.WriteLine(dt.ToString("tth時m分s秒"))
  '結果 午後5時23分34秒
End Sub

 詳しくは、下記をご覧下さい。
  標準の DateTime 書式指定文字  
 
2.カスタム DateTime 書式指定文字の実行例(13)

Private Sub Button2_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button2.Click
'カスタム DateTime 書式指定文字の実行例(15)
    Dim dt As System.DateTime = System.DateTime.Now
    Debug.WriteLine(dt.ToString(" d"))          '結果  6
    Debug.WriteLine(dt.ToString(" dd"))         '結果  06
    Debug.WriteLine(dt.ToString(" ddd"))        '結果  木
    Debug.WriteLine(dt.ToString(" dddd"))       '結果  木曜日
    Debug.WriteLine(dt.ToString(" m"))          '結果  41
    Debug.WriteLine(dt.ToString(" mm分"))       '結果  41分
    Debug.WriteLine(dt.ToString(" M"))          '結果  10
    Debug.WriteLine(dt.ToString(" MM"))         '結果  10
    Debug.WriteLine(dt.ToString(" MMM"))        '結果  10
    Debug.WriteLine(dt.ToString(" MMMM"))       '結果  10月
    Debug.WriteLine(dt.ToString(" ss秒"))       '結果  25秒
    Debug.WriteLine(dt.ToString(" tt"))         '結果  午後
    Debug.WriteLine(dt.ToString("tthh時"))      '結果  午後02時
End Sub

 詳しくは、下記をご覧下さい。
  カスタム DateTime 書式指定文字列
 

3.日付の文字列("20051006")をDate型の値に変換する

Private Sub Button3_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button3.Click
'日付の文字列("20051006")をDate型の値に変換する
    Dim dt As DateTime
    Dim strDate As String = "20051006"

    dt = CDate(String.Format("{0:0000/00/00}", CDbl(strDate)))
    Debug.WriteLine(dt)     '結果  2005/10/06 00:00:00

    dt = DateTime.Parse(Format(Integer.Parse(strDate), "0000/00/00"))
    Debug.WriteLine(dt)     '結果  2005/10/06 00:00:00

    dt = CDate(CLng(strDate).ToString("0000/00/00"))
    Debug.WriteLine(dt)     '結果  2005/10/06 00:00:00

    dt = Date.Parse(Format(CLng(strDate), "0000/00/00"))
    Debug.WriteLine(dt.ToShortDateString)   '結果  2005/10/06
End Sub

結構、掲示板とかで質問があるので掲載しておきます。

4.今年のクリスマスイブは何曜日?(月日を固定してシステム日付を取得)

Private Sub Button4_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button4.Click
'今年のクリスマスイブは何曜日(月日を固定してシステム日付を取得)     
    Debug.WriteLine(CDate(System.DateTime.Now.ToString("yyyy/12/24")).ToString("dddd"))
    '結果  土曜日
End Sub

毎年の会社の創立記念日の取得とか誕生日の取得とかに便利かと。

メニューの関数・メソッド等の中の[日付・時刻に関する関数(Microsoft.VisualBasic)の使用例] [日付・時刻に関するメソッド(DateTime 構造体)等の使用例その1] [日付・時刻に関するメソッド(DateTime 構造体)等の使用例その2] [日付・時刻に関する書式設定関係のメソッド等の使用例] もご覧下さい。





2004/05/16
2005/10/07


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