Calcular Diferença Entre Datas - Dias360

Olá...

Vou te apresentar 2 opções:
Vou consider a data da emissão como data de origem, se for outra troque

1- Se for calcular em uma consulta, então acrescente 2 campos
No primeiro define o ultimo dia do mes
Cole: UltimoDiaMes: DataSerial(Ano([DataDaEmissao]);Mês([DataDaEmissao])+1;0)

No segundo define que qualquer data assuma o dia 30 do mes
Cole: DataAtual: SeImed(Dia([UltimoDiaMes])<>30;30 & "/" & Mês([DataDaEmissao]) & "/" & Ano([DatadaEmissao]);([UltimoDiaMes]))

2- Se for calcular em formulário, também acrescente 2 campos não acoplado
No primeiro defina o nome como dtDataAtual e formato Data abreviada
No Segundo defina o nome como dtUltimoDiaMes e na fonte de controle
Cole: =DataSerial(Ano([dtDataDaEmissao]);Mês([dtDataDaEmissao])+1;0)

No evento ao alterar de seu campo data da emissão cole:

Private Sub dtDataDaEmissao_AfterUpdate()
If (Day(dtUltimoDiaMes) <> 30) Then
Me.dtDataAtual = 30 & "/" & Month(dtDataDaEmissao) & "/" & Year(dtDataDaEmissao)
Else
Me.dtDataAtual = Me.dtUltimoDiaMes
End If

End Sub

Nos dois casos independente se mes tem 28,29,31 dias no campo data atual será sempre dia 30, então use este campo para efetuar o calculo da diferença de datas

Espero que ajude

abraços

Olá...

Conseguiu resolver?

Aguardo

Abraços

Celso, obrigado pelo envio.

Estou atuando em um projeto paralelo atualmente, mas vou verificar pois o outro ficou parado justamente neste ponto.

Retorno em breve, agradeço pela ajuda.

Att.

Alan

Olá...
Feliz 2017

Como anda este tópico?

Aguardo
Abraços

Olá..

Conseguiu resolver esta sua solicitação de ajuda?

Os membros do Fórum merece o seu retorno

Abraços