هدية : برنامج حساب تاريخ الحمل + المعادلة

[ابوخليل]

شاشة فريدة وحيدة  exe
التصميم على vb6

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

وهذا هو الكود المسؤول باستخدام المعادلة الطبية الظاهرة

هذه المعادلة قد يستفيد منها من يريد اضافة هذه الميزة الى برنامجه الطبي

 

Private Sub Command1_Click()
On Error Resume Next
Dim Dday As Integer
    Dim i As Double
    Dim sc As Integer
    Dim d1 As Date
    Dim s1 As String
    Dim m1 As Date
 'Calendar = vbCalGreg
    i = DateDiff("d", Date, Text1.Text)
    w1.Text = Abs(i \ 7)
    dx.Text = Abs(i Mod 7)
    m1 = DateAdd("d", 280, Text1)
    Dday = Weekday(m1)
If Dday = 1 Then yom.Text = "الأحد"
If Dday = 2 Then yom.Text = "الاثنين"
If Dday = 3 Then yom.Text = "الثلاثاء"
If Dday = 4 Then yom.Text = "الأربعاء"
If Dday = 5 Then yom.Text = "الخميس"
If Dday = 6 Then yom.Text = "الجمعة"
If Dday = 7 Then yom.Text = "السبت"
 'Calendar = vbCalHijri
    h1 = Format(m1, "YYYY/MM/DD")
End Sub

 

حساب الحمل.rar

[كمال على طارق]

أحسنت أستاذنا الكريم وبارك الله فى جهود سيادتكم

[Moosak]

أستاذنا المبارك ،، 🙂  شكر الله لكم 🌹

 

الملف لم يعمل وأعطى هذه الرسالة :

وغادر بصمت 🙂 👋

[ابوخليل]

كما هو ظاهر نقص في المكتبات لديك

تفضل اعداد آخر ولكن اعتقد ستواجه المشكلة نفسها

وايضا الفكرة على ملف اكسس

Project1.rar حساب تاريخ الحمل.rar

[Moosak]

42 دقائق مضت, ابوخليل said:

تفضل اعداد آخر ...

اشتغل بسلام .. 🌼

سلمت يمناك 🙂🌹

[ابوخليل]

مادام شاشة واحدة فانا افضل اخراجه هكذا اخف وافضل

 

وهذه صورة التطبيق الاول