[Resolvido]Calculo de Data

Boa Tarde
Por favor preciso de ajuda para efetuar um calculo de data :
Duvidas: Se confirmado uma data do contrato segue prazo de entrega mediante contrato; se contrato x tem 15 dias de entrega, se contrato y tem 10 dias de entrega.
Como faço este calculo para dar a data correta de entrega; onde irei calcular atrasos e multas. Dentro do formulário do Access.
No aguardo,
Obrigado pela atenção.

Boa tarde,

Supondo que vai salvar esses dados em uma tabela, certifique-se que o campo correspondente seja do tipo Data/Hora.

Com isso, basta somar o valor do campo que tem a data do contrato (txtDataContrato) com o campo que tem a quantidade de dias (txtQntDias) e colocá-lo no campo correspondente (txtDataEntrega):

txtDataEntrega = txtDataContrato + txtQntDias.

Para calcular multa e atrasos de uma olhada nas minhas respostas no topico abaixo:

https://www.maximoaccess.com/t28999-resolvidocalcular-parcelas-atrasadas

Abraço.

Olá Marina,
Ja usou a busca aqui do fórum?
Acho que com as funções nativas DateDiff e DateAdd, consegue resolver.

Se o cliente x tem definido 10 dias prazo.
Se a encomenda saiu a 01-02-2017 e chegou ao destino a 20-02-2017, entao calculamos o número de dias.
NrDias = datediff("d",dataSaida, dataEntrega)
Depois será compara o resultado com o nr de dias do prazo estabelecido.

If NrDias > NrDiasEstabelecidos then
Msgbox "fora do parazo - " & NrDiasEstabelecidos - NrDias &" dia(s)"
Endif

Não testado, foi no celular.
Abraço

Amigo Cassio, respondemos os dois (melhor)
Ficamos aguardar retorno da Marina.
Abraço

Pelo que e informou tenho de mudar no formulário Empenho; pois coloquei como caixa de combinação (Licitações), tenho então de fazer separado para obter o calculo, pois é se escolher ATA apos a data confirmação do cliente começa a correr o prazo de entrega de 15 dias, se escolher Pregão o prazo é de 10 dias e tem mais 3 opções. Como devo proceder nestes casos para fazer o calculo exato dos dias para entrega firmado em contrato.
Aproveitando e abusando de voces que são mestres, tentei colocar em ordem as numerações das tabelas, pois estava em testes e não consegui fazer, pois quando tirou os relacionamentos não consigo colocar novamente como estavam, só que não posso perder mais as informações que incluir, como fazer sem causar prejuizo no banco de dados.
No aguardo
Atenciosamente.
Marina

Olá Marina, assim já deu para compreender um pouco melhor.

Então, se o prazo altera em função das "Licitações", sou da opinião de criar a tabela tbl_licitacoes
Em que tem os campos:
 IDlicitacao
 NomeLicitacao
 DiasPrazo

Assim ao selecionar o nome, já sabemos qual o prazo establecido.
Outra vantagem, pode ser necessario adicionar mais um "tipo" e será só acrescentar à tabela, funcionará direitinho.

Abraço

Boa tarde,

Eu até estava montando uma pequena função para o calculo dos dias, mas acredito que a ideia do ahteixeira seja realmente melhor, ainda mais se considerando a possibilidade de adição ou subtração de tipos.

Então basta montar a tabela conforme ele disse e colocar a fonte de dados da combo nessa tabela, e no evento Ao Alterar, atribuir a campo PrazoEntrega o valor da data somado à coluna correspondente aos dias de prazo. Ficaria algo como:

Código:

Private Sub Licitações_AfterUpdate()
    PrazoEntrega = DatadoConfirmado + Licitações.Column(2)
End Sub

Onde Column(2) é a coluna que está a quantidade de dias, seguindo o modelo do ahteixeira.

Uma outra observação é evitar ao máximo colocar caracteres especiais em nomes de controles e também é comum se utilizar um prefixo que especifica qual o tipo de controle, ajuda na hora de programar: ao invés de Licitações, coloque cbxLicitacoes, por exemplo.

Abraço.

Obrigado, vou fazer como explicou, quer dizer vou ver se consigo, não sou profissional sou uma curiosas que gosta de desafios e melhorar meu trabalho, qualquer coisa, volto para tirar duvidas, no momento, muito obrigado pela atenção.
Atenciosamente
Marina

Olá a todos,
Marina, não é mas com o MaximoAccess, vai ser!
Qualquer coisa estamos cá.
Abraço

Bom dia,

Também não se esqueça de marcar o tópico como resolvido se a duvida foi sanada.

Abraço.

Boa Noite.
Tentei fazer o que explicou, mas não consegui, pois quando coloco, fiz a tabela Licitação e troquei a forma de relacionamento, na Tabela Empenho, ao fazer o relacionamento ele diz que vou perder os registro e não aceita, fiz assim mesmo perdi todos os dados pelo formulário Empenho, fiz o calculo e deu erro. Desculpas não ter respondido mais rápido, (trabalhando muito), hoje foi que pudi dar uma olhada. Não entendi o que voces postaram anterior.
Obrigado por tudo.
Atenciosamente
Marina

Olá Marina,
Antes de se fazer qualquer alteração, deve-se fazer sempre.um backup.
Poste novemente o que tem feito.
Descreva em que formulario, ao escolher o campo ??? deveria colocar o valor que está em ??? no campo yyt.
Resumindo detalhe que cá estamos para ajudar.
Hoje estou no celular, mas pode ter mais alguém que possa ajudar.
Abraço

Obrigado pela dica, fiz backup. Vou continuar tentando, e expondo na hora o que acontece. pedindo orientação, mas só consigo á noite ou final de semana. Espero que voces não desista de me ajudar.
Sem Mais
Um abraço.

Boa Tarde
Obrigado a todos pela ajuda.
Consegui fazer o calculo, a ideia do CassioFebre, foi a que eu usei, e não perdi nada, tentei todos, mais o que ficou melhor foi a ideia dele, mas todos foram uteis e muito importante.
Bom Carnaval.
Até a próxima.
Um abraço

Olá a todos,
Marina, obrigado pelo retorno.
Os utilizadores do fórum agradecem.