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

بالتوفيق



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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ازاى اما اكتب قيمة فى التكست بوكس يتاكد انها مش موجودة فى الداتا جريدفيو araxis 1 61 07-12-16, 11:22 AM
آخر رد: ممدوح الخطيب
  طلب مساعدة ناتج طرح عددين قيمة سالبه khalaroy 2 65 01-12-16, 03:09 AM
آخر رد: khalaroy
  نقل قيمة من تكست بوكس الي تكست بوكس فى نموذج اخر السيد الجوهري 4 114 05-11-16, 07:39 PM
آخر رد: shwehdi4pc
Rainbow [VB.NET] طلب بسيط: فورم ادخال بيانات خاص بالمطارات | ضرورى يجب تسلميه بعد بضع ساعات مشروع تخرج الماجيك مسعد 17 344 28-10-16, 08:31 AM
آخر رد: الماجيك مسعد
  أرسال قيمة من UserControl الى Form Rabeea Qbaha 5 104 16-10-16, 06:47 PM
آخر رد: Rabeea Qbaha
  سؤال : عن داتا قريد تقسيم قيمة الى عمودين abid 5 125 13-10-16, 04:40 AM
آخر رد: abid
  البحث بواسطة قيمة فارغه هاوي1995 2 127 22-09-16, 05:57 PM
آخر رد: هاوي1995
  حل لكود مسح قيمة واحدة من TextBox أحمد محمد جمعة 0 120 04-09-16, 04:19 PM
آخر رد: أحمد محمد جمعة
  [نقاش] كيف اعرف قيمة برنامجي و كم يكلف للبيع Rabeea Qbaha 13 478 30-08-16, 09:06 PM
آخر رد: Rabeea Qbaha
  قيمة البرامج VB.programer 0 74 31-07-16, 06:11 PM
آخر رد: VB.programer

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


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