تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
قيمة العمل الاضافي = ساعات العمل الاضافي ضرب قيمة الساعة نبحث عن حل
#1
اخواني الاعضاء اسعد الله اوقاتكم
عندي استفسار عن فكرة احتساب قيمة ساعات العمل الاضافي للموظفين
حيث يوجد عندي ثلاثة TextBox الاولى لوضع فيها ساعات العمل الاضافي ولتكن 2:25 ساعة و التاني قيمة ساعة العمل الاضافي الواحدة ولتكن 1.250 والثالث لاظهار النتيجة كيف يتم ذالك

شاكرا لكم حسن تعاونكم
وكل عام وانتم بخير
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته

تفضل أخي الكريم

هذا هو الكود المطلوب

كود :
Public Class Form1
    Private Sub TextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged, TextBox1.TextChanged
        TextBox3.Text = GetValue(TextBox1.Text, TextBox2.Text)
    End Sub
    Private Function GetValue(ByVal Time As String, ByVal Cost As String) As String
        Try
            Dim TimePart() As String = Time.Split(":")
            Dim Value As Double
            Value = (CInt(TimePart(0)) + (CInt(TimePart(1)) / 60)) * Cost
            Return Value.ToString("0.00")
        Catch ex As Exception
            Return "0.00"
        End Try
    End Function
End Class

بالتوفيق
الرد }}}
تم الشكر بواسطة:
#3
sooriaty03 كتب :السلام عليكم ورحمة الله وبركاته

تفضل أخي الكريم

هذا هو الكود المطلوب

كود :
Public Class Form1
    Private Sub TextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged, TextBox1.TextChanged
        TextBox3.Text = GetValue(TextBox1.Text, TextBox2.Text)
    End Sub
    Private Function GetValue(ByVal Time As String, ByVal Cost As String) As String
        Try
            Dim TimePart() As String = Time.Split(":")
            Dim Value As Double
            Value = (CInt(TimePart(0)) + (CInt(TimePart(1)) / 60)) * Cost
            Return Value.ToString("0.00")
        Catch ex As Exception
            Return "0.00"
        End Try
    End Function
End Class

بالتوفيق



كل الشكر والتقدير اخي العزيز حقا هذا هو الكود المطلوب
كل الشكر
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل من الممكن العمل على قاعدة بيانات اكسل على الفيجوال بيسك خالد كامل1 4 80 24-03-24, 02:00 AM
آخر رد: خالد كامل1
  [سؤال] كيف نستعيد قيمة من دالة ضمن مسار مستقل justforit 2 393 21-11-23, 10:51 AM
آخر رد: justforit
  كيف اجعل قيمة dateTimePicker2 تساوي dateTimePicker1 Adel27213 2 280 09-11-23, 09:07 PM
آخر رد: Adel27213
  كيفية جمع قيمة على تاريخ معين واستنتاج تاريخ أخر Ahmed.vb 1 317 02-11-23, 03:52 AM
آخر رد: Taha Okla
  ارجاع قيمة Function سعد منصور 1 268 01-11-23, 02:10 AM
آخر رد: Taha Okla
  كود تغيير قيمة تكست بوكس فى تاريخ معين Ahmed.vb 2 906 11-10-23, 10:35 PM
آخر رد: aljzazy
  كيف الحصول على قيمة الخلية بعد تحديد الصف في datagridview؟ hazim1 2 558 06-08-23, 01:12 AM
آخر رد: hazim1
  تعبئة كومبو بوكس بالاعتماد على قيمة كومبو بوكس اخر ahmaddrawshih 4 623 15-01-23, 09:49 PM
آخر رد: مصمم هاوي
  مشكلة في نقل قيمة الخلية الفارغة من data grid view الى ملف الاكسل Mohammed Nafa 1 350 12-01-23, 08:32 PM
آخر رد: salamandal
  [VB.NET] طريقة عرض قيمة المحدد من ComboBox فراس الغزي 9 3,554 18-12-22, 12:03 AM
آخر رد: kebboud

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم