منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
تقسيم تاريخ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : تقسيم تاريخ (/showthread.php?tid=9198)

تقسيم تاريخ - asto - 08-06-13

السلام عليكم

لدينا التالي :

كود :
a="15\10\2013"

و

كود :
b="20\3\2015"

فمطلوب كود يعطي c بالشكل التالي :

كود :
c="15\3\2013"


تقسيم تاريخ - VB_Coder - 08-06-13

السلام عليكم

- إستخدم هذا الكود :

كود :
Dim A ,B As Date
Dim C As String

A =#15/10/2013#
B =#20/3/2013#
C =Day(A) & "/" & Month(B) & "/" & Year(A)

Msgbox C

- تحياتي .

تقسيم تاريخ - @@أبورائد@@ - 08-06-13


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





إن كان هدفك زيادة أو إنقاص الأشهر يمكنك استخدام الدالة DateAdd

PHP كود :
'' VB6

Dim a As Date
a = CDate("15/10/2013")

Dim c As Date
c = DateAdd( "m", -7, a)

MsgBox(c) 





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

تقسيم تاريخ - asto - 08-06-13

vb_coder كتب :السلام عليكم

- إستخدم هذا الكود :

كود :
dim a ,b as date
dim c as string

a =#15/10/2013#
b =#20/3/2013#
c =day(a) & "/" & month(b) & "/" & year(a)

msgbox c

- تحياتي .

مشكور جدا اخي

و كيف استعمل هذا الكود الخاص ب a اذا استبدلناه بتكست

تقسيم تاريخ - VB_Coder - 08-06-13

السلام عليكم

كود :
Dim A ,B As Date

A = CDate(Text1.Text)
B =CDate(Text2.Text)
Text3.Text =Day(A) & "/" & Month(B) & "/" & Year(A)

- تحياتي .

تقسيم تاريخ - asto - 08-06-13

عفوا حللت المشكل بفضل كود vb_coder

تقسيم تاريخ - torky1985 - 08-06-13

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

تقسيم تاريخ - asto - 11-06-13

torky1985 كتب :هل من الممكن البحث داخل الداتا جريد عن كل التواريخ الى فى الشهر الى نختار البحث عنه
يعنى مثلا اكتب رقم الشهر يحيلى كل التواريخ الى ف الداتا جريد الى ف خلال الشهر نفسه ياريت المساعده

يمكن البحث في قاعدة البيانات ثم اظهار النتيجة في الداتا غريد

تقسيم تاريخ - refathafez - 18-06-13

واذا كان المطلوب طرح تاريخين من بعض
text3.text=a-b فس هذا الكود
A = CDate(Text1.Text)
B =CDate(Text2.Text)
Text3.Text =Day(A) & "/" & Month(B) & "/" & Year(A)