弹出日期选择窗口，选择一个日期

function showDate(byVal strDate as String) as String

'---参数 strDate ，预选的日期，窗口日历会定位到预选日期所在月份

'--返回：字符串，用户选择的日期，如果用户没有选择则返回空串

例如：

msgbox MyApp.ShowDate("2010-3-10")

系统采用双月日历方式，左边是上一个月的，右边是制定月的。好处是：会计工作经常会在本月做上月的事情，这样选择日期会比较简便，可以直接选择到上月的日期