Converter data/ano 03 para 2003

spynet

Pessoal, tenho um bd que está gravado a data dos pedidos assim: 29/07/03

E para que eu possa gerar o boleto bancár...

spynet

É em ASP.....
e no bd está tudo gravado 29/07/03
Bd access....

Function FormataData(Data)

    D = CStr(Day(Data))

    M = CStr(Month(Data))

    Y = CStr(Year(Data))



    If Len(D) < 2 Then

        D = "0" & D

    End If



    If Len(M) < 2 Then

        M = "0" & M

    End If



    If Len(Y) < 4 Then

        While Len(Y) < 3

            Y = "0" & Y

        Wend



        Y = "2" & Y

    End If



    FormataData = D & "/" & M & "/" & Y

End Function

spynet

É em ASP.....
e no bd está tudo gravado 29/07/03
Bd access....