تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
update العمر
#1
السلام عليكم.بارك الله فيكم كيف يمكن أسوّي هذي الشغلة بعد اذنكم
انا عندي datetimepicker و ثلاثة تاكسات
لما اجي اسجل هضو جديد اكتب تاريخ ميلادو و عملية الحفظ تشمل مذلك الثلاثة تاكسات و التايمر بيكر مع بعضهم
المشكلة دايما يبقى نفس العمر مسجل لما بجي افتح الفورم  ولو بعد عام لكن من المفروض العمر يتغير كل يوم و مش معقول يوميا اعمل تعديل على البيانات عشان يظهر العمر الجديد
كيف ربنا يساركم اسوي هذي المشكلة ماعندي بصراحة فكرة براسي .. او حتى اعرض العمر الجديد في تاكسات 4 و5و6 بعيدا عن تاكسات المحفوظين بقاعدة البيانات


الملفات المرفقة
.rar   WindowsApplication1.rar (الحجم : 74.17 ك ب / التحميلات : 34)
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

المشكلة لديك تترتب هنا
DateTimePicker

حيث انك تقوم فى كل مرة بفتح الفرم ليقوم بعرض نفس اليوم الحالى به
وبالتالى سيقوم بعرض الناتج 0 لعدد الايام والشهر والسنة

واذا قمت بتغيير السنة لـ سنة سابقة مثلاً 
ستجد الاختلاف ظهر معك واصبح يعمل

الامر كله علك ان تعمل كود استعلام لجلب تاريخ الميلاد
وتمريره كا قيمة الى DateTimePicker

حتى يقوم بعد ذلك بتنفيذ عرض العمر 

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: حافظ حافظ , حافظ حافظ , muaamar
#3
تفضل أخي عبدالعزيز
كود :
Public Class Form1

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Me.DateTimePicker1.Value = GetSetting(Application.ProductName, "Age", "Birthday", Now)
       DateTimePicker1_KeyUp(Nothing, Nothing)
   End Sub
   Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
       SaveSetting(Application.ProductName, "Age", "Birthday", Me.DateTimePicker1.Value.Date)
   End Sub

   Private Sub DateTimePicker1_KeyUp(sender As Object, e As KeyEventArgs) Handles DateTimePicker1.KeyUp
       Dim dob As DateTime
       dob = New DateTime(DateTimePicker1.Value.Year, DateTimePicker1.Value.Month, DateTimePicker1.Value.Day)
       Dim tday As TimeSpan = DateTime.Now.Subtract(dob)
       Dim years As Integer, months As Integer, days As Integer
       months = 12 * (DateTime.Now.Year - dob.Year) + (DateTime.Now.Month - dob.Month)
       If DateTime.Now.Day < dob.Day Then
           months -= 1
           days = DateTime.DaysInMonth(dob.Year, dob.Month) - dob.Day + DateTime.Now.Day
       Else
           days = DateTime.Now.Day - dob.Day
       End If
       years = Math.Floor(months / 12)
       months -= years * 12
       TextBox1.Text = years : TextBox2.Text = months : TextBox3.Text = days
   End Sub

End Class
الرد }}}
تم الشكر بواسطة: elgokr , حافظ حافظ , muaamar
#4
طيب اذا كان عندك 4000 موظف ومطلوب تحديث الاعمار تلقائيا؟ هل تنفع هذه الطريقة ام نحتاج الى لوب وتايمر يعمل تلقائيا؟او اية فكرة اخرى.جزاكم الله خيرا
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم