|
碰到了關(guān)于日期計算的問題，解決了，發(fā)現(xiàn)好多朋友也有一樣的問題
不知道大家解決了沒有，我把我的方法貼出來，希望能給大家?guī)韼椭?br>如果哪里寫的不好，或者錯誤，不要笑話！！
我可是第一次發(fā)表自己的想法，，，心里斗爭非常激烈。。。
===============================
為了大家好理解，用vbscript編寫=
理解了，用什么都好寫 :)_______=
===============================
<script language=vbscript>
function CountDate(That,NowDate)
''采用掐頭去尾的方法計算兩個日期的時間間隔
''日期計算 日期差 時間差 日期間隔 計算日期
''nowdate是目前的日期，that是某特定的日期
''nowdate月的總天數(shù)減去that月的總天數(shù)（有可能是負數(shù)）
''再加上中間每年的總天數(shù)，就是日期的間隔了
''通過對潤年潤月的計算，就更加精確了。
'=========================
'=小乖的想法iamws@371.net=
'=========================
days=0'初始化天數(shù)
for i=1 to month(nowdate)-1'隨月份增加天數(shù)
select case i
case 1,3,5,7,8,10,12'還記得小學一年級的數(shù)學嗎？我就是背著寫出來的，哈哈~~
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'隨年份增加天數(shù)
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>
======================================
如果對你有幫助，請給我加加分，謝謝謝謝！=
======================================
|
