Delphi dicas

Função para retornar as três primeiras letras do mês

Função simples que retorna as três primeiras letras do mês



function TFormSCS_SFGERTXT.DescMes(c_mes : string) : string;

begin

        if c_mes = '01' then

        DescMes := 'JAN';

        if c_mes = '02' then

        DescMes := 'FEV';

        if c_mes = '03' then

        DescMes := 'MAR';

        if c_mes = '04' then

        DescMes := 'ABR';

        if c_mes = '05' then

        DescMes := 'MAI';

        if c_mes = '06' then

        DescMes := 'JUN';

        if c_mes = '07' then

        DescMes := 'JUL';

        if c_mes = '08' then

        DescMes := 'AGO';

        if c_mes = '09' then

        DescMes := 'SET';

        if c_mes = '10' then

        DescMes := 'OUT';

        if c_mes = '11' then

        DescMes := 'NOV';

        if c_mes = '12' then

        DescMes := 'DEZ';

end;



Exemplo para utilizar a função:



XX := DescMes(Edit1.Text); onde XX é uma variável previamente declarada