citect2018进入页面时，date and time picker显示当前日期

比如页面上有一个date and time picker控件，符号为main_AN20.新建一个citectVBA程序段

Sub SetDate()
main_AN20.value=cdate(now())
End Sub

页面的进入页面事件写下面的代码

VbCallRun(VbCallOpen("setdate"))

 

保存编译，进入页面就会自动的八日起调整为当前日期了