主题：求返回逻辑值

如果用户在对话框中单击的是确定按钮，则返回True，否则返回False

示例见http://www.foxtable.com/help/topics/2063.htm

Dim Val As Date
If InputValue(Val, "筛选","请输入出生日期:") Then
    Output.Show(Val)
End If

If InputValue(Val, "筛选","请输入出生日期:") Then这个语句就会获得InputValue返回的逻辑值，你在弹出的窗口点确定返回True，会执行
Output.Show(Val)，点取消返回False，就不会执行

If InputValue(Val, "筛选","请输入出生日期:") Then其实就是
If InputValue(Val, "筛选","请输入出生日期:") = True Then