این تابع دو ورودی از نوع زمان را دریافت می کنه و اون دوتا رو از هم کم می کنه و میزان اختلاف رو بر می گردونه

Function deduceTime(tStart, tStop) As String
 Dim dtr, dtl, jml As Long
 dtl = (Hour(tStart) * 3600) + _
 (Minute(tStart) * 60) + (Second(tStart))

 dtr = (Hour(tStop) * 3600) + _
 (Minute(tStop) * 60) + (Second(tStop))

 If tStop < tStart Then
   jml = 86400
 Else
   jml = 0
 End If

 jml = jml + (dtr - dtl)

 deduceTime = Format(Str(Int((Int((jml / 3600)) Mod 24))), "00") _
 + ":" + Format(Str(Int((Int((jml / 60)) Mod 60))), "00") + ":" + _
 Format(Str(Int((jml Mod 60))), "00")

End Function

نوشته شده توسط مهدی در سه شنبه 88/11/27 و ساعت 9:2 عصر | نظرات دیگران()