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

بالتوفيق



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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية حفظ قيمة Label في فيجوال دوت نت 2010 عامر الجبوري 8 145 24-05-17, 04:19 PM
آخر رد: alma2
  [VB.NET] اريد كود حفظ العمل على البرنامج ؟؟ عامر الجبوري 4 94 16-05-17, 12:54 PM
آخر رد: عامر الجبوري
  [سؤال] هل يمكن جمع قيمة من تكست مع حقل في قاعدة البيانات كود برمجي 6 126 29-04-17, 11:44 PM
آخر رد: rmlq
  [سؤال] مساعده في اظهار قيمة عند الاختيار من combobox billyalhaj.2011 17 597 07-04-17, 06:38 AM
آخر رد: جميل علي
  [سؤال] كيف يمكن قراءة البيانات من جهاز الباركود والبرنامج مفتوح جانب الساعة abdalla89 2 82 05-04-17, 10:51 PM
آخر رد: abdalla89
Thumbs Up كيفية الاستعلام على قيمة في جدول المتألق9 2 111 18-03-17, 09:49 PM
آخر رد: المتألق9
  الحصول على قيمة من listview checked Mohamed20 2 104 07-03-17, 01:52 AM
آخر رد: Mohamed20
  [VB.NET] ازاى اتحقق ان الصف رقم 1 فى العمود رقم 7 فيه قيمة وليس فارغ؟ فى ليست فيو الماجيك مسعد 10 369 31-01-17, 07:03 AM
آخر رد: الماجيك مسعد
  [سؤال] كيف جمع عمود به قيمة فارغة يوجد مثال aboslah4u22 8 1,546 04-01-17, 12:48 PM
آخر رد: مساعدة
  خطأ بعد استخدام العمل في الخلفية أسامة السالمي 2 168 17-12-16, 02:20 PM
آخر رد: أسامة السالمي

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


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