Estou com erro em uma função q nao sei como resolver
Quando os sao soh minutos tipo 00:30 e resultado nao fica negativo, quando a condição precisar q seja.. é assim
Function ConverteMinutos(minutos,delimitador) Dim hor,hora,min,resultado,inicio,resto,x if delimitador = 3 then resultado = minutos/60 else if Abs(minutos) >= 60 then resto = minutos Mod 60 hor = (minutos-resto)/60 if len(hor) < 2 then hor = "0"&hor end if if resto = 0 then min = "00" resultado = hor & ":" & min else if len(Abs(resto)) < 2 then if resto = "" then min = "00" else min = "0"&Abs(resto) end if else min = Abs(resto) end if If delimitador = "1" then resultado = hor & " horas e " & min & " minutos" else resultado = hor & ":" & min end if end if else if minutos <> "" then min = Abs(minutos) if len(minutos) < 2 then if minutos = "" then min = "00" else min = "0"&Abs(minutos) end if end if If delimitador = "1" then resultado = "0 horas e " & Abs(min) & " minutos" else resultado = "00:" & (min) end if else resultado = "00:00" end if end if end if ConverteMinutos = resultado End Function
entao o problema acontece quando o resultado é "00:" & (min) ai ele nao coloca o negativo na frente
Alguem saberia me dizer o q eu posso fazer p solucionar esse problema?
Agradeço desde Já.
Edição feita por: Renan L. Queiroz, 15/12/2009, 10:48.
Inclusão da tag [ codebox ] para postagem de scripts
