[Resolvido]Como considerar a data do vencimento da fatura do Cartao de Credito em consultas

Ola pessoal
Gostaria do apoio de voces em relacao a informacao sobre data de vencimento da fatura de cartoes de credito.
O que quero dizer é o seguinte, geralmente a compra é feita em uma data que pode ser diferente da data de vencimento do cartão, sendo assim, NÃO será contabilizada naquele mês aquela compra na fatura.

Eu vou simplificar o modelo com apenas 2 tabelas que se relacionam. Uma contendo a informação sobre a forma de pagamento (Cartões) e a outra sobre a compra (Detalhes do Pedido).
As datas podem ser distintas, pois ambas podem variar (Data da fatura e data do vencimento da nota, etc).

• tblCartoes(IdCartao,DataFechamentoDaFatura, OutrosDetalhesDoCartao)
  tblDetalhesDoPedido(IdPedido,IdFormaDePagamento (IdCartao), DataDeVencimento)
  

Como voces geralmente fazem em situações em que envolvam datas distintas?

Boas...

Sem ter o projeto em mãos, posso supor então !!

Crie uma consulta, com as duas tabelas em questão.

Coloque os seguintes campos:

Da tblCartoes :IdCartao, DataFechamentoDaFatura

Da tblDetalhesDoPedido: IdPedido, IdFormaDePagamento (IdCartao), DataDeVencimento)

Teste e nos informe !

Bons estudos.

Luthius

Se entendi seria assim:

O dia de cada mês não muda

Então irá relacionar as compras efetuadas entre  data de fechamento mês anterior e o próximo e

no dia do fechamento e envia-se a fatura.

Isso será feito logo de manha do dia do fechamento.

As compras efetuadas no dia do fechamento já ficarão para o próximo fechamento.

O meu cartão é assim, não sei os outros.

{ }'s

Balem

Pessoal, talvez minha explicação NAO foi clara, e peço desculpas na minha falta de clareza.
Podemos simular um exemplo de controle de finanças pessoais.

As formas que fazemos nossas compras ou dívidas são diversas. Dinheiro, Cartão, boleto, etc.
Quando formos gerar uma consulta de tudo o que tem para vencer em um período ou mês teremos que considerar uma data como referência. Entretanto, uma compra parcelada no cartão terá a particularidade da data do vencimento da fatura do cartão que pode divergir do dia da compra.
Exemplo se uma compra for efetuada no "melhor dia" do cartão, aquela compra poderá ter ainda mais prazo por conta da data do fechamento da fatura do cartão. Essa data se baseia geralmente na data do vencimento da fatura.

O que quero dizer, uma conta que possui boleto como forma de pagamento, poderia ter associada sua data de compra como referência para os vencimentos. Porém uma compra que foi parcelada no cartão, a data será o vencimento da fatura.
A dúvida é como em uma consulta extrair a relação de despesas a pagar em determinado período considerando essa particularidade da data de fechamento da fatura do cartão.
Espero que tenha esclarecido. Obrigado a todos que estão me ajudando.

Entendi o que queres.

Para isso basta criar uma função (cheia de condicionais rsrs) que verifique se a compra foi no cartão, se sim, dependendo da data compra (se anterior ou posterior a data de fechamento da fatura - ou melhor dia, como você chama), que a função retorne a data de vencimento da fatura.

Estou de saída, se até a noite ninguém desenvolver nada, boto um exemplo aqui.

Função e procedimento utilizado no exemplo

Código:

Public Function fncCalcDataPagamento(ByVal dtDataCompra As Date, ByVal strFormaPagamento As String) As Date

    If strFormaPagamento = "Cartão" Then _
        Call fncRecalcDataCompra(dtDataCompra)
    
    fncCalcDataPagamento = dtDataCompra

End Function

Private Sub fncRecalcDataCompra(ByRef dtDataCompra As Date)

    Dim dtDataVencFatura As Date
    Dim dtDataFechaFatura As Date
    Dim bytCapDataVenc As Byte
    Dim bytCapDiasAntesFecha As Byte
    
    bytCapDataVenc = DLookup("cpVencFatura", "tblParametrosCartao")
    bytCapDiasAntesFecha = DLookup("cpDiasAntesFecha", "tblParametrosCartao")
    
    dtDataVencFatura = DateSerial(Year(dtDataCompra), Month(dtDataCompra), bytCapDataVenc)
    
    If dtDataCompra >= dtDataVencFatura Then _
        dtDataVencFatura = DateAdd("m", 1, dtDataVencFatura)
    
    dtDataFechaFatura = dtDataVencFatura - bytCapDiasAntesFecha
    
    If dtDataCompra < dtDataFechaFatura Then
        dtDataCompra = dtDataVencFatura
    Else
        dtDataCompra = DateAdd("m", 1, dtDataVencFatura)
    End If

End Sub

Muito obrigado a todos que tentaram me ajudar.
DamascenoJr vou adaptar o seu exemplo para minha realidade.
Valeu mesmo

O fórum agradece o retorno. Sucesso.