主题：全局变量出错

Public Function ASC(ByVal s1 As String, ByVal s2 As Integer, ByVal s3 As Integer, ByVal s4 As String) As Double

MessageBox.Show(s2 )

MessageBox.Show(s3)

Dim d5 As New Date(s2, s3, Date.DaysInMonth(s2, s3)) '获取本月的最后一天
MessageBox.Show(d5)