Ajuda com data em um condição IF
Boa noite,
Bom pessoal gostaria da ajuda de vocês na seguinte questão:
Tenho um formulario de registro de protocolo, neste formulário tem varios objeto, mais quero me referir a dois:
na tabela o campo data que recebe valor passado pelo objeto - Tdbdateedit - name - dtdate;
natabela regprotocolo que recebe o valor do campo numero registro. Qual a questão, gostaria de quando fosse digitado no [dtdate] uma data <= que 30/04/2011 o [regprotocolo] receba o seguinte valor: regitro+1, sendo que registro é uma variavel do tipo integer;
tipo
if dtdata <= 30/04/2011 then
begin
regprotocolo.as integer := registro(40)+1 o que daria 41
end
else
begin
regprotocolo.as integer := registro(0)+1
end
Gastaria a ajuda de vocês e principalmente se estou no caminho certo
conto com a ajuda de você
e muito obrigado.
Joaci Queiroz
Curtidas 0
Respostas
Rafael Mattos
04/05/2011
não consegui entender o q não ta dando certo?
GOSTEI 0
Joaci Queiroz
04/05/2011
if dtdata <= 30/04/2011 then
begin
regprotocolo.as integer := registro(40)+1 o que daria 41
end
else
begin
regprotocolo.as integer := registro(0)+1
end
Se maior que 30/04/2011 ele passarpara o segundo begins, e não executa o primeiro grupo de comandos.
Não está executando o primeiro grupo de comando mesmo que a data seja menor que 30/04/2011. agradeço ajudas.
Se maior que 30/04/2011 ele passarpara o segundo begins, e não executa o primeiro grupo de comandos.
Não está executando o primeiro grupo de comando mesmo que a data seja menor que 30/04/2011. agradeço ajudas.
GOSTEI 0
Sérgio Saibel
04/05/2011
Qroz
Não entendi muito bem o que voce quer, mas tenta desta forma:
Não entendi muito bem o que voce quer, mas tenta desta forma:
if DateOf(dtdata) <= DateOf(Strtodate('30/04/2011')) then GOSTEI 0
Rafael Mattos
04/05/2011
como vc passa essa data?
faz que nem o Sergio falou
if dtdata <= StrToDate('30/04/2011') then begin regprotocolo.as integer := registro(40)+1 o que daria 41 end else begin regprotocolo.as integer := registro(0)+1 end
agora uma perguta
q tipo é esse de variavel é dtData?
faz que nem o Sergio falou
if dtdata <= StrToDate('30/04/2011') then begin regprotocolo.as integer := registro(40)+1 o que daria 41 end else begin regprotocolo.as integer := registro(0)+1 end
agora uma perguta
q tipo é esse de variavel é dtData?
GOSTEI 0