'-----------------日期加法Dim str, str2 As String       
str = "2008/05/2"       
str2 = "2008/05/28"       
Dim dd As String       
dd = Convert.ToDateTime(str).AddDays(1)       
MsgBox(dd)
'------------------日期減法
Dim str, str2 As String       
str = "2008/05/2"       
str2 = "2008/05/28"       
Dim dd As String      
dd = DateDiff(DateInterval.Day, Convert.ToDateTime(str), Convert.ToDateTime(str2))               MsgBox(dd)
 
沒有留言:
張貼留言