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

Visual Basic 2012/2010 超やさしい文法

   現在の日付時刻を表示する

フォーム(画面)に、今日の日付と現在の時刻を表示するプログラムを作成します。

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

Visual Studio Express 2012 for Windows Desktop を起動したら、プロジェクト「Calculator」を選択し、「Calculator.sln」をダブルクリックします。プロジェクトを未作成ならば、新しいプロジェクトを作成します。

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

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

VB2012ラベル ラベルプロパティ

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

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

【注意】初期の Visual Basic 2010 Express Edition では、
Form1_load(ByVal sender As Object, ByVal e .....) となっていましたが、
Visual Studio Express 2012 for Windows Desktop では、
Form1_load(sender As Object, e As EventArgs)と ByVal が、既定では省略されるようになりました。

FormLoadVB2012

下は、初期の Visual Basic 2010 Express Edition
コード入力画面

以後、ByValは、省略します。

Private Sub Form1_load(sender As Object, e As EventArgs) Handles MyBase. Load と、End Sub の間に、プログラムを記述します。

  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

      ' Year関数できょうの西暦年号を取得
      Dim seireki As Integer = Year(Now)
      ' Month関数できょうの月を取得
      Dim tsuki As Integer = Month(Now)
      ' day関数できょうの日を取得
      Dim hi As Integer = 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関数を、DateAndTime.Day と記述します。

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

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

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

実行結果

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

次回は、ボタンクリック処理のやさしいプログラムを作成します。数字ボタンをクリックすると、ボタンの数字をそのまま表示するプログラムを作成します。

数字ボタンクリック処理で数字を表示



Copyright© やさしいVB2010/2008 ADO.NET. All rights reserved.