COMO FORMATAR ESSE CAMPO? PEÇO AJUDA


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: COMO FORMATAR ESSE CAMPO? PEÇO AJUDA

Juan Carlos R.A

MACEIO
AL - BRASIL

ENUNCIADA !

Postada em 07/06/2011 08:54 hs

Srick e Amir fiz um teste com horas: 30:0:0 e deu 30:00:00 com este formato:
Label4.Caption = Format(hours & ":" & minutes & ":" & seconds, "hh:mm:ss")
ja com este outro se perdeu quando é maior que 12
Label4.Caption = Format(hours & ":" & minutes & ":" & seconds, "00:00:00")

Juan Carlos R.A

MACEIO
AL - BRASIL

ENUNCIADA !

Postada em 07/06/2011 08:55 hs

Srick e Amir fiz um teste com horas: 30:0:0 e deu 30:00:00 com este formato:
hours = format(totalhours Mod 24,"00")
minutes = format(totalminutes Mod 60,"00")
seconds = format(totalseconds Mod 60,"00")

Label4.Caption = Format(hours & ":" & minutes & ":" & seconds, "hh:mm:ss")
ja com este outro se perdeu quando é maior que 12
Label4.Caption = Format(hours & ":" & minutes & ":" & seconds, "00:00:00")

TÓPICO EDITADO

SRick

LAVRAS
MG - BRASIL

ENUNCIADA !

Postada em 07/06/2011 11:53 hs

Pessoal obrigado, pelas valiosas dicas, vou testar e depois posto o resultado. Valeu mesmo.

SRick

SRick

LAVRAS
MG - BRASIL

ENUNCIADA !

Postada em 07/06/2011 14:56 hs

Amigos, obrigado, testei as opções e funcionou 100% parabéns para vocês, vocês são feras mesmo. Assim que terminar este programinha vou postar no site pra vocês. Até mais.

SRick.

Juan Carlos R.A

MACEIO
AL - BRASIL

ENUNCIADA !

Postada em 13/06/2011 17:04 hs

olha achei em um forum:
nÃ£o fiz teste mais se interessar ai esta:

' FUNÃ‡ÃƒO PARA RETORNAR O TEMPO DECORRIDO ENTRE DOIS HORARIOS
' EXEMPLO:
' DIFFHORAS("12:15:45","14:17:50")  RESULTADO "02:02:05"
'
' DATA: 17/04/1998
'
'
Function DIFFHORAS(X_HORA_I As Date, X_HORA_F As Date) As Date
   Dim X_HORAS, X_VAR1, X_VAR2 As String
   If X_HORA_I >= X_HORA_F Then
      DIFFHORAS = "00:00:00"
      Exit Function
   End If
   X_VAR1 = Mid(X_HORA_I, 1, 2) + ":00:00"
   X_VAR2 = Mid(X_HORA_F, 1, 2) + ":00:00"
   X_HORAS = Format(DateDiff("h", X_VAR1, X_VAR2), "00") + ":"
   X_VAR1 = "00:" + Mid(X_HORA_I, 4, 2) + ":00"
   X_VAR2 = "00:" + Mid(X_HORA_F, 4, 2) + ":00"
   If X_VAR1 > X_VAR2 Then
      X_VAR1 = "00:" + Mid(X_HORA_I, 4, 2) + ":00"
      X_VAR2 = "01:" + Mid(X_HORA_F, 4, 2) + ":00"
      X_HORAS = Format(Val(Mid(X_HORAS, 1, 2)) - 1, "00") + ":"
   End If
   X_HORAS = X_HORAS + Format(DateDiff("n", X_VAR1, X_VAR2), "00") + ":"
   X_VAR1 = "00:00:" + Mid(X_HORA_I, 7, 2)
   X_VAR2 = "00:00:" + Mid(X_HORA_F, 7, 2)
   If X_VAR1 > X_VAR2 Then
      X_VAR1 = "00:00:" + Mid(X_HORA_I, 7, 2)
      X_VAR2 = "00:01:" + Mid(X_HORA_F, 7, 2)
      X_HORAS = Mid(X_HORAS, 1, 3) + Format(Val(Mid(X_HORAS, 4, 2)) - 1, "00") + ":"
   End If
   DIFFHORAS = X_HORAS + Format(DateDiff("s", X_VAR1, X_VAR2), "00")
End Function

Almir
não registrado

ENUNCIADA !

Postada em 13/06/2011 20:27 hs

É sempre bom,vou verificar.

Página(s): 3/4 « ANTERIOR PRÓXIMA »

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR