[amonem]

(25-07-19, 09:55 PM)سعود كتب :

إقتباس :لو فيه رابط لموقع يناسب ما تقوله ارجو ارفاقه

وشكرا ليك

كتبت لك رابط للبحث واول نتيجة رائعة .
ان كان قصدك تحويل مشروع كامل من لغة لاخرى فهنا  لا اعلم انه يوجد ولم اقصده اصلا .
التحويل يكون جيد وممتاز للاجراءات  تنسخ اجراء واحد متكامل بدون نقص وتلصقه ويقوم بتحويله بعد نقر الزر المسؤول عن ذلك.
انت الان لديك خبرة من موضوعك السابق.
ولا اظنه صعب عليك اكمال المشروع.
على كل حال اعطيتك طريقة من الطرق اللي استخدمها ويستخدمها غيري.

للاسف جربت الموقع والنتيجه فيها اخطاء كثيره 
دا كود داخل مدييول لغه VB.net
 ومفروض انه يتغير ل سي شارب

كود :

Function GetMohafza(ByVal RakamKomy As String) As String
       Dim MOhfza As String
       Dim cod As String

       cod = Mid(RakamKomy, 8, 2)

       Select Case cod
           Case "01"
               [MOhfza] = "القاهرة"
           Case "02"
               [MOhfza] = "الاسكندرية"
           Case "16"
               [MOhfza] = "الغربية"
           Case "33"
               [MOhfza] = "مطروح"
           Case "24"
               [MOhfza] = "المنيا"
           Case "18"
               [MOhfza] = "البحيرة"
           Case "25"
               [MOhfza] = "أسيوط"
           Case "27"
               [MOhfza] = "قنا"
           Case "17"
               [MOhfza] = "المنوفية"
           Case "12"
               [MOhfza] = "الدقهلية"
           Case "15"
               [MOhfza] = "كفر الشيخ"
           Case "26"
               [MOhfza] = "سوهاج"
           Case "13"
               [MOhfza] = "الشرقية"
           Case "14"
               [MOhfza] = "القليوبية"
           Case "22"
               [MOhfza] = "بنى سويف"
           Case "24"
               [MOhfza] = "المنيا"
           Case "19"
               [MOhfza] = "الاسماعيلية"
           Case "21"
               [MOhfza] = "الجيزة"
           Case "28"
               [MOhfza] = "أسوان"
           Case "29"
               [MOhfza] = "الاقصر"
           Case Else
               [MOhfza] = "unknown"
       End Select
       GetMohafza = MOhfza
   End Function

   Function Gender(ByVal RakamKomy As String) As String
       Dim cod As Integer
       cod = Mid(RakamKomy, 13, 1)
       If cod Mod 2 = 0 Then
           Gender = "أنثى"
       Else
           Gender = "ذكر"
       End If
   End Function

   Function BirthDate(ByVal RakamKomy As String) As Date
       Try
           Dim centry As Integer = Mid(RakamKomy, 1, 1)
           Dim BYear As String = IIf(centry = 2, 19, IIf(centry = 3, 20, 21)) & "" & Mid(RakamKomy, 2, 2)
           Dim BMonth As String = Mid(RakamKomy, 4, 2)
           Dim BDay As String = Mid(RakamKomy, 6, 2)
           BirthDate = CDate(BDay & "/" & BMonth & "/" & BYear)
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

   End Function

   Function Calcday(ByVal vDate1 As Date, ByVal vdate2 As Date)
       Dim vMonths As Integer, vDays As Integer
       vMonths = DateDiff("m", vDate1, vdate2)
       vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
       If vDays < 0 Then
           vMonths = vMonths - 1
           vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
       End If
       Calcday = vDays '& "يوم "
   End Function

   Function CalcMonth(ByVal vDate1 As Date, ByVal vdate2 As Date)
       Dim vMonths As Integer, vDays As Integer
       vMonths = DateDiff("m", vDate1, vdate2)
       vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
       If vDays < 0 Then
           vMonths = vMonths - 1
           vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
       End If
       vMonths = vMonths Mod 12
       CalcMonth = vMonths '& "شهر "
   End Function

   Function Calcyear(ByVal vDate1 As Date, ByVal vdate2 As Date)
       Dim vYears As Integer, vMonths As Integer, vDays As Integer
       vMonths = DateDiff("m", vDate1, vdate2)
       vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
       If vDays < 0 Then
           vMonths = vMonths - 1
           vDays = DateDiff("d", DateAdd("m", vMonths, vDate1), vdate2)
       End If
       vYears = vMonths \ 12
       Calcyear = vYears '& "سنه "
   End Function

End Module