Código
Function ExtrairMes (Mes : String) : String;
var
posicao :integer;
aux,resultado : string;
begin
posicao := (pos('/',Mes));
aux := Copy(Mes,posicao+1,length(Mes)-posicao);
if (length(aux))=6 then
Result:= Copy(Mes,posicao+1,1);
if (length(aux))=7 then begin
Resultado:= Copy(Mes,posicao+1,2);
if (StrToInt(Resultado))<=9 then
Result := IntToStr(StrToInt(Resultado)+0)
else
Result := Copy(Mes,posicao+1,2);
end;
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009