كل ما يتعلق بدوال التاريخ

ارجو الرد سريعا

السلام عليكم ورحمة الله وبركاته

انا العضو ميدو

اريد انشا برنامج ينبهك بالمواعيد اى لو التاريخ المدون فى الtext= تاريخ اليوم والمعاد المدون فى text2=الوقت الحالى يرن او بصدر صوت

ارجو الرد سريعا للاهمية *-)

مشكور جداً و باالنسبة لطلب الأخ midovisualbasic أنا أريد نفس الشيء لو سمحت و شكراً مجدداً

بسم الله الرحمن الرحيم

موضوع جدا رائع

أحببت أن أضع سؤالي هنا على الرغم من قدم الموضوع لأهمية الموضوع إضافة الى علاقة الموضوع بسؤالي ،

سؤالي كيف أعرف ما اسم اليوم ( السبت ، الأحد ، الأثنين ، ... ، الجمعة )

يعني هل يوجد دالة يمكنني أن أعطيها التاريخ وترد الي اليوم .

والسلام عليكم ورحمة الله وبركاته

مرحبا اخي ...

هذا الذي تريده ان شاء الله

Label1.Caption = Format(Date, "dddd")

بسم الله الرحمن الرحيم

مشكور أخي hassanco على الإجابة السريعة

لكن هذه الطريقة ترجع اسم اليوم على شكل string مما قد تتغير الكلمة حسب اعدادت الجهاز ( انجليزي أو عربي ) فترجع مرة Friday واذا كان النظام عربي يرجع الجمعة

وانا أريدها على شكل رقم ( ترتيب ذلك اليوم في الأسبوع ) أو ثابت مثل VBFriday

هل يمكن ذلك

مشكور مرة أخرى

والسلام عليكم ورحمة الله وبركاته

مشكور و يعطيك الف عافية يا رب

مشكور على الشرح

السلم عليكم ورحمة الله أم بعد هدا الحل يأ خي الدي إستطعة أن أتي به

Private Sub Command1_Click()

Dim Dday As Integer

Dday = Weekday(Date)

If Dday = 1 Then Print "ÇáÃÍÏ"

If Dday = 2 Then Print "ÇáÇËäíä"

If Dday = 3 Then Print "ÇáËáÇËÇÁ"

If Dday = 4 Then Print "ÇáÃÑÈÚÇÁ"

If Dday = 5 Then Print "ÇáÎãíÓ"

If Dday = 6 Then Print "ÇáÌãÚÉ"

If Dday = 7 Then Print "ÇáÓÈÊ"

End Sub

وإن شاء الله يكون هو الحل و السلم عليكم ورحمة الله

جهد مشكور

انا فعلا استفدت جدا

popa