vb 中不用datediff函数该怎么计算进入21世纪有多少天的函数表达式