笔者刚用VB不久。打算将日期取四位年份进行比较，先用了Str(Year(Date))，结果发现比较时总报错，后来改用Format(Date, "YYYY")，顺利通过。仔细阅读技术文档后，发现STR对数字转换时，要预留一位前置的空格位，以表示正负号。

     如： If Str(Year(Date)) = Format(Date, "YYYY") Then 这句话的结果为FALSE 

     通过 Len(Str(Year(Date)))  和 Len(Format(Date, "YYYY")) 发现，前者长度为5 ，而后者为4

    为了达到两者一致的效果，改为对前者用TRIM函数去空格，则：

       Trim(Str(Year(Date)))) = Format(Date, "YYYY")   结果为TRUE 

    以上小技巧，提醒新手注意。