MI FERREI... ALGUEM AJUDA?

USUARIO.EXCLUIDOS 09/08/2007 10:35:44
#230156
entao pessoal, estou tentando montar uma formula para subtrair um campo de hora, mas como vcs devem saber existem caso que tem que subtrair ex: 23:55 de 00:00,bom para nós o 00:00 eh maior que 23:55, no entanto como eu tentei, fiz o seguinte, no ex: hj... 08/08/2007 23:55, 09/08/2007 00:00, bom.. fiz a formula com esses dados, no entanto o problema era mais grave do que eu esperava... o sistema que a empresa usa aqui (não feito por min e num tem como pegar o cod FONTE) ele tem um determinado recurso que vc digita a hora e tal, mas... como hora e data vc usa quase o msm sistema de Marcara, ele esta assim...ex: 01/01/0001 23:55 e 01/01/0001 00:00, como esta o msm dia, não tem como subtrair, e tb num tem como definir variavel, pois este campo esta ligado a mais informações na msm formula........................alguem saberia como solucionar issu?????????????????
USUARIO.EXCLUIDOS 09/08/2007 10:41:41
#230158
Tenta assim:

Se não funcionar, poste qual foi o resultado que vc obteu, e como fez o teste.
    Dim HorasIni    As Integer
    Dim HorasFim    As Integer
    Dim MinutosIni  As Integer
    Dim MinutosFim  As Integer
    
    Dim Result As Integer
    
    HorasIni = Hour("23:55")
    HorasFim = Hour("00:00")
    
    If HorasFim < HorasIni Then
        HorasFim = HorasFim + 24
    End If
    
    MinutosIni = Minute("23:55")
    MinutosFim = Minute("00:00")
       
    Result = Abs(((HorasFim * 60) + MinutosFim) - ((HorasIni * 60) + MinutosIni))
    
    MsgBox Result
USUARIO.EXCLUIDOS 09/08/2007 10:47:49
#230160 Resposta escolhida

Bom ..vc pode separá-los, pelo menos pra afzer a conta

DataProposta = "01/01/0001 23:55"

Hora = Format(DataProposta , "HH:MM")
Data = Format(DataProposta , "DD/MM/YYYY")

Assim vc pega a hora e faz a conta...e outra..

considere 0:00 como 24:00...pode ser q funcione....to pensando os casos aki...pra continuar a lógica

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