Tem como validar somente MES/ANO obs.: não pode ter dia
Alguém tem idéia de como faço isso?
Como faço pra [b:6536e9118f]validar somente MES/ANO[/b:6536e9118f] obs.: [b:6536e9118f]não pode ter dia.[/b:6536e9118f]
Muito obrigado
Alex_ :)
Como faço pra [b:6536e9118f]validar somente MES/ANO[/b:6536e9118f] obs.: [b:6536e9118f]não pode ter dia.[/b:6536e9118f]
Muito obrigado
Alex_ :)
Alex_
Curtidas 0
Respostas
Josemarlourenco
04/06/2003
Se for uma string do tipo ´MM/AAAA´, pode fazer o seguinte:
Funciton valida(MesAno: String): Boolean;
var Mes, Ano: Integer;
Begin
Mes := StrToInt(copy(MesAno, 1, 2));
Ano := StrToInt(copy(MesAno, 4, 4));
Result := (Mes >= 1) and (Mes <= 12) and Ano >= 2000
End;
Funciton valida(MesAno: String): Boolean;
var Mes, Ano: Integer;
Begin
Mes := StrToInt(copy(MesAno, 1, 2));
Ano := StrToInt(copy(MesAno, 4, 4));
Result := (Mes >= 1) and (Mes <= 12) and Ano >= 2000
End;
GOSTEI 0