راهنمایی برای کم کردن یک روز از تاریخ بصورت رشته؟!

[Heidari66]

سلام

یه تاریخ به این صورت دارم : 150801

حالا میخوام 1 روز ازش کم کنم!

لطفا راهنمایی کنید

[mehdi.safavie]

درود;

یعنی بشه 15080 ؟ یا بشه 150800 ؟

اولی :

msgbox(Mid("150801",5,1))

دومی هم که ازش منها بگیر دیگه

[Heidari66]

دوست عزیز مگه همچین تاریخی (
15080 )
هم داریم؟
من میخوام وقتی 1 روز از
150801 کم شد تاریخ بشه 150731

[tolid123456789]

سلام
از تحلیل ریاضی وارتون ممنون mehdi.safavie (http://barnamenevis.org/member.php?132552-mehdi-safavie). ولی داداش شما به کاربردی بودن جوابتون اصلا توجه نمی کنید؟؟
مثلا تاریخ 2015/08/00 در کجای تقویم قرار داره؟




به نظر میرسه
Heidari66 (http://barnamenevis.org/member.php?152398-Heidari66)

وقتی منها می کنه به تاریخ های غیر واقعی برخورد میکنه.

[tolid123456789]

اگه داری با تقویم میلادی کار میکنی توابعی هستند که روز رو از تاریخ مورد نظرت کم می کنند

[tolid123456789]

سلام با روش زیر می تونی هر مقداری رو که خواستی از یک تاریخ کم یا زیاد کنی:

Dim today As Date = "2015/08/01"
Dim answer As System.DateTime
answer = today.AddDays(-1)
MsgBox(answer)

[Heidari66]

ممنون دوست عزیز
ولی تاریخ من بصورتی هست که گفتم :
150801
فقط هم میخوام 1 روز رو کم کنم
مشکل فقط همین روز اول ماه هست که وقتی کم کنیم میشه 00

[tolid123456789]

سلام کد زیر میتونه مشکل رو حل کنه؟؟

Dim short_date As String = "150801"
Dim today As Date = "20" & Mid(short_date, 1, 2) & "/" & Mid(short_date, 3, 2) & "/" & Mid(short_date, 5, 2)
Dim answer As System.DateTime
answer = today.AddDays(-1)
MsgBox(Microsoft.VisualBasic.Right(answer, 2))