جمع تاریخ میلادی با عدد

[nader.golab]

سلام.
من می خوام تاریخ میلادی رو مثلا با عدد 200 حساب کنم بعد ببینم اون روز چند شنبه هستش.
2011/05/25 + 200

[barbodsoft.com]

عدد 200 چی هست (روز ، ماه ، سال) ؟

[mlf_mlv]

سلام

Dim day As Integer = 25
Dim mounth As Integer = 5
Dim year As Integer = 2011
Dim number As Integer = 200
Dim d As Integer
Dim m As Integer
Dim y As Integer
d = day + number
m = mounth
y = year
If d > 30 Then
d = d Mod 30
m += System.Math.Floor(d / 30)
If m > 12 Then
m = m Mod 12
y += System.Math.Floor(m / 12)
End If
End If

[mlf_mlv]

البته بهتر کد های بالا رو توی یه تابع پیاده سازی کنید که از حجم کد کم کنید.
اگه مشکلتون حل نشد پیغام خصوصی بدید چون احتمالا یادم می ره اینجا رو دوباره چک کنم!

[nader.golab]

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

Dim A, B As Date
A = Date.Now
B = DateAdd(DateInterval.DayOfYear, 200, A)
txt2.Text = B.Year.ToString + "/" + B.Month.ToString + "/" + B.Day.ToString