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) 转载于:https://www.cnblogs.com/sxbamboo/archive/2005/09/12/234741.html