IF CSTR(Month(RS_Counter("DATE"))) <> CSTR(Month(DATE())) THEN   
    RS_Counter("DATE") = DATE()                     
    RS_Counter("YESTERDAY") = RS("TODAY")            
    RS_Counter("BMONTH") = RS("MONTH")
    RS_Counter("MONTH") = 1                          
    RS_Counter("TODAY") = 1                          
    RS_Counter.Update                                
ELSE
    IF CSTR(Day(RS_Counter("DATE"))) <> CSTR(Day(DATE())) THEN   
        RS_Counter("DATE") = DATE()                     
        RS_Counter("YESTERDAY") = RS("TODAY")            
        RS_Counter("TODAY") = 1                          
        RS_Counter.Update                                
    END IF
这段代码在描述什么呀？尤其是CSTR(Month(RS_Counter("DATE"))) <> CSTR(Month(DATE()))函数？
谢谢拉！！！

CSTR(Month(RS_Counter("DATE")))  是 把 数据库中 date字段 中的时间  用month函数 得到 对应的月  然后把它用cstr()函数  转换成字符型.
再和今天的的月份比较 CSTR(Month(DATE()))这是得到 现在所在月 转换字符型

中间 就是说如果不是同一个月  就执行后面的程序

求教看不懂的东东
'RS_Counter看着像是一个数据库记录集
IF CSTR(Month(RS_Counter("DATE"))) <> CSTR(Month(DATE())) THEN
'这里比较这个记录集里的日期月份是否不为当前月份
    '下面在修改记录集中的记录   
    RS_Counter("DATE") = DATE()                     
    RS_Counter("YESTERDAY") = RS("TODAY")            
    RS_Counter("BMONTH") = RS("MONTH")
    RS_Counter("MONTH") = 1                          
    RS_Counter("TODAY") = 1                          
    RS_Counter.Update'这里将修改提交到了数据库端                                
ELSE
    '这里判断Rs_Counter的日期是否不是当前的日期
    IF CSTR(Day(RS_Counter("DATE"))) <> CSTR(Day(DATE())) THEN   
        '下面同样在修改记录集的数据
        RS_Counter("DATE") = DATE()                     
        RS_Counter("YESTERDAY") = RS("TODAY")            
        RS_Counter("TODAY") = 1                          
        RS_Counter.Update                                
    END IF
这段代码在描述什么呀？尤其是CSTR(Month(RS_Counter("DATE"))) <> CSTR(Month(DATE()))函数？
谢谢拉！！！