MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

    [Resolvido]Multiplicar uma data inicial por um numero inteiro e mostrar a data final

    L34NDR0
    L34NDR0
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 353
    Registrado : 29/03/2011

    [Resolvido]Multiplicar uma data inicial por um numero inteiro e mostrar a data final Empty [Resolvido]Multiplicar uma data inicial por um numero inteiro e mostrar a data final

    Mensagem  L34NDR0 20/6/2014, 14:26

    Bom dia pessoal,

    o que preciso é o seguinte:

    ao informar uma data inicial e um número de parcelas de um valor qualquer, que seja criado uma data final de acordo com o número de parcelas.

    Ex:

    data inicial: 20/06/2014
    Nº de parcelas: 3
    data final(valor calculado): 20/09/2014

    estou tentando com o código abaixo no evento "após atualizar" o campo datainicial mas dá uma data maluca...


    Me.DataFinal.Value = Me.DataInicial.Value * Me.NumParcelas

    um abraço

    Leandro
    mathusalmeida
    mathusalmeida
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 263
    Registrado : 30/08/2011

    [Resolvido]Multiplicar uma data inicial por um numero inteiro e mostrar a data final Empty Re: [Resolvido]Multiplicar uma data inicial por um numero inteiro e mostrar a data final

    Mensagem  mathusalmeida 20/6/2014, 14:43

    Bom dia colega, tente adaptar:
    Código:
    Dim StrDateAdd As Date
    StrDateAdd = DateAdd("m", 1, Me.DtCompraPrazo) ' 1 acrescenta o próximo mês
    Me.DtVencimentoNota.Value = StrDateAdd

    Espero que dê certo!
    L34NDR0
    L34NDR0
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 353
    Registrado : 29/03/2011

    [Resolvido]Multiplicar uma data inicial por um numero inteiro e mostrar a data final Empty Re: [Resolvido]Multiplicar uma data inicial por um numero inteiro e mostrar a data final

    Mensagem  L34NDR0 20/6/2014, 14:54

    eeeeeeeeeee!!!!!!

    Mathusalmeida, adaptei e funcionou. o teu código como estava incrementava apenas um mês...

    Private Sub NumParcelas_AfterUpdate()
    Dim StrDateAdd As Date

    Me.VlrParcela.Value = Me.Valor.Value / Me.NumParcelas.Value
    StrDateAdd = DateAdd("m", Me.NumParcelas.Value, Me.DataInicial) ' 1 acrescenta o próximo mês

    Me.DataFinal.Value = StrDateAdd

    End Sub


    valeu mesmo!!!!! um abraço mathus!

    mathusalmeida
    mathusalmeida
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 263
    Registrado : 30/08/2011

    [Resolvido]Multiplicar uma data inicial por um numero inteiro e mostrar a data final Empty Re: [Resolvido]Multiplicar uma data inicial por um numero inteiro e mostrar a data final

    Mensagem  mathusalmeida 20/6/2014, 18:56

    Que bom que você conseguiu adaptar. Muitas vezes achamos a solução totalmente pronta e não precisamos pensar. Isto não é bom pois não crescemos em conhecimento.

    Parabéns pela adaptação.

    O fórum agradece o retorno.

    Sucesso!

      Data/hora atual: 6/10/2022, 08:50