التاريخ الهجري

nd

value3 = Math.Floor(value2/100); 

value4 = Math.Floor(value2/400); 

value5 = 2-value3+value4 

value6 =Math.Floor((value2+4716)* 365.25)

value7 =Math.Floor((value1 + 1 ) * 30.6001)

value8 = jour +value7+value6+value5-1524.5 

value9 = value8-1937806.5 

value10=Math.Floor((value9-1)/10631)

value11=( value9 + 354 ) - 10631 * value10

value12=Math.Floor(( 10985 - value11)/ 5316)

value13= Math.Floor(( 50 *value11 )/ 17719)

value14=Math.Floor(value11/5670)

value15=Math.Floor(( 43 * value11 )/ 15238)

value16= value13 * value12 + value15 * value14

value17=Math.Floor((30 - value16 )/ 15)

value18=Math.Floor((17719 * value16 ) / 50)

value19=Math.Floor(value16/16)

value20=Math.Floor((15238 * value16 ) / 43)

value21= value11-value17*value18-value19*value20+29



moish = Math.Floor(( 24 * value21 ) / 709)

if moish == 1 then

Input.SetText("Input5", "محرم");

elseif moish == 2 then

Input.SetText("Input5", "صفر");

elseif moish == 3 then

Input.SetText("Input5", "ربيع الأول");

elseif moish == 4 then

Input.SetText("Input5", "ربيع الثاني");

elseif moish == 5 then

Input.SetText("Input5", "جمادي الأول");

elseif moish == 6 then

Input.SetText("Input5", "جمادي الثاني");

elseif moish == 7 then

Input.SetText("Input5", "رجب");

elseif moish == 8 then

Input.SetText("Input5", "شعبان");

elseif moish == 9 then

Input.SetText("Input5", "رمضان");

elseif moish == 10 then

Input.SetText("Input5", "شوال");

elseif moish == 11 then

Input.SetText("Input5", "ذو القعدة");

elseif moish == 12 then

Input.SetText("Input5", "ذو الحجة");

end

value22=Math.Floor(( 709 * moish) / 24)

jourh = value21-value22

Input.SetText("Input4", jourh);

anneeh = 30 * value10 + value16 - 30

Input.SetText("Input6", anneeh); 

 d_h = Input.GetText("Input1");
d_h = String.ToNumber(d_h);
m_h = Input.GetText("Input2");
m_h = String.ToNumber(m_h);
y_h = Input.GetText("Input3");
y_h = String.ToNumber(y_h);
if (( y_h -1)*354.3667)- Math.Floor((y_h -1)*354.3667)>=0.5 then
belkiss1 =(Math.Ceil (( y_h -1)*354.3667))
elseif (( y_h -1)*354.3667)- Math.Floor((y_h -1)*354.3667)<0.5 then
belkiss1 =Math.Floor(( y_h -1)*354.3667)
end
belkiss2=Math.Ceil((m_h-1)*29.5)
belkiss3 = d_h +belkiss1+belkiss2+1948438
belkiss4=Math.Floor((belkiss3-1867216.25)/36524.25)
 belkiss5=Math.Floor(belkiss4/4)
 if belkiss3 <2299161 then
 belkiss6 = belkiss3
 elseif belkiss3 >2299161 then
 belkiss6 = belkiss3+belkiss4- belkiss5+1
 end
 belkiss7= belkiss6+1524
belkiss8= Math.Floor((belkiss7 - 122.1)/365.25)
belkiss9 = Math.Floor(365.25*belkiss8)
belkiss10= Math.Floor((belkiss7 - belkiss9)/30.6001)
belkiss11=Math.Floor(belkiss10*30.6001)
d_m =  belkiss7- belkiss9-belkiss11
if belkiss10 <14 then
m_m = belkiss10-1
elseif belkiss10 >=14 then
m_m = belkiss10-13
end
if m_m  >2 then
y_m = belkiss8-4716
elseif m_m  <2 then
y_m = belkiss8-4715
end
Input.SetText("Input4", d_m);
Input.SetText("Input5", m_m);
Input.SetText("Input6", y_m);