USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Somar Datas
Aginaldo
JUIZ DE FORA
MG - BRASIL
Postada em 08/08/2006 13:08 hs            
Boa Tarde Senhores!!!!
 
Gostaria de Saber como faço para somar dias em uma data
 
Por exemplo: Quero somar dois dias em 01/01/2006
 
Att: Aginaldo
     
Daniel
Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 08/08/2006 13:12 hs            
dt="01/01/2006"
dt=cdate(dt)+2
 

dsmn
     
José Neves
não registrado
Postada em 08/08/2006 16:54 hs   
Daniel, tentei fazer um calculo aqui com essa dica que vc deu, e nao deu certo, vou colocar aqui oq fiz:

    Dim dt As Date
    Dim dtfinal As Date
    dt = mskdata_em.Text
    dtfinal = CDate(dt) + 180
    Tcliente!lib_valida = dtfinal

oq acontece, faço um cadastro, onde vc coloca a data de cadastro, na tabela onde gravo todos os dados tenho um campo onde deve gravar a validade daquele cadastro, que é de 6 meses (180 dias) fiz dessa maneira ai em cima, a data de cadastro é 04/08/2006, e ele gravou pra mim no meu banco a validade 31/01/2007, pq será?

 

abraço

 
     
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 08/08/2006 17:11 hs            
tá certo... 04/08/2006 + 180 dias pára em 31/1/2007
     
José Neves
não registrado
Postada em 08/08/2006 17:15 hs   
Entao eu devo tá fazendo confusão, o certo são 6 meses, q na realidade daria dia 04/02/2006, mas 180 dias são 6 meses nao sao?!!?
Talvez pra fazer esses calculos é diferente, como faço entao?!!?
 
abraço
     
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 08/08/2006 17:20 hs            
Dim dt As Date
Dim dtfinal As Date
dt = mskdata_em.Text
dtfinal = DateAdd("m", 6, dt)
Tcliente!lib_valida = dtfinal
 
at+ :)
TÓPICO EDITADO
   
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página