+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : الدالــة DateSerial (/showthread.php?tid=4871)
الدالــة DateSerial - RaggiTech - 02-10-12
كاتب الموضوع : !!! BoriS !!!
الدالة DateSerial دالة رائعة تمكنك من معرفة تاريخ معين فى المستقبل أى بعد عد ايام محدد تقوم بتمريره لهــا ، وبذلك تجنب أكثر من معادلة أذا كنت تريد الجمع على تاريخ بطريقة عادية.الكود التالى يعطيك التاريخ بعد 853 يوم من الان .
هذه الدالة لها 3 وسيطات ( السنة , الشهر , اليوم ) ثم اضف الرقم الذى تريدة كعدد للايام لكي تعطينا التاريخ بعد هذا الرقم .
كود :
[color=#000000][COLOR=#0000bb] MessageBox[/color][color=#007700].[/color][color=#0000bb]Show[/color][color=#007700]([/color][color=#0000bb]DateSerial[/color][color=#007700](([/color][color=#0000bb]Now[/color][color=#007700].[/color][color=#0000bb]Year[/color][color=#007700]), ([/color][color=#0000bb]Now[/color][color=#007700].[/color][color=#0000bb]Month[/color][color=#007700]), ([/color][color=#0000bb]Now[/color][color=#007700].[/color][color=#0000bb]Day[/color][color=#007700]) + [/color][color=#0000bb]853[/color][color=#007700]).[/color][color=#0000bb]ToString[/color][color=#007700]([/color][color=#dd0000]"dd/MM/yyy"[/color][COLOR=#007700]))
[/COLOR][color=#0000bb][/color][/COLOR]