碰到了關于日期計算的問題，解決了，發現好多朋友也有一樣的問題
不知道大家解決了沒有，我把我的方法貼出來，希望能給大家帶來幫助
如果哪里寫的不好，或者錯誤，不要笑話！！
我可是第一次發表自己的想法，，，心里斗爭非常激烈。。。
===============================
為了大家好理解，用vbscript編寫=
理解了，用什么都好寫 :)_______=
===============================

<script language=vbscript>
function CountDate(That,NowDate)

''采用掐頭去尾的方法計算兩個日期的時間間隔
''日期計算 日期差 時間差 日期間隔 計算日期
''nowdate是目前的日期，that是某特定的日期
''nowdate月的總天數減去that月的總天數（有可能是負數）
''再加上中間每年的總天數，就是日期的間隔了
''通過對潤年潤月的計算，就更加精確了。
'=========================
'=小乖的想法iamws@371.net=
'=========================

days=0'初始化天數

for i=1 to month(nowdate)-1'隨月份增加天數
select case i
case 1,3,5,7,8,10,12'還記得小學一年級的數學嗎？我就是背著寫出來的，哈哈~~
days=days+31'1，2，5，7，8，10，臘，有31天
case 4,6,9,11
days=days+30
case 2
if year(that)/4=int(year(that)/4) then days = days+29 else days=days+28
end select
next


for i=year(that) to year(nowdate)-1'隨年份增加天數
if year(that)/4=int(year(that)/4) then
days = days + 366
else
days = days + 365
end if
next


for i=1 to month(that)-1'減去原來的
select case i
case 1,3,5,7,8,10,12
days=days-31
case 4,6,9,11
days=days-30
case 2'潤月處理
if year(that)/4=int(year(that)/4) then days = days-29 else days=days-28
end select
next


days=days+day(nowdate)-day(that)'該加的加，該減的減！


CountDate = days

end function
msgbox countdate("10/2/00 11:33:25 PM",now)
</script>


======================================
如果對你有幫助，請給我加加分，謝謝謝謝！=
======================================