現在の日付時刻を表示する [VB 2010]

日付関数・時刻関数を使う

Visual Basic 2008 Express Editionを起動、「Windows フォーム アプリケーション」を選択して、プロジェクト名を入力したら、[OK]ボタンを押して、新しいプロジェクトを作成します。

ラベルに、日付時刻を表示するプログラムを書いてみましょう。

まずツールボックスからLabel（ラベル）を選択して、フォームに貼り付けてください。そしてラベルLabel1を選択したまま、プロパティの（name）を、Label1からLblNowに変更します。

このラベルに、次の6つの関数を利用して、今日の日付と現在の時刻を表示できるようにプログラミングします。

• Year関数
• Month関数
• Day関数
• Hour関数
• Minute関数
• Second関数

Form1上でダブルクリックするか、ソリューションエクスプローラのコードの表示ボタンをクリックして、図のように[Form1 イベント]と[Load]を選択します。

Private Sub Form1_load(ByVal ...........) Handles Me. Load と、End Sub の間に、プログラムを記述します。

  Private Sub Form1_Load(ByVal ........) Handles Me.Load

      ' Year関数できょうの西暦年号を取得
      Dim seireki As Integer = Year(Now)
      ' Month関数できょうの月を取得
      Dim tsuki As Integer = Month(Now)
      ' day関数できょうの日を取得
      Dim hi As Integer = Microsoft.VisualBasic.DateAndTime.Day(Now)
      ' Hour関数で現在の時を取得
      Dim ji As Integer = Hour(Now)
      ' Minute関数で現在の分を取得
      Dim hun As Integer = Minute(Now)
      ' Second関数で現在の秒を取得
      Dim byou As Integer = Second(Now)

      ' ラベルLblNowのTextプロパティに代入
      LblNow.Text = seireki & "年"
      LblNow.Text &= tsuki & "月"
      LblNow.Text &= hi & "日"
      LblNow.Text &= ji & "時"
      LblNow.Text &= hun & "分"
      LblNow.Text &= byou & "秒"

  End Sub

【注意】Windows アプリケーションでは、Day関数を、 Microsoft.VisualBasic.DateAndTime.Day と記述します。

プログラムを見やすくするために、複合代入演算子 &= を使っていますが、次のように1行で書いても同じ結果になります。

LblNow.Text = seireki & "年" & tsuki & "月" & hi & "日" &  ji & "時" & hun & "分" & byou & "秒"

ではプログラムを実行してみましょう。次のように表示されれば無事完成です。

Visual Basic 2010 Express でも同じプログラムになります。

それでは、やさしい簡易電卓プログラムを作成していきます。

■ VB2008・VB2010で簡単電卓を作成する