因为年份有365天,366天,月份也不是所有月份天数一样,所以具体算出多少年多少月不好算,一般只算多少天多少小时多少分多少秒就行了(假设你按一年365天算,一个月30天算,可以算出大概差多少年月),代码如下:
dt = DateDiff("s", Now, "2014/6/15 00:00:20")
Days = dt \ 86400
Hours = (dt \ 3600) Mod 24
Mins = (dt \ 60) Mod 60
Secs = dt Mod 60
If Days = 0 Then
Days = ""
Else
Days = Days & "天"
End If
If Hours = 0 Then
Hours = ""
Else
Hours = Hours & "小时"
End If
If Mins = 0 Then
Mins = ""
Else
Mins = Mins & "分钟"
End If
If Secs = 0 Then
Secs = ""
Else
Secs = Secs & "秒"
End If
MessageBox "剩余时间:" & Days & Hours & Mins & Secs