1樓：網海1書生
if isdate(text1.text) thenmsgbox "正確的日期格式"
else
msgbox "錯誤的日期格式"
end if
要再高階點就是：
if isdate(text1.text) thenif format(text1.text, "yyyy-m-d") = text1.text then
msgbox "正確的日期格式"
else
msgbox "不是指定的日期格式（yyyy-m-d）"
end if
else
msgbox "錯誤的日期格式"
end if
2樓：澀果子
這樣修改：
private sub form_click()
dim a as long, b as long, c as long, d as long
dim m as boolean, n as boolean, i as boolean
m = true
n = true
i = true
a = val(inputbox("請輸入日期", "", 19491001))
b = left(a, 4)
c = mid(a, 5, 2)
d = right(a, 2)
if b >= 1900 and c <= 3000 then
m = true
else
m = false
end if
if c >= 1 and c <= 12 then
n = true
else
n = false
end if
if c = 1 or c = 3 or c = 5 or c = 7 or c = 8 or c = 10 or c = 12 then
if d <= 31 and d > 0 then
i = true
else
i = false
end if
end if
if c = 4 or c = 6 or c = 9 or 11 then
if d <= 30 and d > 0 then
i = true
else
i = false
end if
end if
if c = 2 then
if d > 0 and d <= 28 then
i = true
else
i = false
end if
end if
if (b mod 4 = 0 and b mod 100 <> 0) or b mod 400 = 0 and c = 2 then
if d > 0 and d <= 29 then
i = true
else
i = false
end if
end if
if i = true and m = true and n = true then
print "輸入的日期正確"
else
print "日期錯誤! "
end if
end sub
可判斷2023年-2023年的大小月，閏年。
如何在vb的3個text中輸入正確的日期格式？
3樓：杭州企秀
朋友，有什麼問題還不知道的問我，或+我，我發程式給你，詳細的給你說清楚
下面就是這個程式的**：不清楚的問我
private sub text1_change()
if val(text1.text) > 23 then '判斷輸入的值是否大於23
msgbox "請輸入正確的日期格式！"
text1.text = ""
if len(text1.text) = 2 then text2.setfocus'輸入時間完成,進入text2
end sub
private sub text1_keypress(keyascii as integer)
if keyascii < asc("0") or keyascii > asc("9") then keyascii = 0
end sub
private sub text2_change()
if val(text2.text) > 59 then
msgbox "你輸入的時間無效，請正確輸入！"
text2.text = ""
if len(text2.text) = 2 then text3.setfocus
end sub
private sub text2_keypress(keyascii as integer)
if keyascii < asc("0") or keyascii > asc("9") then keyascii = 0
end sub
private sub text3_change()
if val(text3.text) > 59 then
msgbox "你輸入的時間無效，請正確輸入！"
text3.text = ""
if len(text3.text) = 2 then command1.setfocus
end sub
private sub text3_keypress(keyascii as integer)
if keyascii < asc("0") or keyascii > asc("9") then keyascii = 0
end sub
4樓：匿名使用者
工具箱新增,
microsoft windows common controls -2 6.0 sp6
會有個dtpicker
就是你要的東西,比你去程式設計方便多了
請教在vb中如何判斷null值,vb上如何判斷空值
哈哈抄，給你說啊vb裡的東西有點襲奇怪，如果它是null的，那麼你直接用 就可以判斷了也就是說你可以這樣寫 if sss then end if 不信你可以試 注意，如果sss的型別是數值型別的，就是等於0而不是null vb 裡不象vc有null 這個值但是他有 vbnullstring 一樣可以...
關於vb 中的日期時間函式
datediff interval,date1,date2 firstdayofweek firstweekofyear datediff 函式語法中有下列命名引數 部分 描述 interval 必要。字串表示式，表示用來計算date1 和 date2 的時間差的時間間隔 date1 date2 必...
在vb程式中如何測試文字框輸入次數的返回值（就行輸入銀行密碼一樣，只能輸入三次錯誤密碼就自動鎖住了）
輸入到記事本，儲存為form1.frm即可 每行 均寫了註釋，應該知道意思了 version 5.00 begin vb.form form1 caption form1 clientheight 3840 clientleft 60 clienttop 450 clientwidth 5625 l...