سوال در مورد پروژه برنامه نویسی

[JAVAD.EXE]

سلام خدمت تمامی کاربران سایت برنامه نویس.
عذر میخوام از اینکه این سوال رو اینجا مطرح کردم.
متن بسوال اینه و تاحالا نتونستم هیچ کاری انجام بدم.
سوال:
برنامه ای بنویسید که تاریخ روز و ماه را در دوتا Input Box بگیره و جاپ کنه امروز چه روزی از ساله.

تشکر فراوان.:قلب:

[ROSTAM2]

Dim X_Day As String,X_Month As String
X_Day = InputBox("روز را وارد کنید")
X_Month = InputBox("ماه را وارد کنید")
MsgBox "روز: " + X_Day + VbCrlf + "ماه: " + X_Month

[JAVAD.EXE]

تشکر از اینکه جواب دادید.

ولی این سورس هرچی که دادم رو میگه.

منظورم این بود که یه بار تاریخ روز بگیره یه بار تاریخ ماه.

بعد بگه اون روز روز چندم ساله و اون ماه ماهه چندم ساله.

تشکر فراوان از پاسخگوییتون:قلب:

[just4froum]

بفرمایید البته با case is میشد کوچیک ترشو نوشت ولی دیگه اینجوری نوشتم.:قهقهه::قهقهه::قهقهه:

Private Sub Command1_Click()
Dim X_Day As String, X_Month As String
X_Day = InputBox("Rooz Ra Vared Konid")
X_Month = InputBox("Mah Ra Vared Konid (Be adad)")

Select Case X_Month

Case 2
X_Day = X_Day + (31 * 1)
Case 3
X_Day = X_Day + (31 * 2)
Case 4
X_Day = X_Day + (31 * 3)
Case 5
X_Day = X_Day + (31 * 4)
Case 6
X_Day = X_Day + (31 * 5)
Case 7
X_Day = X_Day + (31 * 6)
Case 8
X_Day = X_Day + (31 * 6) + (30 * 1)
Case 9
X_Day = X_Day + (31 * 6) + (30 * 2)
Case 10
X_Day = X_Day + (31 * 6) + (30 * 3)
Case 11
X_Day = X_Day + (31 * 6) + (30 * 4)
Case 12
X_Day = X_Day + (31 * 6) + (30 * 5)
End Select

MsgBox "Emrooz " & X_Day & " omin rooz az 365 rooz dar sal ast"
End Sub

[just4froum]

اینم به روش case is :

Private Sub Command1_Click()
Dim X_Day As String, X_Month As String
X_Day = InputBox("Rooz Ra Vared Konid")
X_Month = InputBox("Mah Ra Vared Konid (Be adad)")

Select Case CInt(X_Month)

Case Is <= 7
X_Day = X_Day + (31 * (X_Month - 1))
Case Else
X_Day = X_Day + (31 * 6) + (30 * (X_Month - 7))
End Select

MsgBox "Emrooz " & X_Day & " omin rooz az 365 rooz dar sal ast"
End Sub