محاسبه اختلاف دقیق بین دو ساعت در b4a

با سلام و سپاس خدمت دوستان و کاربران عزیز

 

امروز براتون سورس کدی  رو مهیا کرده ایم که باهاش میتونید زمان بیسن دو ساعت و دقیقه و ثانیه رو محاسبه بکنید.

مثال:

زمان شروع: ۲۲:۱۴:۱۲

زمان پایان:  ۲۳:۲۴:۱۴

 

فقی کافیه تیک کتابخانه DateUtils رو بزنید .

 

Dim a As Long = DateTime.TimeParse("22:14:12")
	Dim b As Long = DateTime.TimeParse("23:24:14")
	Dim p As Period = DateUtils.PeriodBetween(a,b)
   
	Log(p.Hours&" hours, "&p.Minutes&" minutes, " & p.Seconds & "second") ' Return 1 hours , 10 minutes , 2 second

 

امفیدوارم مفید واقع گردد.

دیدگاهتان را بنویسید