代码段分析，为什么会这样？
如果这样：
If FormatDate(IIF(IsDBNull(rs.Fields.Item("fb_date").Value), Nothing, rs.Fields.Item("fb_date").Value) & "", "yyyymmdd", "-") = FormatDate(today(), "yyyymmdd", "-") Then
则系统报错：应用程序试图执行安全策略不允许的操作。要授予此应用程序所需的权限，请与系统管理员联系，或在配置文件中更改该应用程序的信任级别。
异常详细信息: System.Security.SecurityException: 没有足够的安全权限设置系统日期。
如果改成这样：
dim ld_td = today()
If FormatDate(IIF(IsDBNull(rs.Fields.Item("fb_date").Value), Nothing, rs.Fields.Item("fb_date").Value) & "", "yyyymmdd", "-") = FormatDate(ld_td, "yyyymmdd", "-") Then
就好了，初学者迷惑中，谁能解释一下？
问题点数：20、回复次数：1Top
1 楼commandosvvv（UnknownData）回复于 2006-03-03 17:19:01 得分 0
你写那么复杂干什么！？
这样写试试：
if not rs.Fields.Item("fb_date").Value is nothing then
if CDate(Format(rs.Fields.Item("fb_date").Value,"yyyymmdd") = CDate(Format(today (), "yyyymmdd") then
end if
end ifTop
