- 帖子
- 1018
- 主題
- 15
- 精華
- 0
- 積分
- 1058
- 點名
- 0
- 作業系統
- win7 32bit
- 軟體版本
- Office 2016 64-bit
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2012-5-9
- 最後登錄
- 2022-9-28
|
回復 1# Jared - Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- Const START_DATE = "2013/1/1"
- Const END_DATE = "2013/12/31"
-
- If TextBox1 = vbNullString Then Exit Sub '未填忽略
-
- If IsDate(TextBox1) Then
- If CDate(TextBox1) > DateValue(START_DATE) And CDate(TextBox1) < DateValue(END_DATE) Then
- TextBox1 = Format(TextBox1, "yyyy/m/d")
- Else
- MsgBox "您輸入的日期未介於" & START_DATE & "~" & END_DATE & "之間。"
- Cancel = True
- End If
- Else
- MsgBox "您的日期格式錯誤，正確規格為YYYY/MM/DD。"
- Cancel = True
- End If
- End Sub
|
|
發表於 2013-8-8 20:25
| 