تفضل
علما انه تم استبدال المرفق السابق بهذا
الفكرة بسيطة جدا .. اولا واخيرا هي فكرة طبية
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