طريقه إجاد التاريخ الهجري آلياً مع إضافة عدد الآيام أرجو المساعده

[sumt]

السلام عليكم ورحمة الله وبركاته 

 

اخوتي وفقكم الله لكل خير أرجو المساعده ولكم دعوة في ظهر الغيب لحاجتي الماسة لذلك ولعل في المثال المرفق يوضح ما اريده وفقكم الله 

مثال.rar

[الـعيدروس]

السلام عليكم

 

اضف موديل والصف الكود التالي فيه

Function Dy_Ad(ByVal بداية_التاريخ As Date, عدد_الايام As Integer) As String
Dim Dt_S As String
Dim y, m, d
Dim im, idy, Tol
Dim Dt_Out, D_ad, Dte
Dte = بداية_التاريخ
D_ad = عدد_الايام
If Not IsDate(Dte) Then Exit Function
Dt_S = Dte
y = Split(Dt_S, "/")(2): m = Split(Dt_S, "/")(1)
d = Split(Dt_S, "/")(0): Tol = d + Val(D_ad)
Select Case Tol
       Case Is = 30
       im = m + 1
       m = im
       d = 1
       Case Is > 30
       idy = Tol - 30
       im = m + 1
       m = im
       d = idy
       Case Else: d = Tol
End Select
Dt_Out = DateSerial(y, m, d)
Dy_Ad = Dt_Out
End Function

استخدام الدالية كالتالي

في خلية H9

=Dy_Ad(D9;F4)

على حساب ان ايام الشهر 30 يوم

تم تعديل نوفمبر 21, 2014 بواسطه الـعيدروس

[sumt]

الله يبارك فيك استاذي الكريم والله يرزقك من واسع فضله 

 

وضعت الكود عدة مرات  ولكن لم ينجح معي الامر يا ليت يتم وضع ذلك على الملف المرفق واكون لك من الشاكرين  

 

 

كل الشكر لك ولكل متابع 

[sumt]

تمت المحاولة مره اخرى ولكن الناتج في التاريخ يكون بالميلادي وانا أرغب بان يكون الناتج بالتاريخ الهجري  ..... يا ليت اجد المساعده الله يوفقكم لإهمية ذلك عندي 

[الـعيدروس]

السلام عليكم

 

 

 

 ولكن الناتج في التاريخ يكون بالميلادي وانا أرغب بان يكون الناتج بالتاريخ الهجري

 

شاهد المرفق

لااعلم لماذا يظهر عندك بالميلادي

 

مثال1.rar

[sumt]

رائع استاذي الكريم والله كلمة الشكر في حقك قليلة 

 

الله يوفقك لكل خير ويرزقك من حيث لا تحتسب أنه سميع مجيب