关于判断数据类型的的问题?

Question

比如TEXT1.TEXT 只能输入日期型变量,如果不是则给出提示
还有数字型,货币型,,
还有他们之间怎么转换?

Answer 1

IF ISDATE(TEXT1) THEN
    MSGBOX "是日期型"
ELSE
    MSGBOX "不是日期型"
END IF

Answer 2

Dim S As Double
       Dim C As Currency
       
       '转货币
       C = CCur(S)
       '转数字型
       S = CDbl(C)

Answer 3

TEXT1输入日期有效性判断：
Private Sub Text1_Validate(Cancel As Boolean)
        IF ISDATE(TEXT1) THEN
        MSGBOX "是日期型"
    ELSE
        MSGBOX "不是日期型"
        Cancel=True
    END IF
End Sub

Answer 4

是否日期型用IF ISDATE(TEXT1) THEN判断
是否数字型用IF ISNUMERIC(TEXT1) THEN判断
转换成数字型用VAL(TEXT1)
转换成日期型用CDATE(TEXT1)