转换为YYYYMMDD形式的日期

'转换为YYYYMMDD形式的日期
function yyyymmdd(riqi)  
    a=year(riqi)  
    if len(a)<4 then a="0"&a  
    b=month(riqi)  
    if len(b)<2 then b="0"&b  
    c=day(riqi)  
    if len(c)<2 then b="0"&c  
    yyyymmdd=a&b&c  
    end function

'/生成订单日期/  
function yyyymmdd()  
    a=year(Now())  
    if len(a)<4 then a="0"&a  
    b=month(Now())  
    if len(b)<2 then b="0"&b  
    c=day(Now())  
    if len(c)<2 then b="0"&c  
    yyyymmdd=a&b&c  
end Function  
'/生成订单时间/  
function hhmmss()  
    h=hour(Now())  
    if len(h)<2 then h="0"&h  
    m=minute(Now())  
    if len(m)<2 then m="0"&m  
    s=second(Now())  
    if len(s)<2 then s="0"&s  
    hhmmss=h&m&s  
end function  
'/生成订单号/  
Function orderid()  
    randomize timer  
    Rnd1=Rnd  
    If Rnd1=0 then Rnd1=1  
    RanCode=Int(989*Rnd1+10)  
    If len(RanCode)=3 then RanCode="0"&RanCode  
    If len(RanCode)=2 then RanCode="00"&RanCode  
    If len(RanCode)=1 then RanCode="000"&RanCode  
    orderid=yyyymmdd&hhmmss&RanCode  
End Function