Buscar

Extrair Ano de uma String no formato (dd/mm/yyyy)

Código

//Formato aceitavel da string: dd/mm/yyyy

Function ExtrairAno (Ano : String) : String;
var
 posicao :integer;
 aux : string;
begin
  posicao := (pos('/',Ano));
  aux := Copy(Ano,posicao+4,length(Ano)-posicao);
  result:= aux;
end;


//Duvidas rodrigo@princar.com.br

Publicidade

Vote na dica




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


Detalhes da dica

Categoria: Data e hora
Adicionada dia: 06/06/10
Por: Rodrigo Nakandakari
Visualizada: 2601 vezes

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