CONVERTENDO DATAS

GU74 08/09/2009 19:58:20
#322323
Gostaria de saber como faço para diminuirr uma data de um numero de dias ou meses

Exemplo

With cnnComando
.ActiveConnection = cnnAcesso
.CommandType = adCmdText
[ô]deletando os dados de quando for a dataentrada = a data do sistema - 60 dias
.CommandText = [Ô]DELETE FROM Controle WHERE DataEntrada < [ô][Ô] & Date & - 60 [Ô][ô][Ô]
.Execute
[ô]End With

Desta maneira não está dando certo
JWCELYO 08/09/2009 20:22:26
#322326
utilize a expresão - depois do que deseja retirar

exmplo
label.text = 10 - 8
LLAIA 08/09/2009 20:24:47
#322328
veja se dá certo:


With cnnComando
.ActiveConnection = cnnAcesso
.CommandType = adCmdText
[ô]deletando os dados de quando for a dataentrada = a data do sistema - 60 dias
.CommandText = [Ô]DELETE FROM Controle WHERE DataEntrada < Date - 60[Ô]
.Execute
[ô]End With
TECLA 08/09/2009 20:29:50
#322331
O VB6 tem diversas funções internas para tratamento de DATA e HORA.

DateAdd
Dim hoje As Date, semanaQueVem As Date
hoje = Date
semanaQueVem = DateAdd([Ô]d[Ô], 7, hoje)
MsgBox semanaQueVem


  • Para trabalhar com SEMANAS, troque o d por ww ou w.
  • Para trabalhar com MESES, troque o d por m.

    Trabalhando com datas no Visual Basic
    •
    GU74 08/09/2009 20:30:28
    #322332
    LLAIA,

    desta forma não deu certo, tinha tentado várias combinações e uma delas era esta
    MARCELO.TREZE 09/09/2009 15:23:38
    #322416     Resposta escolhida
    tentou assim

    With cnnComando
            .ActiveConnection = cnnAcesso
            .CommandType = adCmdText
            [ô]deletando os dados de quando for a dataentrada = a data do sistema - 60 dias 
            .CommandText = [Ô]DELETE FROM Controle WHERE DataEntrada < [ô][Ô] & DateAdd([Ô]d[Ô], - 60, Date) & [Ô][ô][Ô]
            .Execute
    [ô]End With
    GU74 09/09/2009 16:45:07
    #322424
    Marcelo,

    nõ funcinou nõ, vou cotinuar verificando

    valeu
    Tópico encerrado , respostas não são mais permitidas
    Voltar