VBA VarType 函式的應用

integervartype(varname asvariant)

vbempty          0 empty（未初始化）

vbnull              1 null（無有效資料）

vbinteger         2 整數

vblong            3 長整數

vbsingle          4 單精度浮點數

vbdouble5 雙精度浮點數

vbcurrency      6 貨幣值

vbdate7 日期

vbstring8 字串

vbobject          9 物件

vberror            10 錯誤值

vbboolean       11 布林值

vbvariant         12 variant （只與變體中的陣列一起使用）

vbdataobject  13 資料訪問物件

vbdecimal      14 十進位制值

vbbyte            17 位值

vbuserdefinedtype 36 包含使用者定義型別的變數

vbarray           8192 陣列

vbarray型別需聯合使用：

vbarray + vbinteger 表示整數陣列，返回8194

private function leap(byval y as integer) as boolean

leap = (y mod 4 = 0 and y mod 100 <> 0) or (y mod 400 = 0)
end function
public function vtod(byval vdate as variant) as variant
dim y, m, d as integer
vtod = true
select case vartype(vdate)
case 0 to 2, is = 6, is > 8
vtod = false
case 3 to 5
vtod = vtod(cstr(vdate))
case 7:
vtod = format(vdate, "yyyy-mm-dd")
if vtod < "2000-01-01" then vtod = false
case 8:
if len(vdate) <> 8 then
vtod = false
exit function
end if
for i = 1 to 8
if asc(mid(vdate, i, 1)) < 48 or asc(mid(vdate, i, 1)) > 57 then
vtod = false
exit function
end if
next
y = --left(vdate, 4): m = --mid(vdate, 5, 2): d = --right(vdate, 2)
if y < 2000 then vtod = false
if m > 12 or m = 0 then vtod = false
if d > 31 or d = 0 then vtod = false
if m = 2 and d > (28 + iif(leap(y), 1, 0)) then vtod = false
if vtod = false then exit function
vtod = format(dateserial(y, m, d), "yyyy-mm-dd")
end select
end function

ASP應用中的應用函式

經常寫些系統，那麼一般都是從登入程式開始，每接乙個系統就寫一次登入，好麻煩。乾脆直接做個登入驗證函式吧，對我來說，大都情況可以勝任了 function chk regist requestname,requestpwd,tablename,namefield,pwdfield,reurl dim n...

函式指標的應用

函式的指標 include using namespace std void fun1 int a,int n void fun2 int a,int n int main fun a,5 步驟4 cout fun fun2 fun a,5 fun fun1 fun a,5 return 0 函式指...

statfs函式的應用

statfs函式的應用 1 include 或者 3 int statfs const char path,struct statfs buf 4 int fstatfs int fd,struct statfs buf 引數 path 位於需要查詢資訊的檔案系統的檔案路徑名。fd 位於需要查詢資訊...