[العيدروس]

السلام عليكم اخواني الكرام لو ممكن مساعدتي في حل هاذي الاشكالية بارك الله فيكم
لنفترض لدي بالتاكست بوكس رقم 1 قيمة الأجرة اليومية مثلا 100.75 دولار 
بالتاكست بكس رقم 2 مكتوب فيها 8 يعني عدد ساعات وردية الشغل يلي من المفروض يشتغلها العامل 
عندي كومبكس 1 مكتوب فيها أرقام  1 يعني ساعة تأخر 
1.15 يعني ساعة و ربع 
1.30 يعني تأخر ساعة و نصف 
2.45 يعني تأخر ساعتين و 45 دقيقة و هكدا لغاية 8 مثلما هو موضخ بالمثال بالملف
المطلوب بعد اذنكم هو حساب قيمة ذاك اليوم حسب مدة التأخر و حسب قيمة الأجرة اليومية بالتاكست 1
و الله ما عرفت كيف احسبها مع بعضها

[Kamil]

جرب الكود التالي 

PHP كود :

   Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
        Try
            ' الحصول على القيم من واجهة المستخدم
            Dim dailyWage As Double = Double.Parse(txtDailyWage.Text)
            Dim shiftHours As Double = Double.Parse(txtShiftHours.Text)
            Dim delay As Double = Double.Parse(cmbDelay.SelectedItem.ToString())

            ' حساب ساعات العمل الفعلية
            Dim actualWorkingHours As Double = shiftHours - delay

            ' التحقق من أن ساعات العمل الفعلية غير سالبة
            If actualWorkingHours < 0 Then
                MessageBox.Show("مدة التأخير أكبر من ساعات العمل المقررة!", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign Or MessageBoxOptions.RtlReading)
                Return
            End If

            ' حساب الأجرة اليومية الفعلية
            Dim actualDailyWage As Double = (actualWorkingHours / shiftHours) * dailyWage

            ' عرض الأجرة اليومية الفعلية
            MessageBox.Show($"الأجرة اليومية الفعلية هي: {actualDailyWage:F2} دولار", "نتيجة", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign Or MessageBoxOptions.RtlReading)
        Catch ex As Exception
            MessageBox.Show($"خطأ في الحساب: {ex.Message}", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign Or MessageBoxOptions.RtlReading)
        End Try
    End Sub 


[العيدروس]

بارك الله فيك اخ kamil و جزاك كل خير