VBに...

Question

http://skylinker.blog.fc2.com/blog-entry-51.html

どなたかこれをVBのソースコードにできませんか...

Answer 1

VBとC#のコードが読める人なら誰でもできると思います。

推奨していない質問

Comments

[g56ht64j]

Imports System
Imports System.Drawing
Imports System.Windows.Forms
Public Class Form1
Public Sub New()
InitializeComponent()
Setting()
End Sub

Private Sub Setting()
Label1.Font = New Font(Label1.Font.FontFamily, 22, Label1.Font.Style) 'ラベルのフォントサイズを変更
'タイマーをスタート
Timer1.Start()
End Sub

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
' 現在時を取得
Dim datetime_now As DateTime = DateTime.Now
Dim datetime_set As DateTime = New DateTime(datetime_now.Year, datetime_now.Month, datetime_now.Day, 23, 59, 0)

'残り時間を表示
Label1.Text = "残り：" & (((datetime_set.Hour - datetime_now.Hour) * 3600) + ((datetime_set.Minute - datetime_now.Minute) * 60) + (datetime_set.Second - datetime_now.Second)) & "秒"

If datetime_now.ToLongTimeString() = datetime_set.ToLongTimeString() Then
Label1.Text = "時間です。"
'タイマー停止
Timer1.Stop()
End If
End Sub
End Class

こんな感じなら秒と表示されてしまいます... これをyyyy/MM/dd HH:mm:ssという感じで表示できませんか？

[退会済みユーザー]

5000秒 = 5000 / 60 小数点以下切り捨てで「分」あまりが秒
5000秒 = 5000 / 60（分）/ 60（秒）小数点以下切り捨てで「時間」あまり「秒」

同様に計算すれば求められます。（というかこれ、算数…）