محاسبه روزهای بین دو تاریخ

[vahid.mansomi 1]

سلام

من چجوری میتونم روزهای مابین 2 تاریخ رو بدست بیارم؟

[Crashday 47]

سلام

با استفاده از کتابخانه DateUtils که در خود B4a موجود هست می تونید این کار رو انجام بدید،چندین مدل مختلف هم داره.

[vahid.mansomi 1]

سلام تو این کتاختلافواختلافو  به ماه و روز و سال میده مثلا میگه 1سال و 2 ماه و 6 روز گذشته ، راهی هست اختلافو به تعداد روز بگیرم یعنی خودش ماه و سالم تبدیل به روز بشه خودکار ؟

[Crashday 47]

در 5 ساعت قبل، vahid.mansomi گفته است :

سلام تو این کتاختلافواختلافو  به ماه و روز و سال میده مثلا میگه 1سال و 2 ماه و 6 روز گذشته ، راهی هست اختلافو به تعداد روز بگیرم یعنی خودش ماه و سالم تبدیل به روز بشه خودکار ؟

همین کتابخانه برای این کار هم متد داره،از متد PeriodBetweenInDays استفاده کنید.

[پژمان نیکروان 6,055]

تابعی برای بدست آوردن "اختلاف بین دو تاریخ"

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") ) ,"")