User talk:Amorbot

Sub writeMonth()

Open "C:\the-months.htm" For Output As #1
For mth = 1 To 12

Print #1, "! style=""font-size: larger; text-align: left"" | [[" + CStr(mth) + "月]]"
For dayz = 1 To numberDays(mth)

Print #1, "| [[" + CStr(mth) + "月" + CStr(dayz) + "2日|" + CStr(dayz) + "]]"

Next


Next


Close #1

End Sub

Function numberDays(mthr)

If mthr = 2 Then

numberDays = 29

Else

If mthr = 4 Or mthr = 6 Or mthr = 9 Or mthr = 11 Then

numberDays = 30

Else

numberDays = 31

End If

End If

End Function

发起与Amorbot的讨论

讨论页是人们讨论如何改善维基百科上的内容的地方。发起新讨论来与Amorbot交流和合作。您在这里的留言会向他人公开。

发起讨论