رفتن به مطلب
  • 0

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


vahid.mansomi

سوال

4 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

سلام

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...