+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] دالة datediff (/showthread.php?tid=12794)
RE: دالة datediff - sphinx - 24-07-15
اشكرك جدا اخي لكن اين الشرط اذا كان اكبر من 30 يوم او اقل من 30 يوم
هذا الكلام ايطبق على جرعة واحدة او لكل الجرع
وكيف يمكن ان اطبق الكود على فورم ثاني فورم البحث داخل الداتا كريد فيو
RE: دالة datediff - silverlight - 24-07-15
شرط التهرب من التطعيم في هذا السطر
كود :
If dateDiff < 0 Then
End Ifو بناء علي ذلك نقوم بتغيير لون الخط في التكست بوكس
أما اذا كنت تريد تطبيق نفس الأسلوب مع داتا جريد في فورم أخر عليك أن تطبق نفس الفكرة علي كل Row موجود في الدات جريد و إذا كنت تريد استخدام نفس الأسلوب في اكثر من فورم عليك ان تكتب الدوال بنفس الأسلوب الذ وضحته لك في مشاركتي الأولي و تجعلها Shared فقط لا غير
و ان لم تستطع ان تفعل هذا لوحدك عليك ان ترفع الملفات الخاصة بمشروعك حتي نساعدك و نكتب الكود لك أو ربما أحد أخر من الإخوة يستطيع مساعدتك في هذا الأمر
RE: دالة datediff - sphinx - 24-07-15
لم احصل على النتيجة المرجوة من الكود ولا يتغير اللون
والمقارنه تكون بين اللقاح القادم وبين التاريخ الحالي now او today
هل هذا الكود يطبق على جرعة واحدة ام كل الجرع
RE: دالة datediff - silverlight - 24-07-15
أنا ما فهمته من أسئلتك ان وقت التطيم الجديد مازال باق عليه وقت و بالتالي الشرط لن يتحقق الأن أبدا
فقط الشرط سيتحقق في حالة ان يكون تاريخ التطعيم الجديد أقل من تاريخ اليوم
Now = Today
و لكي تتأكد من أن الكود يعمل جيدا كل ما عليك أن تفعله هو أن تجعل قيمة تاريخ التطيم تساوي الأمس مثلا و بالتالي سيتحقق الشرط في تلك الحالة
RE: دالة datediff - sphinx - 24-07-15
استاذي العزيز احاول ان ارفع البرنامج لكن الحجم لا يسمح بذلك
سارفعه عبر الميديا
هناك ثلاث خانات للتاريخ
اولا تاريخ اعطاء اللقاح ويحدده اليوزر
ثانيا تاريخ اللقاح القادم ويكون بعد شهرين من تاريخ اعطاء اللقاح
ثالثا التاريخ الحالي now او today وهو الذي نقارن به مع تاريخ اللقاح القادم
RE: دالة datediff - sphinx - 24-07-15
السلام عليكم
استاذي العزيز بسبب الحجم الكبير للبرنامج
هذا رابط البرنامج
http://www.mediafire.com/download/ebsklske2rpx0w4/Vaccination+app.rar
واشكرك جدا
RE: دالة datediff - sphinx - 24-07-15
وهذا رابط البرنامج علة مركز الخليج لان رابط الميديا فاير لا يعمل
http://www.gulfup.com/?0qep6Y
RE: دالة datediff - silverlight - 25-07-15
بدلا من TextBox2 الذي يظهر به زمن التسرب من التطعيم أنصحك أن تستخدم Label بدلا منه لأنه مجرد كونترول لإظهار البيانات و ليس للكتابة
قمت بتعديل الكود قليلا في الحدث التالي و ان كنت ترغب ان تفعل نفسي الشئ في بقية المشروع يمكنك استخدام نفس الفكرة
كود :
Private Sub Btnnext_Click(sender As Object, e As EventArgs) Handles Btnnext.Click
cm.Position += 1
showpostion()
'هذا الكود الاظافة والمقارنه لجرعة واحدة فقط وهي جرعة الصفر
'Dim strDate As Date
'Dim strate As Date
'Dim next1 As Date
'next1 = DtpBCG.Value
'Me.Dtpnext1.Value = next1.AddMonths(2)
'strate = Dtpnext1.Value
'strDate = Today
Me.Label33.Text = ""
Dim vDate As DateTime = DtpBCG.Value
Dim nDate As DateTime = DateTime.Now
Dim clr As Color = CType(Label33.ForeColor, Color)
Label33.ForeColor = clr
Me.Label33.Text = CStr(CInt(vDate.Subtract(nDate).TotalDays))
Dim labelColor As Color = If((vDate.Subtract(nDate).TotalDays < 0), Color.Red, clr)
Label33.ForeColor = labelColor
End SubRE: دالة datediff - sphinx - 25-07-15
اشكرك جدا استاذي وبارك الله بيك
هل يمكن ان اقوم بنفس الكود في الفورم الثاني فورم البحث لان المطلوب وان يظهر في البحث الطفل المتسرب
RE: دالة datediff - silverlight - 25-07-15
تستطيع استخدام نفس الفكرة او تطويرها كيفما شئت