السلام عليكم ورحمة الله وبركاته .. احترامي للمشرفين والأعضاء وتحيه لكم ...
الرجاء في مساعدتي وهي ..
مثلا : يوجد تاريخ تجديد رخصه قياده .. وتاريخ أنتهاء
اريد كود يعطني تنبيه قبلها بشهر او او شهرين او ايام بأنه بقي على رخضه القياده شهر واحد على الأنتهاء
اتمني في مساعدتي لأنه المشروع متوقف على هذه النقطه للعلم استخدم فيجوال بيسك 2010
السلام عليكم تفضل اخي
كود :
' هنا تاريخ نهاية الرخصة
Dim x As String = "20/06/2014"
' تعريف متغير الدي سياخد الفرق بين التاريخين
Dim wd As Long = DateDiff("d", Date.Now, x)
Label3.Text = wd
' هنا حددنا ادا كانت القيمة المتبقة تساوي 30 يعني شهر
If Label3.Text = 30 Then
' اضهر هده الرسالة
MsgBox("لم يتبقى الا 30 يوم لتجديد الرخصة")
End If
تسلم حبيبي جاري التجربه ربي يحفظ ويخليك يارب
بس بنسبة لهذا الكود احطه في تاريخ الأنتهاء فقط ؟ لأنه في تاريخ التجديد يعني تاريخ التجديد يظل فارغ ؟ مااعمل له كود
تاريخ التجديد هو تاريخ النهاية
يعني مكان تاريخ النهاية عندك هو المتغير x
واستعملنا date.now ليعطيني تاريخ اللحضي يعني كل مرة يعطيني تاريخ حسب اليوم مثلا اليوم 20/05/2014 غدا سيكون 21/05/2014
مشكور حبيبي جاري التجربه لو في اي شي راح استعين فيك لأنه لازم اطبق .. وانا مبتدئ ^_^ ربي يحفظك يارب
(20-05-14, 05:21 PM)abuadnan166 كتب : [ -> ]مشكور حبيبي جاري التجربه لو في اي شي راح استعين فيك لأنه لازم اطبق .. وانا مبتدئ ^_^ ربي يحفظك يارب
الحمد لله كلنا مبتدئين لو في امكان المساعدة اساعدك
(20-05-14, 05:36 PM)vb_net كتب : [ -> ] (20-05-14, 05:21 PM)abuadnan166 كتب : [ -> ]مشكور حبيبي جاري التجربه لو في اي شي راح استعين فيك لأنه لازم اطبق .. وانا مبتدئ ^_^ ربي يحفظك يارب
الحمد لله كلنا مبتدئين لو في امكان المساعدة اساعدك
كودك صح ما عطاني اي مشكلة وحطيته وطبقت ولكن ما تشتغل الرساله غيرت الأيام حطيت قبلها بيوم بس نفس الشي ..
والله ياريت تسوي عن طريق فيدويو واشوف كيف الطريقه بكون شاكر لك او صور اتمنى وانا انتظر منك رد
ممكن تشرح لي اين تضع تاريخ انتهاء الرخصة وكيف تريد ان تضهر لك الرسالة
(21-05-14, 05:57 PM)vb_net كتب : [ -> ]ممكن تشرح لي اين تضع تاريخ انتهاء الرخصة وكيف تريد ان تضهر لك الرسالة
اضعها في تاريخ الأنتهاء .. لأنه على كلامك انه التاريخ الثاني راح يتعير يوم بعد يوم لين يصل إلى التاريخ المحدد في انتهاء الرخصه .. كودك صح ما اعطاني اي مشكله فيه بس المشكله ما تطلع الرساله يعني ما ينفذ...
يجب ان تعدل تاريخ الانتهاء يكون 30 يوم بينه وبين تاريخ انتهاء هدا لتجرب النتيجة
لانه هناك شرط حددنا فيه 30 يوم ادا كانت اقل او اكثر لن تاتي الرسالة