Fórum data de admissao #194495
12/11/2003
0
if (tbfunctempo.Value <= 4)and (tbfuncstatuslook.Value <> ´P´)and (tbfuncstatuslook.Value <> ´I´) THEN
begin
tbfuncadicional.Value := 100 else
gostaria de incluir no comando if a data de admissao, por exemplo se o mes em que foi admitido nao fosse igual ao corrente mes tbfuncadicional.value não seria cem e sim 0,00
begin
tbfuncadicional.Value := 100 else
gostaria de incluir no comando if a data de admissao, por exemplo se o mes em que foi admitido nao fosse igual ao corrente mes tbfuncadicional.value não seria cem e sim 0,00
Fama
Curtir tópico
+ 0
Responder
Posts
12/11/2003
Motta
if FormatDateTime(´yyyymm´,date) =
FormatDateTime(´yyyymm´,tbfunctempo.asdatetime) then
FormatDateTime(´yyyymm´,tbfunctempo.asdatetime) then
Responder
Gostei + 0
13/11/2003
Fama
if FormatDateTime(´yyyymm´,date) =
FormatDateTime(´yyyymm´,tbfunctempo.asdatetime) then
_________________
_______
não deu certo
FormatDateTime(´yyyymm´,tbfunctempo.asdatetime) then
_________________
_______
não deu certo
Responder
Gostei + 0
13/11/2003
Fred
Use a função DecodeDate
var a,a1,m,m1,d,d1 : integer; a=ano, m=mes, d=dia
decodedate(date,a,m,d);//data atual
decodedate(dataadmissao,a1,m1,d1); data de admissao
depois compare
if m <> d1 then
... 8)
var a,a1,m,m1,d,d1 : integer; a=ano, m=mes, d=dia
decodedate(date,a,m,d);//data atual
decodedate(dataadmissao,a1,m1,d1); data de admissao
depois compare
if m <> d1 then
... 8)
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)