تقييم الموضوع :
  • 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

بالتوفيق



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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] استفسار بخصوص التاكد من وجود التيبل الاضافي dubai.eig 2 44 17-10-17, 10:22 AM
آخر رد: dubai.eig
  تغير حجم شاشات البرنامج عند العمل على شاشات اخرى nassery99 3 77 16-10-17, 12:42 PM
آخر رد: silverlight
  [VB.NET] فتح نموذج بناءا علي قيمة في الداتا جريد فيو haithammoftah 3 67 14-10-17, 07:55 PM
آخر رد: Amir_alzubidy
  مشكلة في قراءة قيمة من الريجستري سعود الشامان 14 267 13-10-17, 07:30 PM
آخر رد: سعود الشامان
  [سؤال] كتابة قيمة ثنائية في الريجستري سعود الشامان 0 52 29-09-17, 04:26 AM
آخر رد: سعود الشامان
Question [سؤال] كيفية سحب قيمة متغير ادخل Public alims 7 188 11-09-17, 04:39 AM
آخر رد: محمد كريّم
  [كود] كود لإظهار قيمة في TextBox حسب ما يقابلها من قيمة في combobox momiana1 7 5,134 02-09-17, 08:46 PM
آخر رد: ahmedgamal
Rainbow [VB.NET] نسخة تجريبية منه تتوقف عن العمل بعد فترة محددة محمد مسافر 3 2,140 07-08-17, 02:40 PM
آخر رد: مصمم هاوي
  [VB.NET] مساعدة في العمل على موقع بإستخدام HttpWebReuest asda 1 169 12-07-17, 02:25 PM
آخر رد: asda
  [VB.NET] العمل حتي اذا كنت في برنامج اخر lval6402@gmail.com 4 169 12-06-17, 07:31 AM
آخر رد: silverlight

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


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