- 810 名前：デフォルトの名無しさん [2007/02/27(火) 17:02:48 ]
- こんにちは。VB6からVB.net 2003に転向しようとしていて苦しんでいる初心者です。
windows XP環境で下記のようなツールを作成していますがうまくいきません。
①フォーム（form1）上にボタン一つ（button1）配置
②button1を押すと、現在のシステム時刻を変数に代入
③その際、代入された時刻が13:00～15:00の間だった場合はその時刻を表示
下記のようにコーディングしてみたのですが、さっぱり動きません。
どうすれば正しく動くのか教えていただけますでしょうか？
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
Dim dtNow As DateTime = DateTime.Now
Dim tsNow As TimeSpan = dtNow.TimeOfDay
If tsNow >= #1:00:00 PM# And tsNow <= #3:00:00 PM# Then
MsgBox(tsNow.ToString())
End If
End Sub
|
 |
