Postagens
Não informado
Cara, faz assim:
if len(data_adm) < 4 then
data_adm = "0"& data_adm
end if
Depois segue o fluxo normal, ou seja:
mes_adm = Left(data_adm,2)
ano_adm = Right(data_adm, 2)
Assim dará certo, pois a data_adm sempre terá 4 caracteres.
Abs.
