احببت في بداية اشتراكي في المنتدى الرائع ان اقوم بعرض هذه الطريقة التي ابتكرتها لعرض فارق بين تاريخين بالايام و بالسنوات و بالاشهر ايضاً لو اردت
بكل بساطة :
افتح مشروع جديد في فيجوال بيسك 4 او 5 او 6
ادرج : Form1
ادرج : Command1 , Command2
ادرج : text1 ,text2
ادرج :2MonthView , 1MonthView
حدد خاصية 2MonthView , 1MonthView .visible = false
الحدث text1_gotfocus
1MonthView.Visible = True
الحدث 1MonthView_DateClick(ByVal DateClicked As Date)
text1.Text = Format(1MonthView.Value, "yymmdd")
1MonthView.Visible = False
الحدث text2_gotfocus
2MonthView.Visible = True
الحدث 2MonthView_DateClick(ByVal DateClicked As Date)
Text2.Text = Format(2MonthView.Value, "yymmdd")
2MonthView.Visible = False
انقر على text1 و اختر تاريخا عند ظهور monthview1 و ستجد ان خاصية text مساوية الى "060801" مثلاً أي
اليوم 01 من الشهر 08 من السنة 2006
انقر على text2 و اختر تاريخا عند ظهور monthview2 و ستجد ان خاصية text مساوية الى "060807" مثلاً أي
اليوم 01 من الشهر 08 من السنة 2006
الحدث Command1
months1 = Left(text1, 4)
days1 = Right(text1, 2)
months2 = Left(Format(text2, "yymmdd"), 4)
days2 = Right(Format(text2, "yymmdd"), 2)
months = months2 - months1 الفرق بالاشهر
days = days2 - days1 ' الفرق بالايام
days = days + (months * 30) الفرق الاجمالي بالايام بعد تحويل الاشهر الى ايام
[code/]