Buscar por:

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

Código

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