Forums » .NET » .NET »

# how to find out the time difference in vb.net

Posted Date: 03 Mar 2006      Posted By:: Satheesh kumar     Member Level: Silver    Member Rank: 2209     Points: 2   Responses: 6

how to find out the time difference in vb.net

please tell me the solution as earlier as possible

thank u!

with regards
Satheesh

# Responses

 #43491    Author: ravinderreddy      Member Level: Silver      Member Rank: 0     Date: 03/Mar/2006   Rating:     Points: 2 Hi, take two strings for intime(in) and outtime(out). and write code for diffDateDiff(DateInterval.Minute, in, out)U will get diff between time. All the best......

 #79786    Author: Bhavesh Rana      Member Level: Silver      Member Rank: 0     Date: 22/Sep/2006   Rating:     Points: 2 TimeSpan T1=new TimeSpan(System.DateTime.Now.Day,System.DateTime.Now.Hour,System.DateTime.Now.Minute,System.DateTime.Now.Second,System.DateTime.Now.Millisecond); MessageBox.Show(T1.ToString()); //Do Your Process... TimeSpan T2=new TimeSpan(System.DateTime.Now.Day,System.DateTime.Now.Hour,System.DateTime.Now.Minute,System.DateTime.Now.Second,System.DateTime.Now.Millisecond); MessageBox.Show(T2.ToString()); MessageBox.Show(T2.Subtract(T1).ToString());I hope this will help !!!!Vahi,Bhavesh Rana

 #106089    Author: Batzoid      Member Level: Bronze      Member Rank: 0     Date: 21/Jan/2007   Rating:     Points: 2 This function will calculate the difference between two times. Public Function TimeDiff(t1, t2) 'Purpose: Calculate the difference between two given times ' t1 and t2. Returns t1 - t2. Dim sec1, sec2, secOut, minsOut, hoursOut 'Convert times to seconds sec1 = (Hour(t1) * 3600) + (Minute(t1) * 60) + Second(t1) sec2 = (Hour(t2) * 3600) + (Minute(t2) * 60) + Second(t2) 'Subtract one from the other secOut = sec1 - sec2 ' or Add together to sum two times 'Calc hours hoursOut = Int(secOut / 3600) secOut = secOut - (hoursOut * 3600) 'Calc minutes minsOut = Int(secOut / 60) secOut = secOut - (minsOut * 60) 'Convert back to HH:MM:SS TimeDiff = TimeValue(Format(hoursOut, "00") + ":" + Format(minsOut, "00") + ":" + Format(secOut, "00"))End Function

 #152769    Author: eugene      Member Level: Bronze      Member Rank: 0     Date: 20/Sep/2007   Rating:     Points: 2 dim ts as TimeSpan = DateTime.Now.Subtract(TimeStamp)MesageBox.Show(ts.TotalSeconds.toString());

 #240105    Author: Panamayan Purushothaman      Member Level: Gold      Member Rank: 430     Date: 30/May/2008   Rating:     Points: 2 DateDiff(DateInterval.Minute, intime, outtime)Any kind of help will be appreciated,Thanks,MEEKREDD

 #313669    Author: shinurag      Member Level: Silver      Member Rank: 3536     Date: 06/Nov/2008   Rating:     Points: 4 Dim dt1 As TimeSpan Dim dt2 As TimeSpan Dim dt3 As TimeSpan dt1 = DateTimePicker1.Value.TimeOfDay dt2 = DateTimePicker2.Value.TimeOfDay dt3 = dt2.Subtract(dt1) If dt3.Hours < 1 And dt3.Minutes < 1 And dt3.Seconds < 1 Then MsgBox("Date interval mismatch") End Ifset datetimepicker's format as timeset datetimepicker's ShowUpDown as trueShinurag.