ָꡢ¡գ Date ͵ Variant

DateSerial(year, month, day)
Arguments
Year 
 100  9999 ֵֻ֮ʽ 
Month 
ֵʽ 
Day 
ֵʽ 
˵
Ҫָڣ 1991  12  31 գDateSerial ÿȡֵΧӦǿɽܵģյȡֵӦ 1  31 ֮䣬µȡֵӦ 1  12 ֮䡣ǣҲʹñʾĳ֮ǰ֮ꡢ¡ĿֵʽΪÿָڡ

ʹֵʽڡDateSerial  1990  8  1 ֮ǰʮ (1990 - 10)  (8 - 2) һ (1 - 1) ڣ 1980  5  31 ա

Dim MyDate1, MyDate2
MyDate1 = DateSerial(1970, 1, 1)   '  1970  1  1 ա
MyDate2 = DateSerial(1990 - 10, 8 - 2, 1 - 1)   '  1980  5  31 ա
 year ȡֵΧǴ 0  99򱻽Ϊ 1900  1999 ꡣڴ˷Χ֮ year ʹλֱʾݣ 1800 ꣩

κһȡֵɽܵķΧʱʵؽλһϴʱ䵥λ磬ָ 35 죬ͳһ¼϶ȡݺ·ݡֵ -32,768  32,767 ķΧֱָӻͨʽָڳ˿ԽܵڷΧͻᷢ

Ҫ
汾1
