data de admissao
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
Curtidas 0
Respostas
Motta
12/11/2003
if FormatDateTime(´yyyymm´,date) =
FormatDateTime(´yyyymm´,tbfunctempo.asdatetime) then
FormatDateTime(´yyyymm´,tbfunctempo.asdatetime) then
GOSTEI 0
Fama
12/11/2003
if FormatDateTime(´yyyymm´,date) =
FormatDateTime(´yyyymm´,tbfunctempo.asdatetime) then
_________________
_______
não deu certo
FormatDateTime(´yyyymm´,tbfunctempo.asdatetime) then
_________________
_______
não deu certo
GOSTEI 0
Fred
12/11/2003
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)
GOSTEI 0