[請益] visual basic日期的問題

[cherryapril (偲)]

我是才剛學visual basic的新手

想要寫一個可以計算從出生到現在過了幾天的程式。

希望能夠讓使用者方便，可以輸入各種數字或文字，

但只要並非日期就會跳出錯誤的警告框。

但現在卡在只要一輸入文字或數字程式就會整個crash

嘗試用if then來寫但沒用Q_Q

用if not 也一直出現date和if not不相容Q__________Q


跪求強者幫忙Q____________Q

Option Strict On
Public Class Form1

    Private Sub btncompute_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btncompute.Click

        Dim d As Date = CDate(TextBox1.Text)

        txttoday.Text = FormatDateTime(Today)
        txtfromnowon.Text = FormatNumber(DateDiff(DateInterval.Day, d,
Today), 0)

    End Sub

End Class

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 160.94.47.16
→ MOONRAKER:整個crash？太誇張了 我看是VB裝爛了吧