'********************************
'程序:checkdate_vb
'說明:檢查數字範圍正確性
'傳入:str:日期字串
'回傳:true/false
'範例:true=checkdate_vb("2002/10/01")
'作者:fij
'時間:2002/12/10
'********************************
function checkdate_vb(strdate)
if isdate(strdate) then
	checkdate_vb=true
else
	checkdate_vb=false
end if
end function

'********************************
'程序:checknum
'說明:檢查數字正確性
'傳入:str:數字
'回傳:true/false
'範例:true=checknum("123")
'作者:fij
'時間:2002/12/10
'********************************
function checknum(num)
if isnumeric(num) then
	checknum=true
else
	checknum=false
end if
end function

'********************************
'程序:comparedate_vb
'說明:檢查日期是否超過now+date1天
'傳入:date:app_date, num:date1
'回傳:true/false
'範例:true=comparedate_vb("2003/04/01","d",5) now=2003/4/6
'作者:fij
'時間:2002/12/10
'********************************
function comparedate_vb(app_date,date_interval,date_num)
    comparedate_vb=true
    'msgbox(Dateadd(date_interval,date_num,Date))
    if Cdate(app_date)>Dateadd(date_interval,date_num,Date) then
        comparedate_vb=flase
    end if
    if Cdate(app_date)<Date() then
        comparedate_vb=flase
    end if
end function