Buscar

Extrai Mês de uma String (dd/mm/yyyy)

Código

//Formato String aceitavel dd/mm/yyyy
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;

   

Publicidade

Vote na dica




Quantidade de votos: 1 voto
Aceitação: 20%


Detalhes da dica

Categoria: Data e hora
Adicionada dia: 11/08/09
Por: Rodrigo Nakandakari
Visualizada: 2525 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009