关于日期计算的问题

关于日期计算的问题

<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>
 

已标记关键词 清除标记
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页