تابعی برای بدست آوردن اختلاف بین دو تاریخ – بیسیک۴اندروید

اگر دو تاریخ با فاصله زیاد یا کم از هم داشته باشیم با استفاده ازاین تابع میتونیم اختلاف بین این دو رو بصورت روز، ساعت و دقیقه محاسبه کنیم.

 

تابع بیسیک۴اندروید

 

Sub between(t1 As Long,t2 As Long) As String
  Dim t As Long=Abs(t1-t2)
  Dim days, hours, minutes As Int
  days = Floor(t / DateTime.TicksPerDay)
  hours = Floor((t Mod DateTime.TicksPerDay) / DateTime.TicksPerHour)
  minutes = Floor((t Mod DateTime.TicksPerHour) / DateTime.TicksPerMinute)

  Return days&"روز و "&hours&"ساعت و "&minutes&"دقیقه "
End Sub

 

استفاده

 

ورودی اول: تاریخ یا ساعت اول (بصورت میلی ثانیه)

ورودی دوم تاریخ یا ساعت دوم (بصورت میلی ثانیه)
در این مثال دوتاریخ رو به میلی ثانیه تبدیل و نتیجه رو مسیج باکس دادیم:

 

DateTime.DateFormat="yyyy/mm/dd"
Msgbox( between( DateTime.DateParse("2016/10/20") , DateTime.DateParse("2017/02/20") ) ,"")