[elgokr]

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

بناءاً على ما يوجد بمحتوى المرفق

وحيث ان عند عدد ساعتين يصبح اجمالى المبلغ 197.14 فرنك

بالمعادلة ( 2 ساعة * 60 دقيقة * 60 ثانية ) يصبح الاجمالى 7200 ثانية

المبلغ الكلى لعدد ( الساعتين 197.14 / عدد الثانى 7200 ) يصبح لكل ثانية 0.0273805555555556 تقريباً

الان نعمل زر جديد واستخدم الكود التالى أو يمكن استخدام الكود داخل الـ Timer

كود :

       Dim TimeWatch_ As Date = CDate(TextBox4.Text)
       Dim ii As Integer = Val(TimeWatch_.Hour * 60 * 60) + Val(TimeWatch_.Minute * 60) + Val(TimeWatch_.Second)
       TextBox5.Text = Math.Round(Val(ii * 0.0273805555555556), 2).ToString("0.00")

وبكده سيكون الناتج النهائي فى TextBox5 القيمة الفاعلية للفرنك عن كل ثانية بيتم المرور

يمكن عمل شرط قبل السطر التالى ويصبح هذا السطر بداخل الشرط

كود :

       TextBox5.Text = Math.Round(Val(ii * 0.0273805555555556), 2).ToString("0.00")

بحيث يكون الشرط اذا تحقق ii اكبر من او يساوى 7200 اى ساعتين يبداء بعرض المبلغ المستحق

اتمنى هذا ما تريده طبقاً لما تم شرحه فى المشروع المرفق

تحياتى لك

وتمنياتى لك التوفيق