[shadi_alfares]

السلام عليكم أخواني 

أحتاج لكود أو طريقة جمع وقتين 

استعملت هذه الطريقة :

كود :

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

أحتاج أي فكرة ممكن أن تساعدني 

وشكرا لكم سلفا 

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