منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] مساعدة بطريقة جمع التواريخ والأوقات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] مساعدة بطريقة جمع التواريخ والأوقات (/showthread.php?tid=21200)



مساعدة بطريقة جمع التواريخ والأوقات - shadi_alfares - 26-07-17

السلام عليكم أخواني 
أحتاج لكود أو طريقة جمع وقتين 
استعملت هذه الطريقة :
كود :
Private Sub Form_Load()
Text1 = "00:00:00"
Text2 = "00:00:10"
End Sub
Private Sub Command1_Click()
Text3 = Format(TimeValue(Text1) + TimeValue(Text2), "HH:NN:SS")
Text1 = Text3
End Sub
الطريقة فعالة ولكن ما أريده أن أحسب عدد الأيام والشهور والسنوات 
أي أن تكون الصيغة :
كود :
"yyyy/mm/dd hh:mm:ss"
عندما تصل الساعات 24 يزيد الأيام واحد وعندما يصل الأيام 30 تزيد الشهور واحد وهكذا

حاجتي للبرنامج:
أحتاج ل عداد مؤلف من سنوات-شهور-أيام-ساعات-دقائق
وتكست أضيف فيه وقت جديد فيضاف للعداد 
الوقت الجديد يتألف من شهور وأيام وساعات ودقائق
مثلا: 30:26:23:50
أحتاج أي فكرة ممكن أن تساعدني 
وشكرا لكم سلفا 

بالمرفقات كود جمع الوقتين


RE: مساعدة بطريقة جمع التواريخ والأوقات - Ahmed_Mansoor - 27-07-17

وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , عملت لك مثال لما تريده .


RE: مساعدة بطريقة جمع التواريخ والأوقات - shadi_alfares - 27-07-17

(27-07-17, 10:45 AM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , عملت لك مثال لما تريده .

كلمات الشكر وحدها لا توفيك حقك صديقي 
هذا ما أحتاجه تماما 

شكرا لك