الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

طرح التاريخين معا" .. هل من مساعدة

مغلق
بدأه Haya_11 في 13 مايو 2006 · 2 رد · 395 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم أخواني الأعضاء ...

هل من مساعدة في الكود لطرح التاريخين معا" ... أنا عملت هذا الكود لكن يطرح لي التاريخين ليكون الناتج في الأيام ... لكنني أريد باليوم والشهر والسنة ... والكود هو

Dim datFrom As Date

Dim datTo As Date

Dim iDD As Integer

If Not IsDate(month1Combo.Text & " " & day1.Text & ", " & year1txt.Text) Then

MsgBox "the date of begin of current annual leave is not valid." & vbNewLine & "" & vbNewLine & Trim$(month1Combo.Text) & ", " & Trim$(year1txt.Text) & " does not have that" & vbNewLine & "many days.", 48, "Error"

Exit Sub

End If

If Not IsDate(month2Combo.Text & " " & day2.Text & ", " & year2txt.Text) Then

MsgBox "The date of end of last annual leave is not valid." & vbNewLine & "" & vbNewLine & Trim$(month2Combo.Text) & ", " & Trim$(year2txt.Text) & " does not have that" & vbNewLine & "many days.", 48, "Error"

Exit Sub

End If

'Set From and To Dates

datFrom = month1Combo.Text & " " & day1.Text & ", " & year1txt.Text

datTo = month2Combo.Text & " " & day2.Text & ", " & year2txt.Text

' Test the functions and display results

CalcAge datFrom, datTo, iDD

Label8.Caption = CStr(iDD)

End Sub

وأنا أريده ليكون الناتج

20 /10/ 2006

10/ 8 / 2005

ــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

10 / 2 / 1

وشكرا"...

#2

السلام عليكم

انظر إلى الكود التالي أرجو أن يكون فيه الحل لمشكلتك.

Private Sub cmdSubDates_Click()
Dim d1 As Date
Dim d2 As Date
Dim d3 As Date

	If Not IsDate(txtFrom.Text) Then Exit Sub
	If Not IsDate(txtTo.Text) Then Exit Sub

	d1 = DateValue(txtFrom.Text)
	d2 = DateValue(txtTo.Text)

	d3 = DateSerial(Year(d2) - Year(d1), Month(d2) - Month(d1), Day(d2) - Day(d1))
	lblOutput.Caption = "The Difference is:" & vbCrLf & _
		CStr(Year(d3) - 2000) & " Years." & vbCrLf & _
		CStr(Month(d3)) & " Months." & vbCrLf & _
		CStr(Day(d3)) & " Days."
End Sub
#3

شكرا " اخوي aldowsary عالمساعدة ....

:)

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…