MANIPULAÇÃO DE DATA
16/03/2003
0
[size=18:a59144ff2a][color=red:a59144ff2a]TENHO UM CAMPO DO TIPO [u:a59144ff2a][b:a59144ff2a]DATETIME[/b:a59144ff2a][/u:a59144ff2a] CHAMADO [u:a59144ff2a][b:a59144ff2a]DatadeNasc[/b:a59144ff2a][/u:a59144ff2a] E TENHO TAMBÉM UMA VAIRAVEL DO TIPO INTEGER CHAMADA [u:a59144ff2a][b:a59144ff2a]Mes[/b:a59144ff2a][/u:a59144ff2a]. QUERO QUE ESSA VARIAVEL INTEIRA RECEBA SOMENTE O Nº DO MÊS DA DATA DE NASCIMENTO DO CLIENTE.
EX:
DataNasc = 10/10/1982
mes = 10
ENTENDERAM???
COMO FAÇO ISSO???
SE PUDEREM ME AJUDAR FICAREI GRATO!!!
ABRAÇOS!![/color:a59144ff2a][/size:a59144ff2a]
EX:
DataNasc = 10/10/1982
mes = 10
ENTENDERAM???
COMO FAÇO ISSO???
SE PUDEREM ME AJUDAR FICAREI GRATO!!!
ABRAÇOS!![/color:a59144ff2a][/size:a59144ff2a]
Thales
Curtir tópico
+ 0
Responder
Posts
16/03/2003
Anonymous
[size=18:6f69713689][color=red:6f69713689]TENHO UM CAMPO DO TIPO DATETIME CHAMADO [b:6f69713689][u:6f69713689]DatadeNasc[/b:6f69713689][/u:6f69713689] E TENHO TAMBÉM UMA VAIRAVEL DO TIPO INTEGER CHAMADA [b:6f69713689][u:6f69713689]Mes[/b:6f69713689][/u:6f69713689]. QUERO QUE ESSA VARIAVEL INTEIRA RECEBA SOMENTE O Nº DO MÊS DA DATA DE NASCIMENTO DO CLIENTE.
EX:
DataNasc = 10/10/1982
mes = 10
ENTENDERAM???
COMO FAÇO ISSO???
SE PUDEREM ME AJUDAR FICAREI GRATO!!!
ABRAÇOS!![/color:6f69713689][/size:6f69713689][/b]
EX:
DataNasc = 10/10/1982
mes = 10
ENTENDERAM???
COMO FAÇO ISSO???
SE PUDEREM ME AJUDAR FICAREI GRATO!!!
ABRAÇOS!![/color:6f69713689][/size:6f69713689][/b]
Responder
16/03/2003
Adilsond
Se o que você deseja é que cada vez que for feita a inclusão, no evento beforepost da tabela voce coloca:
procedure ...
var
Dia, Mes, Ano: Word;
begin
DecodeDate(TabelaCampoData.Value,Ano,Mes,Dia);
TabelaCampoMes.Value := Mes;
end;
Se o que desejas é fazer a substituição dos campos que já existem na tabela:
update tabela
set CampoMes = Extract(MONTH FROM CampoData)
where ..... // se existir condição você coloca aqui
Ps: Na sua próxima pergunta, seja mais humilde e coloque o texto com formatação nomal.
procedure ...
var
Dia, Mes, Ano: Word;
begin
DecodeDate(TabelaCampoData.Value,Ano,Mes,Dia);
TabelaCampoMes.Value := Mes;
end;
Se o que desejas é fazer a substituição dos campos que já existem na tabela:
update tabela
set CampoMes = Extract(MONTH FROM CampoData)
where ..... // se existir condição você coloca aqui
Ps: Na sua próxima pergunta, seja mais humilde e coloque o texto com formatação nomal.
Responder
Clique aqui para fazer login e interagir na Comunidade :)