تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تقسيم تاريخ
#1
السلام عليكم

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

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

و

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

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

كود :
c="15\3\2013"
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

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

كود :
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

- تحياتي .
الرد }}}
تم الشكر بواسطة:
#3

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





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

PHP كود :
'' VB6

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

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

MsgBox(c





السلام عليكم ورحمة الله وبركاته
الرد }}}
تم الشكر بواسطة:
#4
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 اذا استبدلناه بتكست
الرد }}}
تم الشكر بواسطة:
#5
السلام عليكم

كود :
Dim A ,B As Date

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

- تحياتي .
الرد }}}
تم الشكر بواسطة:
#6
عفوا حللت المشكل بفضل كود vb_coder
الرد }}}
تم الشكر بواسطة:
#7
هل من الممكن البحث داخل الداتا جريد عن كل التواريخ الى فى الشهر الى نختار البحث عنه
يعنى مثلا اكتب رقم الشهر يحيلى كل التواريخ الى ف الداتا جريد الى ف خلال الشهر نفسه ياريت المساعده
الرد }}}
تم الشكر بواسطة:
#8
torky1985 كتب :هل من الممكن البحث داخل الداتا جريد عن كل التواريخ الى فى الشهر الى نختار البحث عنه
يعنى مثلا اكتب رقم الشهر يحيلى كل التواريخ الى ف الداتا جريد الى ف خلال الشهر نفسه ياريت المساعده

يمكن البحث في قاعدة البيانات ثم اظهار النتيجة في الداتا غريد
الرد }}}
تم الشكر بواسطة:
#9
واذا كان المطلوب طرح تاريخين من بعض
text3.text=a-b فس هذا الكود
A = CDate(Text1.Text)
B =CDate(Text2.Text)
Text3.Text =Day(A) & "/" & Month(B) & "/" & Year(A)
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم