حساب قيمة حسب زمن التأخر - نسخة قابلة للطباعة

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