Levar somente o mês.
Olá meus amigos.
Estou tentando resolver a seguinte situação: Quero preencher um campo do tipo data (dd/mm/yy) e num outro campo do tipo texto ele armazenar o nome do mês.
Por exemplo: Se preencho ´13/10/83´ - No outro campo ele armazena ´OUTUBRO´.
Espero a ajuda de vcs...
Beijinhos...
Estou tentando resolver a seguinte situação: Quero preencher um campo do tipo data (dd/mm/yy) e num outro campo do tipo texto ele armazenar o nome do mês.
Por exemplo: Se preencho ´13/10/83´ - No outro campo ele armazena ´OUTUBRO´.
Espero a ajuda de vcs...
Beijinhos...
Anjinho Loiro
Curtidas 0
Respostas
Antseralves
13/10/2006
Extraido de um velho programa meu:
type
TyNomeMes = string[9];
TyTabMeses = array[1..12] of TyNomeMes;
var
TabMeses : TyTabMeses = (´JANEIRO´,´FEVEREIRO´,´MARÇO´,´ABRIL´,
´MAIO´,´JUNHO´,´JULHO´,´AGOSTO´,
´SETEMBRO´,´OUTUBRO´,´NOVEMBRO´,´DEZEMBRO´);
Supondo que a data esteja sendo digitada em um DBEdit e o nome do
mês exibido em um TLabel, no evento OnExit do DBEdit teremos:
procedure TForm1.DBEdit1Exit(Sender: TObject);
begin
try
Label1.Caption := TabMeses[MonthOf(StrToDate(DBEdit1.Text))];
except
Label1.Caption := ´´;
ShowMessage(´Data Inválida´);
end;
end;
OBS : Tem que dá USES na unit DateUtils.
type
TyNomeMes = string[9];
TyTabMeses = array[1..12] of TyNomeMes;
var
TabMeses : TyTabMeses = (´JANEIRO´,´FEVEREIRO´,´MARÇO´,´ABRIL´,
´MAIO´,´JUNHO´,´JULHO´,´AGOSTO´,
´SETEMBRO´,´OUTUBRO´,´NOVEMBRO´,´DEZEMBRO´);
Supondo que a data esteja sendo digitada em um DBEdit e o nome do
mês exibido em um TLabel, no evento OnExit do DBEdit teremos:
procedure TForm1.DBEdit1Exit(Sender: TObject);
begin
try
Label1.Caption := TabMeses[MonthOf(StrToDate(DBEdit1.Text))];
except
Label1.Caption := ´´;
ShowMessage(´Data Inválida´);
end;
end;
OBS : Tem que dá USES na unit DateUtils.
GOSTEI 0
Cabreu.jr
13/10/2006
tente fazer o seguinte:
campodotipostring := formatdatetime(´mmmm´,campodotipodate);
campodotipostring := formatdatetime(´mmmm´,campodotipodate);
GOSTEI 0