منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - عرض الاشخاص الذين تجاوز مده خدمتهم 25 عام

الصفحات : 1 2

أعتقد أنت تريد أن تتحق من حالتين أيهما حانت فيظهر سجل الشخص
هذا المثال يظهر الاشخاص الذين تجاوزت خدمتهم 25 سنة أو تجاوز عمرهم 65 سنة أيهما حان.

كود :

SELECT * FROM [tbEmp]

WHERE (DATEDIFF('yyyy', [jobDate], Date())) > 25 

   OR (DATEDIFF('yyyy', [brthDate], Date())) > 65

tbEmp = اسم الجدول
jobDate = تاريخ العيين
brth = تاريخ الميلاد

PHP كود :

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim dt1 As New DateTime
        Dim dt2 As New DateTime

        dt1 = Convert.ToDateTime(TextBox1.Text)
        dt2 = Convert.ToDateTime(TextBox2.Text)

        Dim iYears As Integer, iMonths As Integer, iDays As Integer

        iYears = DateDiff(DateInterval.Year, dt2, dt1)
        iMonths = DateDiff(DateInterval.Month, dt2, dt1)
        iDays = DateDiff(DateInterval.Day, dt2, dt1)
        TextBox3.Text = "Years: " & iYears & " months: " & iMonths & " days: " & iDays
    End Sub
End Class 

مع ذلك لا اظن هو المطلوب Sad

لقيت الحل
اولا الدالة

PHP كود :

Public Shared Function GetDateSpanText(fromDate As DateTime, Optional toDate As DateTime = Nothing) As String
        Try
            Dim years As Integer = 0, months As Integer = 0, days As Integer = 0
            If toDate = Nothing Then toDate = DateTime.Now

            Do Until toDate.AddYears(-1) < fromDate
                years += 1
                toDate = toDate.AddYears(-1)
            Loop

            Do Until toDate.AddMonths(-1) < fromDate
                months += 1
                toDate = toDate.AddMonths(-1)
            Loop

            Do Until toDate.AddDays(-1) < fromDate
                days += 1
                toDate = toDate.AddDays(-1)
            Loop

            Return String.Format("{0} Years {1} Months {2} Days", years, months, days)
        Catch ex As Exception
            Return "Error"
        End Try
    End Function 

والاستخدام هكذا

PHP كود :

       Dim doj As New DateTime
        Dim dor As New DateTime
        doj = Convert.ToDateTime(TextBox2.Text)
        dor = Convert.ToDateTime(TextBox1.Text)
        TextBox3.Text = (GetDateSpanText(doj, dor)) 

واجب الشكر لكم يا اخوان

الصفحات : 1 2

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ممدوح

سعود

الحزين اوى