عرض مشاركة واحدة
قديم 24/06/2005   #3
شب و شيخ الشباب واحد غليظ
شبه عضو
-- أخ لهلوب --
 
الصورة الرمزية لـ واحد غليظ
واحد غليظ is offline
 
نورنا ب:
May 2005
المطرح:
الشام - القاهرة - جدة
مشاركات:
92

افتراضي


عفوا يا اخ إيلي.....
بس الظاهر انك ما عرفت انا شو بدي بالظبط
انا اللى بدي يااه هووو معادلة التحويل من التاريخ الهجري الى الميلادي......

من التاريخ الهجري الى الميلادي.....


انا بالنسبة للتحويل من الميلادي للهجري..... صح انا كان بدي المعادلة بس الحمد الله عرفتها ....
و رح اكتبها للفائدة ميشان اذا في حدى محتاجها....
انا كتبتها بال فيجول بيسك

.____________ و هي المعادلة للتحويل من الميلدي للهجري...________________
Dim a, b, c, d, e, f, g, h, i, j, k, days

If MMM <= 2 Then

a = MMM + 12
b = MYYYY - 1
days = MDD

c = Int(b / 100)
d = Int(b / 400)
e = Abs(2 - c + d)

f = (b + 4716) * 365.25
g = Int((a + 1) * 30.6001)
h = days + g + f - e - 1524
i = (h - 194843 / 354.3667
j = (Abs((i - Int(i)) * 12.01234))
k = j - Int(j)

HMM = Int(j) + 1
HDD = Int(k * 29.5)
HYYYY = Int(i + 1)

Else
a = MMM
b = MYYYY
days = MDD

c = Int(b / 100)
d = Int(b / 400)
e = Abs(2 - c + d)

f = (b + 4716) * 365.25
g = Int((a + 1) * 30.6001)
h = days + g + f - e - 1524
i = (h - 194843 / 354.3667
j = (Abs((i - Int(i)) * 12.01234))
k = j - Int(j)

HMM = Int(j) + 1
HDD = Int(k * 29.5)
HYYYY = Int(i + 1)

End If

____________________________________________

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


و سلام..........
  رد مع اقتباس
 
Page generated in 0.03233 seconds with 11 queries