How vb compiles the yellow calendar

Dim? My month? As what? integer

Dim? My year? As what? integer

My year? =? val（text 1。 Text)

My month? =? Val (text 2. Text)

SMS 3. Text messages? =? DateDiff（“d“，？ My year? & amp？ "-"? & amp？ My month? & amp？ "-"? & amp？ " 1",? My year? & amp？ "-"? & amp？ My month? +? 1? & amp？ "-"? & amp？ " 1")

End? submarine

Personal? Sub？ Form Load ()

Text 1. Text messages? =? Year (date)? Enter the year in the text 1.

Text 2. Text messages? =? 1? Enter the month in Text 2.

SMS 3. Text messages? =? ""? Enter the number of days corresponding to this month in Text 3.

Command 1. Subtitles? =? "view"

End? submarine