+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : الفرق بين تاريخين على أن يظهر الناتج بعدد الاشهر (/showthread.php?tid=47734)
الفرق بين تاريخين على أن يظهر الناتج بعدد الاشهر - boofa2022 - 01-01-24
قومت بمشروع والمطلوب فيه الفرق بين تاريخين على أن يظهر الناتج بعدد الاشهر
RE: الفرق بين تاريخين على أن يظهر الناتج بعدد الاشهر - تركي الحلواني - 01-01-24
(01-01-24, 01:15 PM)boofa2022 كتب : قومت بمشروع والمطلوب فيه الفرق بين تاريخين على أن يظهر الناتج بعدد الاشهر
PHP كود :
' تاريخ البداية
Dim startDate As DateTime = New DateTime(2023, 1, 1)
' تاريخ الانتهاء
Dim endDate As DateTime = DateTime.Now
' حساب الفرق بين التواريخ
Dim timeSpan As TimeSpan = endDate - startDate
' حساب الفرق بعدد الأشهر
Dim monthsDifference As Integer = CInt(Math.Floor(timeSpan.Days / 30.44))
' عرض النتيجة
MsgBox($"الفرق بين التاريخين بعدد الأشهر: {monthsDifference} أشهر")
RE: الفرق بين تاريخين على أن يظهر الناتج بعدد الاشهر - boofa2022 - 03-01-24
السلام عليكم لككل الشكر والتقدير أخي تركيلاهتمامك والرد السريع
جربت الكود الذي بعثته ولكن في الاحوال يعطيني 12 شهر
المطلوب مثلا الفرق بين تاريخين بعدد الاشهر
على سبيل المثال الرق بين سنة 2024-1-1 وسنة 2000-1-1 =276 شهراً
RE: الفرق بين تاريخين على أن يظهر الناتج بعدد الاشهر - تركي الحلواني - 03-01-24
(03-01-24, 10:44 AM)boofa2022 كتب : السلام عليكم لككل الشكر والتقدير أخي تركيلاهتمامك والرد السريع
جربت الكود الذي بعثته ولكن في الاحوال يعطيني 12 شهر
المطلوب مثلا الفرق بين تاريخين بعدد الاشهر
على سبيل المثال الرق بين سنة 2024-1-1 وسنة 2000-1-1 =276 شهراً
PHP كود :
Dim startDate As DateTime = New DateTime(2000, 1, 1)
' تاريخ الانتهاء
Dim endDate As DateTime = DateTime.Now
' حساب الفرق بين التواريخ بعدد الأيام
Dim daysDifference As Integer = CInt((endDate - startDate).TotalDays)
' متوسط عدد الأيام في الشهر (تقريبي)
Dim averageDaysInMonth As Double = 30.44
' حساب الفرق بين التواريخ بعدد الشهور
Dim monthsDifference As Double = daysDifference / averageDaysInMonth
' عرض النتيجة
MsgBox("الفرق بين التاريخين بعدد الأشهر: " & Math.Floor(monthsDifference) & " أشهر ")
RE: الفرق بين تاريخين على أن يظهر الناتج بعدد الاشهر - boofa2022 - 03-01-24
بارك الله فيك
طلع معي الناتج ولكن اعتقد ان عدد الاشهر فيةازيادة اشوي
لانه لما حسبت كل سنة * 12 شهر * 23 سنة =276
لما شغلت الكود تبعك اعطاني 288 شهر
شكرا على الاهتمام