حساب تاريخ الحمل ، وموعد الولادة المقدر

[ابوخليل]

السلام عليكم

هدية طريفة .. وجدتها .. فاحببت ان اتحفكم بها

 

حساب الحمل.rar

[Foksh]

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

أكثر الله من هداياكم وعطاياكم معلمنا الفاضل .. وجزاكم الله كل الخير

 

يبدو أنني لست من المحظوظين لأن النسخة 32 ، وانا عندي الإصدار 2016 - 64 😥 

[ابوخليل]

ولا يهمك اخي العزيز

 هذه النسخة مقفلة .. سأبحث عن الأصل .. وأقدمها بإطار افضل  ان شاء الله

[Foksh]

جزاك الله عنا كل الخير ..

انا اعجبتني الفكرة ، وقد تكون إضافة مميزة لبرنامج عيادات نسائية  

تم تعديل منذ 3 ساعات بواسطه Foksh

[ابوخليل]

تفضل 

علما انه تم استبدال المرفق السابق بهذا

الفكرة بسيطة جدا .. اولا واخيرا هي فكرة طبية

    Dim Dday As Integer
    Dim i As Double
    Dim sc As Integer
    Dim d1 As Date
    Dim s1 As String
    Dim m1 As Date
      i = DateDiff("d", Date, Text1)
      me.w1 = Abs(i \ 7)
      me.dx = 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 = "السبت"
  me.h1 = Format(m1, "YYYY/MM/DD")

حساب الحمل.rar

[Foksh]

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

حساب الحمل.rar 126.28 kB · 0 downloads

زاد الله فضلك ، وأشكرك اهتمامك معلمي الفاضل ، ولكن للأسف لم تكتمل اللحظة 😥

[ابوخليل]

تفضل

ضعه في sysWoW64

قد يحتاج لتسجيل

وسوف ارفق ملف اكسس ايضا 

MSSTDFMT.rar

وهذا اكسس

وزيادة الخير خير

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

Dim i As Integer
Dim sc As Integer
Dim d As Date
Dim s As String
i = Date - t1
w1 = i \ 7
d1 = i Mod 7
m1 = t1 + 280
yom = Format(m1, "dddd")
sc = Calendar
Calendar = 0
m1.SetFocus
d = CDate(m1.Text)
Calendar = 1
s = CStr(d)
h1 = Format(s, "YYYY/MM/DD")
Calendar = sc

 

db4.rar

[Foksh]

جزااكم الله خيراً ، فعلاً تم تشغيل البرنامج بعد تسجيل الملف ، وللفائدة بطريقة التسجيل :-

افتح CMD موجه الأوامر كمسؤول ، تأكد من نسخ الملف المرفق "MSSTDFMT.DLL" في مشاركة معلمي أبو خليل الى المسار :-

C:\Windows\SysWOW64

اذا كان الويندوز 64 .

ثم اكتب الأمر التالي للتسجيل :-

regsvr32 "C:\Windows\SysWOW64\MSSTDFMT.DLL"

 

حتى تحصل على النتيجة التالية :

 

 

صورة البرنامج :-

 

أجدت فيما طرحت ، وأبدعت معلمي الفاضل  

[ناقل]

هذا برنامج اخر يقوم بنفس الوظيفة تقريبا ......................

 

في 13‏/2‏/2021 at 04:06, husamwahab said:

تفضل التعديل ارجو ان يكون طلبك

حساب تاريخ الحمل-11.rar 51.04 kB · 104 downloads

 

تم تعديل منذ 43 دقائق بواسطه ناقل