VBレスキュー(花ちゃん)
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ各掲示板

メニューへ戻ります。 関数・メソッド・変数関係のメニュー
１．数学関数・三角関数の紹介
２．主要データ型等の変換関数等の紹介
３．Convert クラスのメソッドでのデータ型変換関数等の紹介
４．Microsoft.VisualBasic 名前空間の主要文字列関数の紹介　
５．System.String クラスの主要文字列関数の紹介
６．条件判断等を行う関数の紹介
７．日付・時刻に関する主要関数の紹介(Microsoft.VisualBasic名前空間)
８．日付・時刻に関する System 名前空間のメソッド等の紹介
９．その他の主要関数(メソッド)等の紹介　
10．
11．
12．
．
20．その他、当サイト内に掲載の関数・メソッド・変数に関するサンプル


７．日付・時刻に関する主要関数の紹介(Microsoft.VisualBasic名前空間)(11_Fnc_07)　(旧、SampleNo.009)
１ ．DateAdd メソッドの使用例(指定された時間間隔を加算した日付と時刻を日付型の値で返す)
２ ．DateDiff メソッドの使用例(指定された 2 つの日時の差分を指定の単位で返す)
３ ．DatePart メソッドの使用例(特定の Date 型の値の指定要素を含む Integer 型の値を返す)
４ ．DateSerial メソッドの使用例(指定の年、月、日を表す日付型の値を返す)
５ ．DateString プロパティの使用例(現在のシステム日付を表す文字列型の値を取得・設定する)
６ ．DateValue メソッドの使用例(文字列で表した日付情報を含む Date 値を返す)
７ ．Day メソッドの使用例(日付を表す 1 〜 31 の整数値を返す)
８ ．Hour メソッドの使用例(時刻を表す 0 〜 23 の整数値を返す)
９ ．Minute メソッドの使用例(分を表す 0 〜 59 の整数値を返す)
10．Month メソッドの使用例(月を表す 1 〜 12 の整数値を返す)
11．MonthName メソッドの使用例(指定した月の名前を含む文字列型の値を返す)
12．Now プロパティの使用例(システムに従った現在の日付と時刻を含む日付型の値を返す)
13．Second メソッドの使用例(秒を表す 0 〜 59 の整数値を返す)
14．TimeOfDay プロパティの使用例(システムに従った現在の時刻を含む日付型の値を取得・設定する)
15．Timer プロパティの使用例(午前 0 時から経過した秒数を表す倍精度浮動小数点数型の値を返す)
16．TimeSerial メソッドの使用例(西暦1年1月1日を基準にした、指定の時、分、秒を表す日付型の値を返す)
17．TimeString プロパティの使用例(システムに従った現在の時刻を表す文字列型の値を取得または設定する)
18．TimeValue メソッドの使用例(日付情報が1年1月1日に設定された文字列で表される時刻情報を含む日付型の値を返す)
19．Today プロパティの使用例(システムに従った現在の日付を含む日付型の値を取得または設定する)
20．Weekday メソッドの使用例(曜日を表す数値を含む整数型 の値を返す)
21．WeekdayName メソッドの使用例(指定した曜日の名前を含む文字列型の値を返す)
22．Year メソッドの使用例(年を表す 1 〜 9999 の整数型の値を返す)
23．
24．
25．
26．

実使用例としては適切でない使用例も含まれているかも知れませんがご了承願います。
また、使用例以外にも引数が色々用意されていますので、詳しくは、MSDN や WEB 上で調べて下さい。
　下記プログラムコードに関する補足・注意事項　
動作確認：Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU：x86
Option　：[Compare Text] [Explicit On] [Infer On] [Strict On]
Imports ：追加なし
参照設定：追加なし
その他　：Button1
　　　　：
このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので)
必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)
このページのトップへ移動します。 １．DateAdd メソッドの使用例(指定された時間間隔を加算した日付と時刻を日付型の値で返す)
[名前空間 : Microsoft.VisualBasic]
DateAdd メソッド = 指定された時間間隔を加算した日付と時刻を含む Date 値を返します。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    '本日より30日後の日付を求めます。
    Console.WriteLine("DateAdd(DateInterval.Day, 30, Now) = {0}", DateAdd(DateInterval.Day, 30, Now))
    '只今より3時間後の時間を求めます。
    Console.WriteLine("DateAdd(DateInterval.Hour, 3, Now) = {0}", DateAdd(DateInterval.Hour, 3, Now))

    TextBox1.Text = "01．DateAdd メソッドの使用例(指定された時間間隔を加算した日付と時刻を日付型の値で返す)" & vbCrLf
    TextBox1.Text &= "本日より30日後の日付を求めます。" & vbCrLf
    TextBox1.Text &= String.Format("DateAdd(DateInterval.Day, 30, Now) = {0}", DateAdd(DateInterval.Day, 30, Now)) & vbCrLf

    TextBox1.Text &= "只今より3時間後の時間を求めます。" & vbCrLf
    TextBox1.Text &= String.Format("DateAdd(DateInterval.Hour, 3, Now) = {0}", DateAdd(DateInterval.Hour, 3, Now)) & vbCrLf
End Sub


上記実行結果
01．DateAdd メソッドの使用例(指定された時間間隔を加算した日付と時刻を日付型の値で返す)

本日より30日後の日付を求めます。
DateAdd(DateInterval.Day, 30, Now) = 2015/02/08 09:55:58

只今より3時間後の時間を求めます。
DateAdd(DateInterval.Hour, 3, Now) = 2015/01/09 12:55:58
このページのトップへ移動します。 ２．DateDiff メソッドの使用例(指定された 2 つの日時の差分を指定の単位で返す)
[名前空間 : Microsoft.VisualBasic]
DateDiff メソッド = 2 つの Date 値の間に含まれる時間間隔の数を指定する Long 値を返します。

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    '愛子様が生まれてからの本日までの日数を求めます。
    Console.WriteLine("DateDiff(DateInterval.Day, DateValue(""2001/12/1""), Now) = {0}", _
                        DateDiff(DateInterval.Day, DateValue("2001/12/1"), Now))
    '愛子様が生まれてからの只今までの時間を求めます。
    Console.WriteLine("DateDiff(DateInterval.Hour, DateValue(""2001/12/1""), Now) = {0}", _
                        DateDiff(DateInterval.Hour, DateValue("2001/12/1"), Now))

    TextBox1.Text = "02．DateDiff メソッドの使用例(指定された 2 つの日時の差分を指定の単位で返す)" & vbCrLf
    TextBox1.Text &= "愛子様が生まれてからの本日までの日数を求めます。" & vbCrLf
    TextBox1.Text &= String.Format("DateDiff(DateInterval.Day, DateValue(""2001/12/1""), Now)  = {0} 日", _
                                    DateDiff(DateInterval.Day, DateValue("2001/12/1"), Now)) & vbCrLf

    TextBox1.Text &= "愛子様が生まれてからの現在までの時間を求めます。" & vbCrLf
    TextBox1.Text &= String.Format("DateDiff(DateInterval.Hour, DateValue(""2001/12/1""), Now) = {0} 時間", _
                                    DateDiff(DateInterval.Hour, DateValue("2001/12/1"), Now)) & vbCrLf
End Sub

上記実行結果
02．DateDiff メソッドの使用例(指定された 2 つの日時の差分を指定の単位で返す)

愛子様が生まれてからの本日までの日数を求めます。
DateDiff(DateInterval.Day, DateValue("2001/12/1"), Now)  = 4787 日

愛子様が生まれてからの現在までの時間を求めます。
DateDiff(DateInterval.Hour, DateValue("2001/12/1"), Now) = 114898 時間
このページのトップへ移動します。 ３．DatePart メソッドの使用例(特定の Date 型の値の指定要素を含む Integer 型の値を返す)
[名前空間 : Microsoft.VisualBasic]
DatePart メソッド = 特定の Date 型の値の指定要素を含む Integer 型の値を返します。

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    '１月１日からの通算日を取得
    Console.WriteLine("DatePart(DateInterval.DayOfYear, Now) = {0}", DatePart(DateInterval.DayOfYear, Now))
    Console.WriteLine("DatePart(""y"", CType(""2012/3/1"", Date)) = {0}", DatePart("y", CType("2012/3/1", Date)))
    Console.WriteLine("DatePart(""y"", CType(""2014/3/1"", Date)) = {0}", DatePart("y", CType("2014/3/1", Date)))
    '本日の経過時間を取得
    Console.WriteLine("DatePart(""h"", Now) = {0}", DatePart("h", Now))

    TextBox1.Text = "03．DatePart メソッドの使用例(特定の Date 型の値の指定要素を含む Integer 型の値を返す)" & vbCrLf
    TextBox1.Text &= "１月１日からの通算日を取得します。" & vbCrLf & vbCrLf
    TextBox1.Text &= String.Format("DatePart(DateInterval.DayOfYear, Now)  = {0}", DatePart(DateInterval.DayOfYear, Now)) & vbCrLf
    TextBox1.Text &= String.Format("DatePart(""y"", CType(""2012/3/1"", Date)) = {0}", DatePart("y", CType("2012/3/1", Date))) & vbCrLf
    TextBox1.Text &= String.Format("DatePart(""y"", CType(""2014/3/1"", Date)) = {0}", DatePart("y", CType("2014/3/1", Date))) & vbCrLf

    TextBox1.Text &= "本日の午前 0 時から現時点までの経過時間を取得します。" & vbCrLf
    TextBox1.Text &= String.Format("DatePart(""h"", Now) 　　　　　　　　　　= {0}", DatePart("h", Now)) & vbCrLf
End Sub

上記実行結果
03．DatePart メソッドの使用例(特定の Date 型の値の指定要素を含む Integer 型の値を返す)

１月１日からの通算日を取得します。

DatePart(DateInterval.DayOfYear, Now) = 9
DatePart("y", CType("2012/3/1", Date)) = 61
DatePart("y", CType("2014/3/1", Date)) = 60

本日の午前 0 時から現時点までの経過時間を取得します。
DatePart("h", Now) 　　　　　　　　　　= 10
このページのトップへ移動します。 ４．DateSerial メソッドの使用例(指定の年、月、日を表す日付型の値を返す)
[名前空間 : Microsoft.VisualBasic]
DateSerial メソッド = 指定された年、月、日を表す Date 値を返します。時刻情報は午前 0 時(00:00:00)に設定されます。

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    Console.WriteLine("DateSerial(2014, 1, 18)　= {0}", DateSerial(2014, 1, 18))
    Console.WriteLine("DateSerial(2014, 13, 18) = {0}", DateSerial(2014, 13, 18))
    Console.WriteLine("DateSerial(2014, 1, 38)　= {0}", DateSerial(2014, 1, 38))

    TextBox1.Text = "04．DateSerial メソッド = 指定された年、月、日を表す " _
                        & "Date 値を返します。時刻情報は午前 0 時(00:00:00)に設定されます。)" & vbCrLf & vbCrLf
    TextBox1.Text &= String.Format("DateSerial(2014, 1, 18)　= {0}", DateSerial(2014, 1, 18)) & vbCrLf
    TextBox1.Text &= String.Format("DateSerial(2014, 13, 18) = {0}", DateSerial(2014, 13, 18)) & vbCrLf
    TextBox1.Text &= String.Format("DateSerial(2014, 1, 38)　= {0}", DateSerial(2014, 1, 38)) & vbCrLf
End Sub

上記実行結果
04．DateSerial メソッド = 指定された年、月、日を表す Date 値を返します。時刻情報は午前 0 時(00:00:00)に設定されます。)

DateSerial(2014, 1, 18)　= 2014/01/18 00:00:00
DateSerial(2014, 13, 18) = 2015/01/18 00:00:00
DateSerial(2014, 1, 38)　= 2014/02/07 00:00:00
このページのトップへ移動します。 ５．DateString プロパティの使用例(現在のシステム日付を表す文字列型の値を取得・設定する)
[名前空間 : Microsoft.VisualBasic]
DateString プロパティ = システムに従った現在の日付を表す文字列型 (String) の値を取得または設定します。

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
'管理者権限での実行が必要になりますで、EXE の環境で実行して下さい。
    '現在のシステム日付を取得
    Dim myDate As String = DateString
    Console.WriteLine("Now　= {0}", Now)

    'システムの日付を "2015-02-18" に変更
    DateString = "2015-02-18"
    Console.WriteLine("DateString　= {0}", DateString)
    Console.WriteLine("Now　= {0}", Now)

    '現在のシステム日付を元に戻す
    DateString = myDate
    Console.WriteLine("Now　= {0}", Now)

    TextBox1.Text = "05．DateString プロパティの使用例(現在のシステム日付を表す文字列型の値を取得・設定する)" & vbCrLf
    TextBox1.Text &= "現在のシステム日付を取得" & vbCrLf
    TextBox1.Text &= "Dim myDate As String = DateString" & vbCrLf
    TextBox1.Text &= String.Format("Now　       = {0}", Now) & vbCrLf & vbCrLf

    TextBox1.Text &= "システムの日付を ""2015-02-18"" に変更" & vbCrLf
    DateString = "2015-02-18"
    TextBox1.Text &= String.Format("DateString　= {0}", DateString) & vbCrLf
    TextBox1.Text &= String.Format("Now　       = {0}", Now) & vbCrLf & vbCrLf

    TextBox1.Text &= "現在のシステム日付を元に戻す" & vbCrLf
    DateString = myDate
    TextBox1.Text &= "DateString = myDate" & vbCrLf
    TextBox1.Text &= String.Format("Now　       = {0}", Now) & vbCrLf
End Sub

上記実行結果
05．DateString プロパティの使用例(現在のシステム日付を表す文字列型の値を取得・設定する)

現在のシステム日付を取得
Dim myDate As String = DateString
Now　 = 2015/01/09 10:10:59

システムの日付を "2015-02-18" に変更
DateString　= 2015-02-18
Now　 = 2015/02/18 10:10:59

現在のシステム日付を元に戻す
DateString = myDate
Now　 = 2015/01/09 10:10:59
このページのトップへ移動します。 ６．DateValue メソッドの使用例(文字列で表した日付情報を含む Date 値を返す)
[名前空間 : Microsoft.VisualBasic]
DateValue メソッド = 文字列で表した日付情報を含む Date 値を返します。時刻情報は午前 0 時(00:00:00)に設定されます。

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
    Console.WriteLine("DateValue(""平成26年1月18日"") = {0}", DateValue("平成26年1月18日"))

    TextBox1.Text = "06．DateValue メソッド = 文字列で表した日付情報を含む Date 値を返します。" _
                                                      & "時刻情報は午前 0 時(00:00:00)に設定されます。)" & vbCrLf
    TextBox1.Text &= String.Format("DateValue(""平成26年1月18日"") = {0}", DateValue("平成26年1月18日")) & vbCrLf
End Sub

上記実行結果
06．DateValue メソッド = 文字列で表した日付情報を含む Date 値を返します。時刻情報は午前 0 時(00:00:00)に設定されます。)

DateValue("平成26年1月18日") = 2014/01/18 00:00:00
このページのトップへ移動します。 ７．Day メソッドの使用例(日付を表す 1 〜 31 の整数値を返す)
[名前空間 : Microsoft.VisualBasic]
Day メソッド = 月内の通算日を表す 1 〜 31 の Integer 値を返します。

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
    '本日の日付を取得します。
    Console.WriteLine("DateAndTime.Day(Now) = {0}", DateAndTime.Day(Now))

    TextBox1.Text = "07．Day メソッドの使用例(日付を表す 1 〜 31 の整数値を返す)" & vbCrLf
    TextBox1.Text &= "本日の日付を取得します。" & vbCrLf
    TextBox1.Text &= String.Format("DateAndTime.Day(Now) = {0}", DateAndTime.Day(Now)) & vbCrLf
End Sub

上記実行結果
07．Day メソッドの使用例(日付を表す 1 〜 31 の整数値を返す)
本日の日付を取得します。
DateAndTime.Day(Now) = 9
このページのトップへ移動します。 ８．Hour メソッドの使用例(時刻を表す 0 〜 23 の整数値を返す)
[名前空間 : Microsoft.VisualBasic]
Hour メソッド = 時を表す 0 〜 23 の Integer 値を返します。

Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
    '現在の時間を取得します。
    Console.WriteLine("DateAndTime.Hour(Now) = {0}", DateAndTime.Hour(Now))

    TextBox1.Text = "08．Hour メソッドの使用例(時刻を表す 0 〜 23 の整数値を返す)" & vbCrLf
    TextBox1.Text &= "現在の時間を取得します。" & vbCrLf
    TextBox1.Text &= String.Format("DateAndTime.Hour(Now) = {0}", DateAndTime.Hour(Now)) & vbCrLf
End Sub

上記実行結果
08．Hour メソッドの使用例(時刻を表す 0 〜 23 の整数値を返す)
現在の時間を取得します。
DateAndTime.Hour(Now) = 10
このページのトップへ移動します。 ９．Minute メソッドの使用例(分を表す 0 〜 59 の整数値を返す)
[名前空間 : Microsoft.VisualBasic]
Minute メソッド = 分を表す 0 〜 59 の Integer 値を返します。

Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
    '現在の分を取得します。
    Console.WriteLine("DateAndTime.Minute(Now) = {0}", DateAndTime.Minute(Now))

    TextBox1.Text = "09．Minute メソッドの使用例(分を表す 0 〜 59 の整数値を返す)" & vbCrLf
    TextBox1.Text &= "現在の分を取得します。" & vbCrLf
    TextBox1.Text &= String.Format("DateAndTime.Minute(Now) = {0}", DateAndTime.Minute(Now)) & vbCrLf
End Sub

上記実行結果
09．Minute メソッドの使用例(分を表す 0 〜 59 の整数値を返す)
現在の分を取得します。
DateAndTime.Minute(Now) = 25
このページのトップへ移動します。 10．Month メソッドの使用例(月を表す 1 〜 12 の整数値を返す)
[名前空間 : Microsoft.VisualBasic]
Month メソッド = 月を表す 1 〜 12 の Integer 値を返します。

Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
    '本日の月を取得します。
    Console.WriteLine("DateAndTime.Month(Now) = {0}", DateAndTime.Month(Now))

    TextBox1.Text = "10．Month メソッドの使用例(月を表す 1 〜 12 の整数値を返す)" & vbCrLf
    TextBox1.Text &= "本日の月を取得します。" & vbCrLf
    TextBox1.Text &= String.Format("DateAndTime.Month(Now) = {0}", DateAndTime.Month(Now)) & vbCrLf
End Sub

上記実行結果
10．Month メソッドの使用例(月を表す 1 〜 12 の整数値を返す)
本日の月を取得します。
DateAndTime.Month(Now) = 1
このページのトップへ移動します。 11．MonthName メソッドの使用例(指定した月の名前を含む文字列型の値を返す)
[名前空間 : Microsoft.VisualBasic]
MonthName メソッド = 指定した月の名前を含む String 値を返します。

Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
    Console.WriteLine("DateAndTime.MonthName(1) = {0}", DateAndTime.MonthName(1))
    Console.WriteLine("DateAndTime.MonthName(1, True) = {0}", DateAndTime.MonthName(1, True))

    TextBox1.Text = "11．MonthName メソッドの使用例(指定した月の名前を含む文字列型の値を返す)" & vbCrLf
    TextBox1.Text &= String.Format("DateAndTime.MonthName(1)       = {0}", DateAndTime.MonthName(1)) & vbCrLf
    TextBox1.Text &= "引数に True が設定されている場合は、月名は省略される。" & vbCrLf
    TextBox1.Text &= String.Format("DateAndTime.MonthName(1, True) = {0}", DateAndTime.MonthName(1, True)) & vbCrLf
End Sub

上記実行結果
11．MonthName メソッドの使用例(指定した月の名前を含む文字列型の値を返す)
DateAndTime.MonthName(1) = 1月
引数に True が設定されている場合は、月名は省略される。
DateAndTime.MonthName(1, True) = 1
このページのトップへ移動します。 12．Now プロパティの使用例(システムに従った現在の日付と時刻を含む日付型の値を返す)
[名前空間 : Microsoft.VisualBasic]
Now プロパティ = システムに従った現在の日付と時刻を含む日付型 (Date) の値を返します。

Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
    Console.WriteLine("Now = {0}", Now)

    TextBox1.Text = "12．Now プロパティの使用例(システムに従った現在の日付と時刻を含む日付型の値を返す)" & vbCrLf
    TextBox1.Text &= String.Format("Now = {0}", Now) & vbCrLf
End Sub

上記実行結果
12．Now プロパティの使用例(システムに従った現在の日付と時刻を含む日付型の値を返す)
Now = 2015/01/09 10:31:33
このページのトップへ移動します。 13．Second メソッドの使用例(秒を表す 0 〜 59 の整数値を返す)
[名前空間 : Microsoft.VisualBasic]
Second メソッド = 秒を表す 0 〜 59 の Integer 値を返します。

Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
    '現在の秒を取得します。
    Console.WriteLine("DateAndTime.Second(Now) = {0}", DateAndTime.Second(Now))

    TextBox1.Text = "13．Second メソッドの使用例(秒を表す 0 〜 59 の整数値を返す)" & vbCrLf
    TextBox1.Text &= "現在の秒を取得します。" & vbCrLf
    TextBox1.Text &= String.Format("DateAndTime.Second(Now) = {0}", DateAndTime.Second(Now)) & vbCrLf
End Sub

上記実行結果
13．Second メソッドの使用例(秒を表す 0 〜 59 の整数値を返す)
現在の秒を取得します。
DateAndTime.Second(Now) = 13
このページのトップへ移動します。 14．TimeOfDay プロパティの使用例(システムに従った現在の時刻を含む日付型の値を取得・設定する)
[名前空間 : Microsoft.VisualBasic]
TimeOfDay プロパティ = システムに従った現在の時刻を含む日付型(Date)の値を取得または設定します。

Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
    Console.WriteLine("TimeOfDay = {0}", TimeOfDay)

    TextBox1.Text = "14．TimeOfDay プロパティの使用例(システムに従った時刻等の日付型の値を取得・設定する)" & vbCrLf
    TextBox1.Text &= "TimeOfDay では日付要素が無視されるので、西暦1年1月1日の日付が使用されます。" & vbCrLf
    TextBox1.Text &= String.Format("TimeOfDay = {0}", TimeOfDay) & vbCrLf
End Sub

上記実行結果
14．TimeOfDay プロパティの使用例(システムに従った時刻等の日付型の値を取得・設定する)
TimeOfDay では日付要素が無視されるので、西暦1年1月1日の日付が使用されます。
TimeOfDay = 0001/01/01 10:35:53
このページのトップへ移動します。 15．Timer プロパティの使用例(午前 0 時から経過した秒数を表す倍精度浮動小数点数型の値を返す)
[名前空間 : Microsoft.VisualBasic]
DateAndTime.Timer プロパティ = 午前 0 時から経過した秒数を表す倍精度浮動小数点数型(Double)の値を返します。

Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
    Console.WriteLine("DateAndTime.Timer = {0}", DateAndTime.Timer)

    TextBox1.Text = "15．Timer プロパティの使用例(午前 0 時から経過した秒数を表す倍精度浮動小数点数型の値を返す)" & vbCrLf & vbCrLf
    TextBox1.Text &= String.Format("DateAndTime.Timer = {0}", DateAndTime.Timer) & vbCrLf
End Sub

上記実行結果
15．Timer プロパティの使用例(午前 0 時から経過した秒数を表す倍精度浮動小数点数型の値を返す)
DateAndTime.Timer = 38360.4711998
このページのトップへ移動します。 16．TimeSerial メソッドの使用例(西暦1年1月1日を基準にした、指定の時、分、秒を表す日付型の値を返す)
[名前空間 : Microsoft.VisualBasic]
TimeSerial メソッド = 1年1月1日を基準に設定された日付情報を使用して、指定された時、分、秒を表す Date 値を返す。

Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click
    Console.WriteLine("TimeSerial(14, 25, 50) = {0}", TimeSerial(14, 25, 50))

    TextBox1.Text = "16．TimeSerial メソッドの使用例(西暦1年1月1日を基準にした、指定の時、分、秒を表す日付型の値を返す)" & vbCrLf
    TextBox1.Text &= String.Format("TimeSerial(14, 25, 50) = {0}", TimeSerial(14, 25, 50)) & vbCrLf
End Sub

上記実行結果
16．TimeSerial メソッドの使用例(西暦1年1月1日を基準にした、指定の時、分、秒を表す日付型の値を返す)
TimeSerial(14, 25, 50) = 0001/01/01 14:25:50
このページのトップへ移動します。 17．TimeString プロパティの使用例(システムに従った現在の時刻を表す文字列型の値を取得または設定する)
[名前空間 : Microsoft.VisualBasic]
TimeString プロパティ = システムにおける現在の時刻を表す文字列(String)の値を取得または設定します。

Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click
    Console.WriteLine("TimeString = {0}", TimeString)

    TextBox1.Text = "17．TimeString プロパティの使用例(システムに従った現在の時刻を表す文字列型の値を取得または設定する)" & vbCrLf
    TextBox1.Text &= String.Format("TimeString = {0}", TimeString) & vbCrLf
End Sub

上記実行結果
17．TimeString プロパティの使用例(システムに従った現在の時刻を表す文字列型の値を取得または設定する)
TimeString = 10:48:51
このページのトップへ移動します。 18．TimeValue メソッドの使用例(日付情報が1年1月1日に設定された文字列で表される時刻情報を含む日付型の値を返す)
[名前空間 : Microsoft.VisualBasic]
TimeValue メソッド = 文字列で表した時刻情報を含む Date 値を返します。日付情報は 1 年 1 月 1 日に設定されます。

Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
    Console.WriteLine("TimeValue(""16時25分30秒"") = {0}", TimeValue("16時25分30秒"))

    TextBox1.Text = "18．TimeValue メソッドの使用例(日付情報が1年1月1日に設定された" _
                                               & "文字列で表される時刻情報を含む日付型の値を返す)" & vbCrLf
    TextBox1.Text &= String.Format("TimeValue(""16時25分30秒"") = {0}", TimeValue("16時25分30秒")) & vbCrLf
End Sub

上記実行結果
18．TimeValue メソッドの使用例(日付情報が1年1月1日に設定された文字列で表される時刻情報を含む日付型の値を返す)
TimeValue("16時25分30秒") = 0001/01/01 16:25:30
このページのトップへ移動します。 19．Today プロパティの使用例(システムに従った現在の日付を含む日付型の値を取得または設定する)
[名前空間 : Microsoft.VisualBasic]
Today プロパティ = システムに従った現在の日付を含む日付型 (Date) の値を取得または設定します。

Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
    Console.WriteLine("Today = {0}", Today)

    TextBox1.Text = "19．Today プロパティの使用例(システムに従った現在の日付を含む日付型の値を取得または設定する)" & vbCrLf
    TextBox1.Text &= String.Format("Today = {0}", Today) & vbCrLf
End Sub

上記実行結果
19．Today プロパティの使用例(システムに従った現在の日付を含む日付型の値を取得または設定する)
Today = 2015/01/09 00:00:00
このページのトップへ移動します。 20．Weekday メソッドの使用例(曜日を表す数値を含む整数型 の値を返す)
[名前空間 : Microsoft.VisualBasic]
Weekday メソッド = 曜日を表す数値を含む Integer 値を返します。

Private Sub Button20_Click(sender As Object, e As EventArgs) Handles Button20.Click
    Console.WriteLine("Weekday(Now) = {0}", Weekday(Now))

    TextBox1.Text = "20．Weekday メソッドの使用例(曜日を表す数値を含む整数型 の値を返す)" & vbCrLf
    TextBox1.Text &= "日曜日 = 1 〜 土曜日 = 7 までの曜日を表す数値" & vbCrLf
    TextBox1.Text &= String.Format("Weekday(Now) = {0}", Weekday(Now)) & vbCrLf
End Sub

上記実行結果
20．Weekday メソッドの使用例(曜日を表す数値を含む整数型 の値を返す)
日曜日 = 1 〜 土曜日 = 7 までの曜日を表す数値
Weekday(Now) = 6
このページのトップへ移動します。 21．WeekdayName メソッドの使用例(指定した曜日の名前を含む文字列型の値を返す)
[名前空間 : Microsoft.VisualBasic]
WeekdayName メソッド = 指定した曜日の名前を含む String 値を返します。

Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click
    Console.WriteLine("WeekdayName(3, True) = {0}", WeekdayName(3, True))
    Console.WriteLine("WeekdayName(Weekday(Now)) = {0}", WeekdayName(Weekday(Now)))

    TextBox1.Text = "21．WeekdayName メソッドの使用例(指定した曜日の名前を含む文字列型の値を返す)" & vbCrLf
    TextBox1.Text &= String.Format("WeekdayName(3, True) 　　 = {0}", WeekdayName(3, True)) & vbCrLf
    TextBox1.Text &= String.Format("WeekdayName(Weekday(Now)) = {0}", WeekdayName(Weekday(Now))) & vbCrLf
End Sub

上記実行結果
21．WeekdayName メソッドの使用例(指定した曜日の名前を含む文字列型の値を返す)
WeekdayName(3, True) 　　 = 火
WeekdayName(Weekday(Now)) = 金曜日
このページのトップへ移動します。 22．Year メソッドの使用例(年を表す 1 〜 9999 の整数型の値を返す)
[名前空間 : Microsoft.VisualBasic]
Year メソッド = 年を表す 1 〜 9999 の Integer 値を返します。

Private Sub Button22_Click(sender As Object, e As EventArgs) Handles Button22.Click
    Console.WriteLine("Year(Now) = {0}", Year(Now))

    TextBox1.Text = "22．Year メソッドの使用例(年を表す 1 〜 9999 の整数型の値を返す)" & vbCrLf
    TextBox1.Text &= String.Format("Year(Now) = {0}", Year(Now)) & vbCrLf
End Sub

上記実行結果
22．Year メソッドの使用例(年を表す 1 〜 9999 の整数型の値を返す)
Year(Now) = 2015
このページのトップへ移動します。 23．
[名前空間 : Microsoft.VisualBasic]
このページのトップへ移動します。 24．



このページのトップへ移動します。 25．



このページのトップへ移動します。 26．



このページのトップへ移動します。 検索キーワード及びサンプルコードの別名(機能名)





このページのトップへ移動します。