أريد حلاً...................................؟؟؟� �

[واحد غليظ]

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

يعني اذا في عندي حقل تاريخ الميلاد ...بالهجري

كيف ممكن انو حولو الى ميلادي ميشان اعمل علية عمليات حسابية
........
اظن انو السؤال واضح
و على راسي كل مين بيحاول انو يساعد
.. و سامحونا على الازعاج

[/b]

[elie_90]

نزل الفرونت بيج (اصدار الفيجوال بيسك ) وبتنحل كل أمورك

[واحد غليظ]

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

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


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

.____________ و هي المعادلة للتحويل من الميلدي للهجري...________________
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

____________________________________________

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


و سلام..........

[Syria Man]

أنا شخصياً

























مابعرف

[واحد غليظ]

كاتب النص الأصلي : waleed_daoud

أنا شخصياً


مابعرف

__________

على فكرة انت انت لذيذ... و دمك خفيف...