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

[TQTHAMI]

السلام عليكم 

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

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

أضافة دقائق.rarFetching info...

تم تعديل مايو 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 

  في 16‏/5‏/2023 at 08:36, AbuuAhmed said:

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

Expand  

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

[AbuuAhmed]

  في 16‏/5‏/2023 at 09:13, ابو ساطور said:

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

Expand  

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