[Resolvido] nr de dias entre datas

[tiriciasf 0]

Oi Pessoal!!!!!!!!

 

Estou precisando fazer que o nr de dias apareça automatico, entre a data inicial e final, mas nao estou conseguindo.

Se alguém puder me ajudar.

 

Estava fazendo assim

 

 

procedure TFormCadFolga.DBEDITDATA_FINALExit(Sender: TObject);
begin
  DMCADASTRO.TBFOLGANR_DIAS.Value:= DMCADASTRO.TBFOLGADATA_FINAL.value - DMCADASTRO.TBFOLGADATA_INICIAL.value;
end;

Mas dá um erro "Incompatible types: 'Integer' and 'Extended'

[marcio.theis 3]

Você pode usar o comando Round();:

 

procedure TFormCadFolga.DBEDITDATA_FINALExit(Sender: TObject);
begin
DMCADASTRO.TBFOLGANR_DIAS.Value:=Round(DMCADASTRO.TBFOLGADATA_FINAL.value - DMCADASTRO.TBFOLGADATA_INICIAL.value);
end;

 

Ou declarar na uses DateUtils e usar o comando DaysBetween():

 

procedure TFormCadFolga.DBEDITDATA_FINALExit(Sender: TObject);
begin
DMCADASTRO.TBFOLGANR_DIAS.Value:=DaysBetween(DMCADASTRO.TBFOLGADATA_FINAL.value, DMCADASTRO.TBFOLGADATA_INICIAL.value);
end;

Particularmente fico com a segunda opção...

[tiriciasf 0]

Muito Obrigada!!!

 

Valeu mesmo.

[marcio.theis 3]

beleza... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif