شناسایی تاریخ

[saeedzx]

با عرض سلام

چگونه می توان یک تاریخ را به گونه زیر شناسایی کرد

مثلا در یک تکست باکس داریم : 1389/10/10

و در تکست باکس 2 تاریخ مثلا امروز هست 1389/9/10


می خوام هنگامی که 2 تکست باکس به شکل بالا بودن یعنی یک ماه اختلاف داشتن پیغام بده 1 ماه اختلاف وجود دارد

[parselearn]

http://barnamenevis.org/showthread.php?143491-%D8%A8%D8%AF%D8%B3%D8%AA-%D8%A2%D9%88%D8%B1%D8%AF-%D8%A7%D8%AE%D8%AA%D9%84%D8%A7%D9%81-%D8%A8%DB%8C%D9%86-%D8%AF%D9%88-%D8%B2%D9%85%D8%A7%D9%86-%D8%A8%D8%B1-%D8%AD%D8%B3%D8%A8-%D8%AA%D8%A7%D8%B1%DB%8C%D8%AE


(روش ديگر اسپليت كردن براساس / هست و اختلاف ماه)

[saeedzx]

من که چیزی متوجه نشدم ..... دوست عزیز خواهشن ما رو این پست و ان پست نکنه

لطفاً یک راهنمایی خوب بکنید

با تشکر

[saam_2371369]

با سلام شما میتونید با استفاده از دستوره DateTime این کارو انجام بدید
امید وارم موفق باشید.

[xxxxx_xxxxx]

من که چیزی متوجه نشدم ..... دوست عزیز خواهشن ما رو این پست و ان پست نکنه
اگر به لینک داده شده رجوع کنید، توضیح داده شده که برای بدست آوردن اختلاف دو تاریخ باید از تابع DateDiff استفاده کنید.

[saeedzx]

دست شما درد نکنه فهمیدم چه فرمیه

خب یک سوال دیگر هم داشتم ( اگر بخواهم مقدارش رو جمع ببندم چه فرمی )

Dim A, B As Date
A = Text1.Text
B = Text2.Text
Text3.Text = DateDiff("m", A, B)


درText1 تاریخ امروز
در text2 مقدار ماهی رو که می خوام بره جلو

مثلا

text1.text="1389/9/10" و text2.text="1"

حالا در می خوام در text3 بنویسه 1389/10/10

[xxxxx_xxxxx]

سلام،
برای این کار باید از تابع DateAdd استفاده کنید:

Text3.Text = DateAdd("m", Text2.Text, Text1.Text)