Dim a As DateDim b As Datea = System.DateTime.Nowb = CDate(chkExport.Text)Dim ts As System.TimeSpants = a.Subtract(b)Dim pp As Integerpp = CInt(ts.TotalDays) 相关文章: