如何为可选参数分配默认日期时间 ( Now ) 值。

将 now 对象分配给以下错误的可选参数时

Constant expression is required 

代码:
Public Sub ReminderMail(Optional ByVal ReminderMailDate As DateTime = Now) 
 
// Code Block 
 
End Sub  

请您参考如下方法:

尝试这个 :

Public Sub ReminderMail(Optional ByVal ReminderMailDate As DateTime = Nothing) 
 
If ReminderMailDate = Nothing Then ReminderMailDate = Now 
 
// Code Block 
 
End Sub  


评论关闭
IT干货网

微信公众号号:IT虾米 (左侧二维码扫一扫)欢迎添加!