بدست آوردن تاریخ چند روز پیش

[i.lover3000]

سلام و خسته نباشید

چطوری میشه مثلا بفهمین 20 روز پیش چندم بوده؟ آیا خود ویژوال استادیو همچین قابلیتی داره یا خودمون باید
واسش بنویسیم ؟؟

من یه فانکشن نوشتم ولی مشکل داره و درست کار نمیکنه. هنوز کار داره و فکر کنم باید از یه حلقه یا تابع بازگشتی استفاده بشه. لطفا راهنمایی کنید.


Public Function MonagheseDate(ByVal DayAGo As Byte) As Date

Dim nDay, nMonth, nYear, tDay As Integer

nDay = Now.Day
nMonth = Now.Month
nYear = Now.Year



If nDay - DayAGo >= 1 Then
nDay = nDay - DayAGo
Else

tDay = DayAGo - nDay

If nMonth - 1 >= 1 Then
nMonth -= 1
Else
nYear -= 1
nMonth = 1
End If

Select Case nMonth
Case 1, 3, 5, 7, 8, 10, 12
If 31 - tDay > 0 Then
nDay = 31 - tDay
Else

End If

Case 4, 6, 9, 11
If 30 - tDay > 0 Then
nDay = 30 - tDay
End If

Case 2
If 28 - tDay > 0 Then
nDay = 28 - tDay
End If

End Select
End If

Dim nDate As New Date(nYear, nMonth, nDay)

Return nDate

End Function

[Hossis]

به همین راحتی

Dim d As Date = Now.AddDays(-20)
Me.Text = d.ToShortDateString & " -- " & Now.ToShortDateString
بعد از اجرا، نوار عنوان فرم رو نگاه کن

[مرتضی تقدمی]

به همین راحتی

Dim d As Date = Now.AddDays(-20)
Me.Text = d.ToShortDateString & " -- " & Now.ToShortDateString
بعد از اجرا، نوار عنوان فرم رو نگاه کن

سلام
اگه تاریخ شمسی باشه ؟
ممنون

[M.T.P]

اگه تاریخ شمسی باشه ؟

تاریخ میلادی حاصله رو به شمسی تبدیل کنید.

[مرتضی تقدمی]

تاریخ میلادی حاصله رو به شمسی تبدیل کنید.

سلام
عجب سوالی پرسیدم ! :اشتباه:
من می خواستم این تاپیک (http://barnamenevis.org/showthread.php?251677-%DA%86%D9%86%D8%AF-%D9%85%D8%A7%D9%87-%D9%88-%DA%86%D9%86%D8%AF-%D8%B1%D9%88%D8%B2-%D8%8C-%D9%85%D8%A7%D9%87-%D8%AC%D8%A7%D8%B1%D9%8A-%D8%8C-%D8%B3%D9%87-%D9%85%D8%A7%D9%87%D9%87-%D8%A7%D8%AE%D9%8A%D8%B1-%D8%8C-%D8%B3%D8%A7%D9%84-%D8%AC%D8%A7%D8%B1%D9%8A&highlight=%DA%86%D9%86%D8%AF+%D9%85%D8%A7%D9%87%2C +%DA%86%D9%86%D8%AF+%D8%B1%D9%88%D8%B2) و کامپوننتی که آقای دخیل زاده تهیش کرده رو معرفی کنم که به نظرم این قابلیت رو هم داشته باشه. خاطرم نیست. اما دیدنش خالی از لطف هم نیست.
موفق باشید