日期操作

1两个日期间的差数.

Dim a As Date
Dim b As Date
a = System.DateTime.Now
b = CDate(chkExport.Text)
Dim ts As System.TimeSpan
ts = a.Subtract(b)
Dim pp As Integer
pp = CInt(ts.TotalDays)

2用系统当前的日期减输入的日期，得到两个日期之间的天数

DateDiff   函数  
               
   
  返回   Variant   (Long)   的值，表示两个指定日期间的时间间隔数目。  
   
  语法  
   
  DateDiff(interval,   date1,   date2[,   firstdayofweek[,   firstweekofyear]])  
   
  DateDiff   函数语法中有下列命名参数：  
   
  部分   描述    
  interval   必要。字符串表达式，表示用来计算date1   和   date2   的时间差的时间间隔    
  Date1□date2   必要；Variant   (Date)。计算中要用到的两个日期。    
  Firstdayofweek   可选。指定一个星期的第一天的常数。如果未予指定，则以星期日为第一天。    
  firstweekofyear   可选。指定一年的第一周的常数。如果未予指定，则以包含   1   月   1   日的星期为第一周。    
   
   
  设置  
   
  interval   参数的设定值如下：  
   
  设置   描述    
  yyyy   年    
  q   季    
  m   月    
  y   一年的日数    
  d   日    
  w   一周的日数    
  ww   周    
  h   时    
  n   分钟    
  s   秒    
   
   
  firstdayofweek   参数的设定值如下：  
   
  常数   值   描述    
  vbUseSystem   0   使用   NLS   API   设置。    
  vbSunday   1   星期日（缺省值）    
  vbMonday   2   星期一    
  vbTuesday   3   星期二    
  vbWednesday   4   星期三    
  vbThursday   5   星期四    
  vbFriday   6   星期五    
  vbSaturday   7   星期六    
   
  常数   值   描述    
  vbUseSystem   0   用   NLS   API   设置。    
  vbFirstJan1   1   从包含   1   月   1   日的星期开始（缺省值）。    
  vbFirstFourDays   2   从第一个其大半个星期在新的一年的一周开始。    
  vbFirstFullWeek   3   从第一个无跨年度的星期开始。    
   
   
  DateDiff   函数示例  
  本示例使用   DateDiff   函数来显示某个日期与今日相差几天。  
   
  Dim   TheDate   As   Date       '   声明变量。  
  Dim   Msg  
  TheDate   =   InputBox("Enter   a   date")  
  Msg   =   "Days   from   today:   "   &   DateDiff("d",   Now,   TheDate)  
  MsgBox   Msg  
aa=DateDiff("d","要减去的时间","当前时间")第一个参数"d"表示按天计算，"m"是月,"y"是年

㈢返回间隔时间的日期