جمع وطرح الوقت باليوزرفورم

[mohamedamrawy]

السلام عليكم نرجو كود حمع وطرح الوقت كماباليوزرفورم test.xlsm

[عبدالفتاح في بي اكسيل]

لماذا  لم  توضح  النتيجة ؟

 لا اعلم  ما  يدور  في  ذهنك !!

قد  تكون  لديك  شروط  معينة  انا  لا اعلمها .

على  اي  حال  هذه  محاولة .

باضافة زر تحكم لليوزرفورم .

Private Sub CommandButton1_Click()
    Dim a, b
    a = TimeValue(TextBox1.Value)
    b = TimeValue(TextBox2.Value)
    TextBox3.Value = Format((b + a), "hh:nn")
     TextBox4.Value = Format((b - a), "hh:nn")
End Sub

تحياتي