主题：全局变量出错

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

Dim d5 As New Date(s2, s3, Date.DaysInMonth(s2, s3)) '获取本月的最后一天
MessageBox.Show(d5)
Dim d6 As New Date(s2 - 1, 12, 31) '获取上年最后一天  
MessageBox.Show(d6）

 

 

读取EXCEL表单元格值时出错，ASC(1001,2022,03,期未数）

 

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.8.18.1
错误所在事件：窗口,自定义报表,Button1,Click
详细错误信息：
年、月和日参数描述无法表示的 DateTime。

 

单独建一个项目测试又可以，不知是哪出错了

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)

都测试过，都是可以显示出来

调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm，看哪一句代码出错

真的不知哪里出错了，用加减年月日都可以，就是这个不行

 

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)

出错的时候下面代码弹出什么内容？

不能

昨晚测了一晚都只弹出MessageBox.Show(d3)

后就弹出出错窗口

应该项是这句有问题

最后实在没有办法就采用了加减年月日法，这样就可以了

但是这句错在哪里查不出来

MessageBox.Show(d3)在哪里？和上面的代码有什么关系？

这个是测试前面的几个值的提示，就是到了求当月最后一日，或上月最后一日就出错

麻烦把所有代码贴出来，然后说明调试到哪一句代码出错