時刻の秒を求める

Second関数は、引数に時刻を指定します。Second関数を実行すると、0~59の整数値を返します。日付と時刻を一緒に引数に指定しても大丈夫です。

Second関数の例です。直接日付を指定する時は、#で囲んで指定します。

#Month/Day/Year hour:minute:second#の順に記述し、時刻は24時制で入力しても、自動的に12時制に直します。引数に日付だけを指定すると、0になります。

  Dim byo As Integer
  byo = Second(Now)                       ' 現在の時刻の整数値（0～59）
  byo = Second(#3:45:12 AM#)              ' 12
  byo = Second(#5/16/2009 3:45:56 PM#)    ' 56
  byo = Second(#5/16/2009#)               '  0

Second関数の実行結果を代入する時は、左辺をInteger型にしてください。

  Dim byo As Integer = Second(Now)

Second関数のサンプルプログラム

Second関数を使って、現在の時刻を表示するやさしいサンプルプログラムを作成します。他の時刻関数Hour関数とMinute関数も利用します。

ソースリストの枠内をクリックすると全選択できます。

Module Module1

    Sub Main()
        ' Hour関数で"時"を取得
        Dim ji As Integer = Hour(Now)
        ' Minute関数で"分"を取得
        Dim fun As Integer = Minute(Now)
        ' Second関数で"秒"を取得
        Dim byo As Integer = Second(Now)

        ' 今の時刻
        Dim msg As String = ji & "時"
        msg &= fun & "分"
        msg &= Byo & "秒"
        ' 結果を表示
        Console.WriteLine(msg)
    End Sub

End Module