Dim a As Date
Dim b As Date
= System.DateTime.Now
= CDate(chkExport.Text)
Dim ts As System.TimeSpan
ts 
= a.Subtract(b)
Dim pp As Integer
pp 
= CInt(ts.TotalDays)
posted on 2005-09-12 04:54  竹子  阅读(1192)  评论(0编辑  收藏  举报