أضافة دقائق الى وقت

[TQTHAMI]

السلام عليكم 

لسعد الله اوقاتكم بالخير

لدي مربع نص وقت  ((الوقت الأول ))وقائمة منسدلة بها ارقام تمثل الدقائق ومربع نص وقت ((الوقت الثاني))
المطلوب اذا اخترت من القائمة رقم يتم أضافته مع مربع النص وادراجه في مربع الوقت الثاني

أضافة دقائق.rar

تم تعديل مايو 15, 2023 بواسطه TQTHAMI
ارفاق ملف

[محمد ايمن]

Me.txtAA = DateAdd("n", Me.CMPO1, Me.txtA)

 

[TQTHAMI]

بارك الله فيك اخي محمد

[AbuuAhmed]

ويمكنك أيضا استخدام عملية الجمع العادية بشرط تحويل الدقائق إلى أيام
 

Private Sub CMPO1_AfterUpdate()
    Me.txtAA = Me.txtA + Me.CMPO1 / 1440     '/60/24
End Sub

 

[ابو ساطور]

حقول غير منضم =حقل اليوم والساعه

Me. A, Me. B, Me. C

Me. Today= Me. A&  "/"  & Me. B& "/"  & Me. C 

for Time 

Me. TA, Me. TB, Me. TC

Me. TextTime= Me. TA &  ": "  & Me. TB & " : "  & Me.TC

for Sum * جمع كان وقت او يوم 

Me. A = Me. A + Me. sum 

35 دقائق مضت, AbuuAhmed said:

Private Sub CMPO1_AfterUpdate()
    Me.txtAA = Me.txtA + Me.CMPO1 / 1440     '/60/24
End Sub

هجري او ميلادي غلط Where!  Format Today d, m, yyyy 

[AbuuAhmed]

منذ ساعه, ابو ساطور said:

هجري او ميلادي غلط Where!  Format Today d, m, yyyy 

ممكن توضح أكثر طال عمرك.