Program Countdown ke Tahun Baru pada VB.Net

Berikut potongan program VB.Net untuk menampilkan countdown (hitung mundur) ke tahun baru. Potongan program ini diletakkan di dalam event handler Timer1_Tick(). Yang belum sempurna dari program ini adalah jika nilai dari daydiff, hrsdiff, dan mntdiff adalah 0 (nol) maka akan keluar pesan kesalahan dan program langsung berhenti. silahkan diperbaiki.

Dim tgl As Date = CDate("1/1/" & CStr(Now.Year + 1))
Dim daydiff As Integer = DateDiff(DateInterval.Day, Now, tgl)
Dim hrsdiff As Integer = DateDiff(DateInterval.Hour, Now, tgl)
Dim mntdiff As Integer = DateDiff(DateInterval.Minute, Now, tgl)
Dim secdiff As Integer = DateDiff(DateInterval.Second, Now, tgl)

Label1.Text = daydiff & " days, " & _
              hrsdiff Mod daydiff & " hr, " & _
              mntdiff Mod hrsdiff & " min " & _
              Format(secdiff Mod mntdiff, "00") & " sec "

Selamat mencoba.