تقييم الموضوع :
  • 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] ازاى اتحقق ان الصف رقم 1 فى العمود رقم 7 فيه قيمة وليس فارغ؟ فى ليست فيو الماجيك مسعد 10 227 31-01-17, 07:03 AM
آخر رد: الماجيك مسعد
  [سؤال] كيف جمع عمود به قيمة فارغة يوجد مثال aboslah4u22 8 1,407 04-01-17, 12:48 PM
آخر رد: مساعدة
  خطأ بعد استخدام العمل في الخلفية أسامة السالمي 2 103 17-12-16, 02:20 PM
آخر رد: أسامة السالمي
  ازاى اما اكتب قيمة فى التكست بوكس يتاكد انها مش موجودة فى الداتا جريدفيو araxis 1 154 07-12-16, 11:22 AM
آخر رد: ممدوح الخطيب
  طلب مساعدة ناتج طرح عددين قيمة سالبه khalaroy 2 165 01-12-16, 03:09 AM
آخر رد: khalaroy
  نقل قيمة من تكست بوكس الي تكست بوكس فى نموذج اخر السيد الجوهري 4 268 05-11-16, 07:39 PM
آخر رد: shwehdi4pc
Rainbow [VB.NET] طلب بسيط: فورم ادخال بيانات خاص بالمطارات | ضرورى يجب تسلميه بعد بضع ساعات مشروع تخرج الماجيك مسعد 17 477 28-10-16, 08:31 AM
آخر رد: الماجيك مسعد
  أرسال قيمة من UserControl الى Form Rabeea Qbaha 5 194 16-10-16, 06:47 PM
آخر رد: Rabeea Qbaha
  سؤال : عن داتا قريد تقسيم قيمة الى عمودين abid 5 247 13-10-16, 04:40 AM
آخر رد: abid
  البحث بواسطة قيمة فارغه هاوي1995 2 189 22-09-16, 05:57 PM
آخر رد: هاوي1995

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


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