تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تحويل Function من Vb الى sql server
#1
السلام عليكم ورحمة الله وبركاتة :

هذه الفاينكشن تم عملها بال vb واريد تحويلها الى Function داخل Sql server
ليتم استدعائها من داخل الاستعلام

كود :
Public Function sh(NuKind As Integer, Independent As Integer, Ser As Integer, Trav As Integer, HousValDult As Currency, HospValDult As Currency, _
BusTicValDult As Currency, VisaVal As Currency, SpecialDisc As Currency, FligTicValDult As Currency, _
           HousValChlid As Currency, HospValChlid As Currency, BusTicValChlid As Currency, FligTicValChlid As Currency, _
                   HousValBaby As Currency, HospValBaby As Currency, BusTicValBaby As Currency, FligTicValBaby As Currency)
               Dim Shiv
If Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HousValDult, 0) + Nz(HospValDult, 0) + Nz(BusTicValDult, 0) + Nz(VisaVal, 0))
   ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HousValDult, 0) + Nz(HospValDult, 0) + Nz(FligTicValDult, 0) + Nz(VisaVal, 0))
     ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HousValDult, 0) + Nz(HospValDult, 0) + Nz(FligTicValDult, 0) + Nz(VisaVal, 0))
 
   
   ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HousValDult, 0) + Nz(HospValDult, 0) + Nz(BusTicValDult, 0))
   ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HousValDult, 0) + Nz(HospValDult, 0) + Nz(FligTicValDult, 0))
    ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HousValDult, 0) + Nz(HospValDult, 0) + Nz(FligTicValDult, 0))
 
   
   ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HousValDult, 0) + Nz(BusTicValDult, 0))
   ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HousValDult, 0) + Nz(FligTicValDult, 0))
    ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HousValDult, 0) + Nz(FligTicValDult, 0))
 
   
   ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 1 Then
       Shiv = Nz(BusTicValDult, 0)
   ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 2 Then
       Shiv = Nz(FligTicValDult, 0)
       ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 3 Then
       Shiv = Nz(FligTicValDult, 0)

   
   ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(BusTicValDult, 0) + Nz(VisaVal, 0))
   ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(FligTicValDult, 0) + Nz(VisaVal, 0))
     ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(FligTicValDult, 0) + Nz(VisaVal, 0))
 
   
         ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 6 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HospValDult, 0) + Nz(BusTicValDult, 0) + Nz(VisaVal, 0))

    ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 6 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HospValDult, 0) + Nz(FligTicValDult, 0) + Nz(VisaVal, 0))
   
        ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 6 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HospValDult, 0) + Nz(FligTicValDult, 0) + Nz(VisaVal, 0))

   
    ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 7 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HospValDult, 0) + Nz(BusTicValDult, 0))

    ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 7 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HospValDult, 0) + Nz(FligTicValDult, 0))
   
        ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 7 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HospValDult, 0) + Nz(FligTicValDult, 0))

   
   
   
   
   
   ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 8 Then
       Shiv = (Nz(HousValDult, 0) + Nz(HospValDult, 0) + Nz(VisaVal, 0))
   ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 9 Then
       Shiv = (Nz(HousValDult, 0) + Nz(HospValDult, 0))
   ElseIf Nz(NuKind, 0) = 1 And Nz(Ser, 0) = 10 Then
       Shiv = Nz(HousValDult, 0)
   
   
   
   
   ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HousValChlid, 0) + Nz(HospValChlid, 0) + Nz(BusTicValChlid, 0) + Nz(VisaVal, 0))
   ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HousValChlid, 0) + Nz(HospValChlid, 0) + Nz(FligTicValChlid, 0) + Nz(VisaVal, 0))
   ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HousValChlid, 0) + Nz(HospValChlid, 0) + Nz(FligTicValChlid, 0) + Nz(VisaVal, 0))
   

   
   ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HousValChlid, 0) + Nz(HospValChlid, 0) + Nz(BusTicValChlid, 0))
   ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HousValChlid, 0) + Nz(HospValChlid, 0) + Nz(FligTicValChlid, 0))
    ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HousValChlid, 0) + Nz(HospValChlid, 0) + Nz(FligTicValChlid, 0))
 
   
   ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HousValChlid, 0) + Nz(BusTicValChlid, 0))
   ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HousValChlid, 0) + Nz(FligTicValChlid, 0))
   ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HousValChlid, 0) + Nz(FligTicValChlid, 0))
   
   
   ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 1 Then
       Shiv = Nz(BusTicValChlid, 0)
   ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 2 Then
       Shiv = Nz(FligTicValChlid, 0)
    ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 3 Then
       Shiv = Nz(FligTicValChlid, 0)
 
   
   ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(BusTicValChlid, 0) + Nz(VisaVal, 0))
   ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(FligTicValChlid, 0) + Nz(VisaVal, 0))
    ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(FligTicValChlid, 0) + Nz(VisaVal, 0))
   
     
         ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 6 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HospValChlid, 0) + Nz(BusTicValChlid, 0) + Nz(VisaVal, 0))

    ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 6 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HospValChlid, 0) + Nz(FligTicValChlid, 0) + Nz(VisaVal, 0))
   
        ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 6 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HospValChlid, 0) + Nz(FligTicValChlid, 0) + Nz(VisaVal, 0))

   
    ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 7 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HospValChlid, 0) + Nz(BusTicValChlid, 0))

    ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 7 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HospValChlid, 0) + Nz(FligTicValChlid, 0))
   
        ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 7 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HospValChlid, 0) + Nz(FligTicValChlid, 0))

   
   
   ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 8 Then
       Shiv = (Nz(HousValChlid, 0) + Nz(HospValChlid, 0) + Nz(VisaVal, 0))
   ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 9 Then
       Shiv = (Nz(HousValChlid, 0) + Nz(HospValChlid, 0))
   ElseIf Nz(NuKind, 0) = 2 And Nz(Ser, 0) = 10 Then
       Shiv = Nz(HousValChlid, 0)

ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(BusTicValBaby, 0) + Nz(VisaVal, 0))
   
   
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
'?
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
 
   
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(BusTicValBaby, 0))
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0))
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0))
 
   
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(BusTicValBaby, 0))
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(FligTicValBaby, 0))
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(FligTicValBaby, 0))
 
   
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 1 Then
       Shiv = Nz(BusTicValBaby, 0)
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 2 Then
       Shiv = Nz(FligTicValBaby, 0)
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 3 Then
       Shiv = Nz(FligTicValBaby, 0)
   
   
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(BusTicValBaby, 0) + Nz(VisaVal, 0))
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
 
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 6 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(BusTicValBaby, 0) + Nz(VisaVal, 0))

    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 6 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
   
        ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 6 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))

   
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 7 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(BusTicValBaby, 0))

    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 7 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(FligTicValBaby, 0))
   
        ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 7 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(FligTicValBaby, 0))

   
   
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 8 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(VisaVal, 0))
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 9 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0))
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 1 And Nz(Ser, 0) = 10 Then
       Shiv = Nz(HousValBaby, 0)

   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(BusTicValBaby, 0) + Nz(VisaVal, 0))
   
   
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))

   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
 
   
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(BusTicValBaby, 0))
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0))
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0))
 
   
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(BusTicValBaby, 0))
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(FligTicValBaby, 0))
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(FligTicValBaby, 0))
 
   
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 1 Then
       Shiv = Nz(BusTicValBaby, 0)
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 2 Then
       Shiv = Nz(FligTicValBaby, 0)
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 3 Then
       Shiv = Nz(FligTicValBaby, 0)
   
   
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(BusTicValBaby, 0) + Nz(VisaVal, 0))
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
 
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 6 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(BusTicValBaby, 0) + Nz(VisaVal, 0))

    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 6 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
   
        ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 6 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))

   
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 7 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(BusTicValBaby, 0))

    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 7 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(FligTicValBaby, 0))
   
        ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 7 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(FligTicValBaby, 0))
   
   
   
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 8 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(VisaVal, 0))
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 9 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0))
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 2 And Nz(Ser, 0) = 10 Then
       Shiv = Nz(HousValBaby, 0)

   
   
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(BusTicValBaby, 0) + Nz(VisaVal, 0))
   
   
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))

   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
 
   
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(BusTicValBaby, 0))
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0))
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(FligTicValBaby, 0))
 
   
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(BusTicValBaby, 0))
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(FligTicValBaby, 0))
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(FligTicValBaby, 0))
 
   
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 1 Then
       Shiv = Nz(BusTicValBaby, 0)
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 2 Then
       Shiv = Nz(FligTicValBaby, 0)
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 3 Then
       Shiv = Nz(FligTicValBaby, 0)
   
   
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(BusTicValBaby, 0) + Nz(VisaVal, 0))
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
 
     
             ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 6 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(BusTicValBaby, 0) + Nz(VisaVal, 0))

    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 6 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
   
        ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 6 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))

   
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 7 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(BusTicValBaby, 0))

    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 7 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(FligTicValBaby, 0))
   
        ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 7 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(FligTicValBaby, 0))

   
   
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 8 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(VisaVal, 0))
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 9 Then
       Shiv = (Nz(HousValBaby, 0) + Nz(Nz(HospValBaby, 0), 0))
   ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 3 And Nz(Ser, 0) = 10 Then

     ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 1 Then
           Shiv = Nz(VisaVal, 0) + Nz(Nz(HospValBaby, 0), 0)
ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 2 Then
      Shiv = Nz(FligTicValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(VisaVal, 0)
ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 1 And Nz(Trav, 0) = 3 Then
      Shiv = Nz(FligTicValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(VisaVal, 0)
ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 2 Then
       Shiv = Nz(FligTicValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(VisaVal, 0)
ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 3 Then
       Shiv = Nz(FligTicValBaby, 0) + Nz(Nz(HospValBaby, 0), 0) + Nz(VisaVal, 0)
ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 1 Then
       Shiv = Nz(HospValBaby, 0)
ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 2 Then
       Shiv = Nz(FligTicValBaby, 0) + Nz(Nz(HospValBaby, 0), 0)
ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 2 And Nz(Trav, 0) = 3 Then
       Shiv = Nz(FligTicValBaby, 0) + Nz(Nz(HospValBaby, 0), 0)
ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 1 Then
      Shiv = 0
ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 2 Then
       Shiv = Nz(FligTicValBaby, 0)
ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 3 And Nz(Trav, 0) = 3 Then
       Shiv = Nz(FligTicValBaby, 0)
ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 1 Then
       Shiv = 0
ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 2 Then
       Shiv = Nz(FligTicValBaby, 0)
ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 4 And Nz(Trav, 0) = 3 Then
       Shiv = Nz(FligTicValBaby, 0)
ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 1 Then
       Shiv = Nz(VisaVal, 0)
ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 2 Then
       Shiv = Nz(FligTicValBaby, 0) + Nz(VisaVal, 0)
ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 5 And Nz(Trav, 0) = 3 Then
       Shiv = Nz(FligTicValBaby, 0) + Nz(VisaVal, 0)


ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 6 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(VisaVal, 0))

    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 6 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))
   
        ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 6 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(FligTicValBaby, 0) + Nz(VisaVal, 0))

   
    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 7 And Nz(Trav, 0) = 1 Then
       Shiv = (Nz(HospValBaby, 0))

    ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 7 And Nz(Trav, 0) = 2 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(FligTicValBaby, 0))
   
        ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 7 And Nz(Trav, 0) = 3 Then
       Shiv = (Nz(HospValBaby, 0) + Nz(FligTicValBaby, 0))




ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 8 Then
       Shiv = Nz(VisaVal, 0) + Nz(Nz(HospValBaby, 0), 0)
ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 9 Then
       Shiv = Nz(HospValBaby, 0)
ElseIf Nz(NuKind, 0) = 3 And Nz(Independent, 0) = 4 And Nz(Ser, 0) = 10 Then
       Shiv = 0
ElseIf Nz(NuKind, 0) Then
       Shiv = 0
 
   
   
   
'==========================================================================================
   Else
       Shiv = ""
End If
    On Error Resume Next
 
sh = Shiv - Nz(SpecialDisc, 0)
End Function
الرد }}}
تم الشكر بواسطة:
#2
والمطلوب يا سهران؟ تبي حد يحولها لك؟!
يعني انت ما حاولتش معاها ابدا؟

الرد }}}
تم الشكر بواسطة:
#3
أخي الكريم
انا كل شغلي سابقا على قواعد بيانات اكسس مباشرة
وجديد على قواعد بيانات sql server
حاولت كم محاوله وفشلت
نعم اخي الكريم محتاج حد يحولها
الرد }}}
تم الشكر بواسطة:
#4
أخي الكريم

هذا الكتاب مبسط لتعلم Sql Server



أتمنى لك وللجميع التوفيقق


الملفات المرفقة
.pdf   خالد السعداني SQL.pdf (الحجم : 2.53 م ب / التحميلات : 61)
الرد }}}
تم الشكر بواسطة:
#5
شكر لك اخي الكريم على هذ الهدية القيمة
واحتاج الى من يساعد في تحويل الفاينكشن
الرد }}}
تم الشكر بواسطة:
#6
ما تفعل هذه الفنكشن
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  جديد: دمج عمودين من جدولين في عمود واحد في استعلام SQL server ggtt17121985 0 684 09-03-23, 01:17 AM
آخر رد: ggtt17121985
  [SQL] مساعد فى تحويل بعض معادلات الاكسل الى Sql وخصوصا قاعدة If moooss 0 721 23-10-22, 07:12 PM
آخر رد: moooss
  [SQL] فيديو بسيط يوضح اساسيت التعامل مه sql server tarek 2 2,217 19-06-22, 03:04 AM
آخر رد: أبو خالد الشكري
Sad حلل لمشكلة الsql server واللغه العربيه ارجوكم Hosam Ashraf Elwakel 0 921 13-12-21, 07:01 AM
آخر رد: Hosam Ashraf Elwakel
  مشكلة فى الداتا بيز sql server خبراء منتدانا ارجوا المساعدة shady_0777 0 1,187 14-05-21, 01:31 AM
آخر رد: shady_0777
  [سؤال] طريقة تحديث جدول بناء على بيانات جدول آخر sql server اليوم مبتدئة وغداً محترفة 5 4,882 23-04-21, 07:44 AM
آخر رد: d3vc0d
  اريد ربط 3 جداول (relation ship) فى sql server سلام و محبه 0 1,242 23-01-21, 08:09 PM
آخر رد: سلام و محبه
  مساعدة من محترفي SQL SERVER flamengo 1 1,441 12-10-20, 11:23 AM
آخر رد: flamengo
  هل أستخدم SQL SERVER الموجود ضمن حزمة فيجوال بيسك 2013 أوSQL SERVER كبرنامج مستقل جيولوجي مبتدئ 1 1,701 29-09-20, 01:07 AM
آخر رد: ابو محمد محمد محمد
  [درس فيديو] دورة حول كيفية ربط كل من الفوكس برو والاكسس بال sql server diggitalk2017@gmail.com 0 1,647 29-08-20, 11:40 PM
آخر رد: diggitalk2017@gmail.com

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


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