站內搜尋:Yahoo搜尋如果沒有給完整的網址,請在站內再搜尋一次!

2013-05-12

VBScript--檢查輸入的民國年制日期字串是否正確?


  1. 假設輸入的民國年制日期,使一個七碼的字串,年三碼月兩碼日兩碼(YYYMMDD)。document.all("InputDate").value
  2. 使用以下的程序來檢查,是否為正確的日期格式?
zDate = document.all("InputDate").value
sub CheckChineseDate()
    if isNumeric(zDate) and instr(1,zDate,".")=0 then
         zDateA = CStr(CDBL(zDate) + 19110000)
         zDateB = mid(zDateA,1,4) & "/" & mid(zDateA,5,2) & "/" & mid(zDateA,7,2)
        if isDate(zDateB) then 
            msgbox "輸入的資料,符合日期格式"
        else
            msgbox "輸入的資料,不符合日期格式"
        end if
    else
        msgbox "輸入的資料,不符合日期格式"
end sub

沒有留言:

張貼留言