USO DO CDATE

AQUILESBRUM 04/07/2011 14:46:08
#378441
Olá pessoal, estou tendo problemas com uma calculadora de horas que desenvolvi. Funciona normalmente até que em certo momento (que ainda não descobri) o resultado por exemplo que antes era exibido como tempo 22:20, passa a ser 31/12/1899 20:20:00.

Private Sub Somar()
If actxtHora.Text = [Ô][Ô] Then
        MsgBox [Ô]Insira uma hora válida[Ô], vbExclamation, [Ô]Calculadora de Horas[Ô]
        actxtHora.Text = [Ô][Ô]
        actxtHora.SetFocus
   Else
        lstLinhaTempo.AddItem actxtHora.Text & [Ô] +[Ô]
        DataInicial = CDate(actxtHora.Text)
        DataFinal = CDate(ResulSoma)
        ResulSoma = (CDate(CDate(DataFinal) + CDate(DataInicial)))
        If ResulSoma >= 0 Then
            lblResultado.Caption = [Ô]+ [Ô] & CDate(ResulSoma)
        Else
            lblResultado.Caption = [Ô]- [Ô] & CDate(ResulSoma)
        End If
   End If
    actxtHora.Text = [Ô][Ô]
    actxtHora.SetFocus
End Sub
ROBIU 04/07/2011 16:37:33
#378453
Qual o objetivo desse código. O que deve retornar? ResulSoma é uma variável? Foi declarada onde e como?
Veja esse tutorial sobre Datas
MARCELO.TREZE 04/07/2011 18:55:52
#378466
só se atente a uma coisa

quando vc efetuar uma soma e ela for superior a 24 horas, então esta soma assumuirá a hora do dia seguinte

ex: se vc somar 03:00:00 a 04/07/2011 23:00:00 automáticamente você terá seguinte o resultado 05/07/2011 02:00:00

explique como funciona seu código e poderemos dar dicas que o ajudarão

qual resultado deseja obter, e de que maneira?
Tópico encerrado , respostas não são mais permitidas
Voltar