时间差计算方法

Public Class Form1Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadDim StartTime As DateTime = CDate("2009-09-26 15:35:01") '乐博网lob.cn建QQ群时间 Dim EndTime As DateTime = Now()Dim TimeDiff As TimeSpan = EndTime - StartTimeButton1.Text = StartTime.ToStringButton2.Text = EndTime.ToStringDim Days As Integer = TimeDiff.Days '以日为单位的时间差Dim Minutes As Integer = TimeDiff.Minutes '以月为单位Dim Seconds As Integer = TimeDiff.Seconds '以秒为单位Dim TotalDays As Integer = TimeDiff.TotalDays '以日为单位 不同的是 他采用四舍五入的算法 超过半天算1天Dim TotalHours As Integer = TimeDiff.TotalHoursDim TotalSeconds As Integer = TimeDiff.TotalSecondsTimeDiff = EndTime.Subtract(StartTime)Button3.Text = TotalDaysDim FirstDate As DateDim SecondDate As DateFirstDate = #9/26/2010#'增加30天SecondDate = FirstDate.AddDays(30)'增加3个月SecondDate = FirstDate.AddMonths(3)'减少1年SecondDate = FirstDate.AddYears(-1)End SubEnd Class