Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

programadorvb6

Formatar Hora

Mensagens Recomendadas

programadorvb6
Olá pessoal.

A função deste código é formatar as horas á medida que se vai escrevendo.

O problema que me deparei, quando escrevi 21:58 e quis apagar o 2 subtituindo por 1, o cursor ia para a posição final retirando o 1º valor e o último , ficando assim : 1:5

Depois de muito tentar optimizar o código ficou assim :

Nota : Está um pouco confuso.. ; mas está funcional (espero eu), derivado a não ter um método de programador.

horas.png

[glow=red,2,300]No Form :[/glow]

------------------------------------------------

Criem 2 (duas) caixas de Texto.

- TxtHora

- Text1

------------------------------------------------

Um botão com o nome : Command1

No Caption colocam : Activo

------------------------------------------------

2(dois) Labels

Nomes :

- BSpaceX ; c/ Caption nome : On

- SoQAltera ; c/ Caption : On

------------------------------------------------

Deixo-vos aqui o código :

No form :

'---------------------------------------------------------------------------------------
' Data      : 07-03-2010
' Hora      : 18:24
' Autor     : Morpheus.
' Empresa   : VSoft,Lda.
' Form      : Form1
' Descrição : Programa exemplo para validar hora em Real-Time.
'---------------------------------------------------------------------------------------

Option Explicit
Private bDozeHoras As Boolean
Private bComSegundos As Boolean

Private Sub Command1_Click()
    If SoQAltera.Caption = "Off" Then
        SoQAltera.Caption = "On"
        Command1.Caption = "Activa"
        TxtHora.SetFocus
        Exit Sub
    End If
    If SoQAltera.Caption = "On" Then
        SoQAltera.Caption = "Off"
        Command1.Caption = "Desactiva"
        TxtHora.SetFocus
        Exit Sub
    End If
End Sub


Private Sub Text1_Change()
    Dim ccX1 As Integer
    Dim DigitarX1 As Currency
    
    With Text1
        DigitarX1 = Len(.Text)
        ccX1 = .SelStart
        
        If BSpaceX.Caption = "On" Then 'movimenta campos :2_:56
    End If
    If ccX1 = 1 Then
        If Observar(Text1) >= 3 And Len(.Text) <= 1 Then
            .Text = ""
        Else
            If Len(.Text) > 1 And Observar(Text1) >= 3 Then
                .Text = Right(.Text, Len(.Text) - 1)
                .SelStart = 0
            End If
        End If
    End If
    If ccX1 = 2 Then
        If ccX1 = 2 And Left(.Text, 1) = ":" Then
            .Text = Left(.Text, 2)
            .SelStart = 2
            Exit Sub
        End If
        If Mid(.Text, 1, 1) > 1 And Mid(.Text, 1, 2) > 24 Then
            If Len(.Text) <= 2 Then
                .Text = Mid(.Text, 1, 1)
                .SelStart = 1
            End If
            If Len(.Text) > 2 Then
                If ccX1 = 2 And Left(.Text, 1) = ":" Then
                    .Text = Left(.Text, 2)
                    .SelStart = 2
                End If
                .Text = Left(.Text, 1) & Right(.Text, Len(.Text) - 2)
                .SelStart = 1
            End If
        End If
    End If
    '================= Corrigir 4 posição =========
    If ccX1 = 4 Then
        If Mid(.Text, 1, 2) = 24 And Mid(.Text, 4, 2) >= 1 Then
            .Text = Left(.Text, 2)
            .SelStart = 3
        End If
        If Mid(.Text, 1, 1) >= 1 And Mid(.Text, 3, 2) > 59 Then
            If Len(.Text) <= 3 Then
                .Text = Left(.Text, 3)
                .SelStart = 4
            End If
            If Mid(.Text, 1, 1) = ":" And Len(.Text) = 4 Then
                If Right(.Text, 1) >= 6 Then
                    .Text = Left(.Text, 2)
                    .SelStart = 1
                    Exit Sub
                End If
                If Right(.Text, 1) <= 5 Then
                    .Text = Left(.Text, 1) & Right(.Text, 1) & Mid(.Text, 2, 1)
                    .SelStart = 3
                    Exit Sub
                End If
            End If
            If Len(.Text) > 3 And Observar(Text1) >= 6 Then
                If Right(.Text, 1) <> Empty And Len(.Text) = 4 Then
                    .Text = Left(.Text, 3)
                End If
                If Right(.Text, 1) <> Empty And Len(.Text) = 5 Then
                    If Mid(.Text, 4, 1) >= 6 Then
                        .Text = Left(.Text, 3) & Right(.Text, 1)
                    End If
                End If
                .SelStart = 3
            End If
        End If
    End If
    '==============================================
    If BSpaceX.Caption = "Off" Then
        If VerSeparacao(Text1) = False And Len(.Text) > 2 Then
            .Text = Left(.Text, ccX1) & ":" & Right(.Text, Len(.Text) - ccX1)
            If ccX1 - 1 <> 0 Then
                .SelStart = ccX1
            End If
            If ccX1 = 0 Then
                .SelStart = 0
            End If
            
            Exit Sub
        End If
        If ccX1 = 1 Then
            If Mid(.Text, 1, 1) > 1 And Mid(.Text, 1, 2) > 24 Then
                If Len(.Text) <= 2 And Observar(Text1) <> 0 Then
                    .Text = Mid(.Text, 1, 1)
                    .SelStart = 1
                End If
                If Len(.Text) > 2 And Observar(Text1) > 4 Then
                    .Text = Left(.Text, 1) & Right(.Text, Len(.Text) - 1)
                    .SelStart = 1
                End If
            End If
            If .Text = ":" Then
                .Text = ""
            End If
        End If
        If ccX1 = 2 Then
            If Mid(.Text, 1, 1) > 1 And Mid(.Text, 1, 2) > 24 Then
                
                If Len(.Text) <= 2 Then
                    .Text = Mid(.Text, 1, 1)
                    .SelStart = 1
                End If
                If Len(.Text) > 2 And Observar(Text1) > 4 Then
                    .Text = Left(.Text, 1) & Right(.Text, Len(.Text) - 2)
                    .SelStart = 1
                End If
            End If
        End If
        If ccX1 = 1 Then
            If Len(.Text) = 4 Then
                .Text = Mid(.Text, 1, 4)
                .SelStart = 1
                Exit Sub
            End If
            .SelStart = 1
        End If
        If ccX1 = 3 And Observar(Text1) = 0 Then
            
            If Right(.Text, 1) = ":" Then
                .Text = Left(.Text, Len(.Text) - 1)
                .SelStart = 2
            End If
            
        End If
        If ccX1 = 0 Then
            If .Text = ":" Then
                .Text = ""
                .SelStart = 0
            End If
            .SelStart = 0
        End If
        
        '================= Corrigir 4 posição =========
        If ccX1 = 4 Then
            If Mid(.Text, 1, 2) = 24 And Mid(.Text, 4, 2) >= 1 Then
                .Text = Left(.Text, 2)
                .SelStart = 3
            End If
            
            If Mid(.Text, 1, 1) > 1 And Mid(.Text, 3, 2) > 59 Then
                If Len(.Text) <= 3 Then
                    .Text = Left(.Text, 3)
                    .SelStart = 4
                End If
                If Len(.Text) > 3 And Observar(Text1) >= 6 Then
                    .Text = Left(.Text, 2) & Right(.Text, 1)
                    .SelStart = 4
                End If
            End If
        End If
        '==============================================
        BSpaceX.Caption = "On"
    End If
    Me.Caption = Len(.Text)
End With
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
    
    If KeyAscii = 13 Or KeyAscii = 8 Then
        If KeyAscii = 8 Then
            BSpaceX.Caption = "Off"
        End If
        
        If KeyAscii <> 8 Then
            BSpaceX.Caption = "On"
            If ValidarHoras(Text1) = False Then
                If SoQAltera.Caption = "Off" And Text1.Text = Empty Then
                    Text1.SetFocus
                Else
                    MsgBox "Hora de saida inválida!"
                    Text1.SetFocus
                    Exit Sub
                End If
            End If
        End If
        If ValidarHoras(Text1) = True Then
            If KeyAscii <> 8 Then
                If Len(Text1.Text) = 5 Then
                    KeyAscii = 0
                    Text1.SetFocus
                    Exit Sub
                End If
                If Len(Text1.Text) = 0 Then
                    KeyAscii = 0
                    Text1.SetFocus
                    Exit Sub
                End If
                
                Exit Sub
            End If
        End If
    Else
        If Not IsNumeric(Chr(KeyAscii)) Then
            KeyAscii = 0
        Else
            If Len(Text1.Text) = 2 And BSpaceX.Caption = "On" Then
                Text1.Text = Text1.Text & ":"
                Text1.SelStart = Len(Text1.Text)
            End If
            If bComSegundos Then
                If Len(Text1.Text) = 5 Then Text1.Text = Text1.Text & ":": Text1.SelStart = Len(Text1.Text)
            End If
            
        End If
    End If
    
End Sub

Private Sub txthora_Change()
    Dim ccX As Integer
    Dim DigitarX As Currency
    
    With TxtHora
        DigitarX = Len(.Text)
        ccX = .SelStart
        
        If BSpaceX.Caption = "On" Then 'movimenta campos :2_:56
    End If
    If ccX = 1 Then
        If Observar(TxtHora) >= 3 And Len(.Text) <= 1 Then
            .Text = ""
        Else
            If Len(.Text) > 1 And Observar(TxtHora) >= 3 Then
                .Text = Right(.Text, Len(.Text) - 1)
                .SelStart = 0
            End If
        End If
    End If
    
    If ccX = 2 Then
        If ccX = 2 And Left(.Text, 1) = ":" Then
            .Text = Left(.Text, 2)
            .SelStart = 2
            Exit Sub
        End If
        
        If Mid(.Text, 1, 1) > 1 And Mid(.Text, 1, 2) > 24 Then
            If Len(.Text) <= 2 Then
                .Text = Mid(.Text, 1, 1)
                .SelStart = 1
            End If
            If Len(.Text) > 2 Then
                If ccX = 2 And Left(.Text, 1) = ":" Then
                    .Text = Left(.Text, 2)
                    .SelStart = 2
                End If
                .Text = Left(.Text, 1) & Right(.Text, Len(.Text) - 2)
                .SelStart = 1
            End If
        End If
    End If
    '================= Corrigir 4 posição =========
    If ccX = 4 Then
        If Mid(.Text, 1, 2) = 24 And Mid(.Text, 4, 2) >= 1 Then
            .Text = Left(.Text, 2)
            .SelStart = 3
        End If
        If Mid(.Text, 1, 1) >= 1 And Mid(.Text, 3, 2) > 59 Then
            If Len(.Text) <= 3 Then
                .Text = Left(.Text, 3)
                .SelStart = 4
            End If
            If Mid(.Text, 1, 1) = ":" And Len(.Text) = 4 Then
                If Right(.Text, 1) >= 6 Then
                    .Text = Left(.Text, 2)
                    .SelStart = 1
                    Exit Sub
                End If
                If Right(.Text, 1) <= 5 Then
                    .Text = Left(.Text, 1) & Right(.Text, 1) & Mid(.Text, 2, 1)
                    .SelStart = 3
                    Exit Sub
                End If
            End If
            
            If Len(.Text) > 3 And Observar(TxtHora) >= 6 Then
                
                If Right(.Text, 1) <> Empty And Len(.Text) = 4 Then
                    .Text = Left(.Text, 3)
                End If
                If Right(.Text, 1) <> Empty And Len(.Text) = 5 Then
                    If Mid(.Text, 4, 1) >= 6 Then
                        .Text = Left(.Text, 3) & Right(.Text, 1)
                    End If
                End If
                .SelStart = 3
            End If
        End If
    End If
    
    '==============================================
    
    If BSpaceX.Caption = "Off" Then
        If VerSeparacao(TxtHora) = False And Len(.Text) > 2 Then
            .Text = Left(.Text, ccX) & ":" & Right(.Text, Len(.Text) - ccX)
            If ccX - 1 <> 0 Then
                .SelStart = ccX
            End If
            If ccX = 0 Then
                .SelStart = 0
            End If
            
            Exit Sub
        End If
        
        If ccX = 1 Then
            If Mid(.Text, 1, 1) > 1 And Mid(.Text, 1, 2) > 24 Then
                If Len(.Text) <= 2 And Observar(TxtHora) <> 0 Then
                    .Text = Mid(.Text, 1, 1)
                    .SelStart = 1
                End If
                If Len(.Text) > 2 And Observar(TxtHora) > 4 Then
                    .Text = Left(.Text, 1) & Right(.Text, Len(.Text) - 1)
                    .SelStart = 1
                End If
            End If
            If .Text = ":" Then
                .Text = ""
            End If
        End If
        If ccX = 2 Then
            If Mid(.Text, 1, 1) > 1 And Mid(.Text, 1, 2) > 24 Then
                
                If Len(.Text) <= 2 Then
                    .Text = Mid(.Text, 1, 1)
                    .SelStart = 1
                End If
                If Len(.Text) > 2 And Observar(TxtHora) > 4 Then
                    .Text = Left(.Text, 1) & Right(.Text, Len(.Text) - 2)
                    .SelStart = 1
                End If
            End If
        End If
        
        If ccX = 1 Then
            If Len(.Text) = 4 Then
                .Text = Mid(.Text, 1, 4)
                .SelStart = 1
                Exit Sub
            End If
            .SelStart = 1
        End If
        If ccX = 3 And Observar(TxtHora) = 0 Then
            
            If Right(.Text, 1) = ":" Then
                .Text = Left(.Text, Len(.Text) - 1)
                .SelStart = 2
            End If
            
        End If
        
        If ccX = 0 Then
            If .Text = ":" Then
                .Text = ""
                .SelStart = 0
            End If
            .SelStart = 0
        End If
        
        '================= Corrigir 4 posição =========
        If ccX = 4 Then
            If Mid(.Text, 1, 2) = 24 And Mid(.Text, 4, 2) >= 1 Then
                .Text = Left(.Text, 2)
                .SelStart = 3
            End If
            
            If Mid(.Text, 1, 1) > 1 And Mid(.Text, 3, 2) > 59 Then
                If Len(.Text) <= 3 Then
                    .Text = Left(.Text, 3)
                    .SelStart = 4
                End If
                If Len(.Text) > 3 And Observar(TxtHora) >= 6 Then
                    .Text = Left(.Text, 2) & Right(.Text, 1)
                    .SelStart = 4
                End If
            End If
        End If
        '==============================================
        BSpaceX.Caption = "On"
    End If
    Me.Caption = Len(.Text)
End With
End Sub
Private Sub txthora_GotFocus()
    Text1.BackColor = &H80000005
    TxtHora.BackColor = &HFFE4CE
    Dim Caixa As String
    
    'Considera valores = empty quando o utilizador deseja alterar dados.
    If SoQAltera.Caption = "Off" Then
        If ValidarHoras(Text1) = False Then
            If Text1.Text = "" Or Text1.Text = " " Then
                TxtHora.BackColor = &HFFE4CE
                Text1.BackColor = &H80000005
                TxtHora.SetFocus
                Exit Sub
            End If
            MsgBox "Hora de saida inválida!"
            Text1.SetFocus
            Exit Sub
        End If
        If ValidarHoras(Text1) = True Then
            Caixa = Replace(Right(Text1.Text, 2), ":", "")
            If Val(Caixa) <= 9 And Left(Right(Text1.Text, 2), 1) = ":" Then
                Text1.Text = Left(Text1.Text, 3) & "0" & Caixa
            End If
            
            TxtHora.BackColor = &HFFE4CE
            Text1.BackColor = &H80000005
            TxtHora.SetFocus
            Exit Sub
        End If
        'Para o Text1
        '--------------------------------------------------------------------------
        If ValidarHoras(Text1) = False Then
            If Text1.Text = "" Or Text1.Text = " " Then
                Text1.BackColor = &HFFE4CE
                Text1.BackColor = &H80000005
                Text1.SetFocus
                Exit Sub
            End If
            MsgBox "Hora de saída inválida!"
            Text1.SetFocus
            Exit Sub
        End If
        If ValidarHoras(Text1) = True Then
            Caixa = Replace(Right(Text1.Text, 2), ":", "")
            If Val(Caixa) <= 9 And Left(Right(Text1.Text, 2), 1) = ":" Then
                Text1.Text = Left(Text1.Text, 3) & "0" & Caixa
            End If
            
            Text1.BackColor = &HFFE4CE
            Text1.BackColor = &H80000005
            Text1.SetFocus
            Exit Sub
        End If
        
        Exit Sub
    End If
    '==============================================================================
    'Não Considera valores = empty quando o utilizador deseja Inserir dados.
    If SoQAltera.Caption = "On" Then
        If ValidarHoras(TxtHora) = False Then
            If TxtHora.Text = Empty And Text1.Text = Empty Or TxtHora.Text = " " And Text1.Text = " " Then
                TxtHora.SetFocus
            Else
                MsgBox "Hora de entrada inválida!"
                TxtHora.SetFocus
                Exit Sub
            End If
        End If
        If ValidarHoras(TxtHora) = True Then
            Caixa = Replace(Right(TxtHora.Text, 2), ":", "")
            If Val(Caixa) <= 9 And Left(Right(TxtHora.Text, 2), 1) = ":" Then
                TxtHora.Text = Left(TxtHora.Text, 3) & "0" & Caixa
            End If
            Text1.BackColor = &H80000005
            TxtHora.BackColor = &HFFE4CE
            TxtHora.SetFocus
            Exit Sub
        End If
        Exit Sub
    End If
    
    'If bComSegundos Then
    '    TxtHora.MaxLength = 8
    'Else
    '    TxtHora.MaxLength = 5
    'End If
    Screen.ActiveControl.SelStart = 0: Screen.ActiveControl.SelLength = Len(Screen.ActiveControl.Text)
End Sub
Private Sub Text1_GotFocus()
    Dim Caixa As String
    
    'Considera valores = empty quando o utilizador deseja alterar dados.
    If SoQAltera.Caption = "Off" Then
        If ValidarHoras(TxtHora) = False Then
            If TxtHora.Text = "" Or TxtHora.Text = " " Then
                Text1.BackColor = &HFFE4CE
                TxtHora.BackColor = &H80000005
                Text1.SetFocus
                Exit Sub
            End If
            MsgBox "Hora de entrada inválida!"
            TxtHora.SetFocus
            Exit Sub
        End If
        If ValidarHoras(TxtHora) = True Then
            Caixa = Replace(Right(TxtHora.Text, 2), ":", "")
            If Val(Caixa) <= 9 And Left(Right(TxtHora.Text, 2), 1) = ":" Then
                TxtHora.Text = Left(TxtHora.Text, 3) & "0" & Caixa
            End If
            
            Text1.BackColor = &HFFE4CE
            TxtHora.BackColor = &H80000005
            Text1.SetFocus
            Exit Sub
        End If
        'Para o Text1
        '--------------------------------------------------------------------------
        If ValidarHoras(Text1) = False Then
            If Text1.Text = "" Or Text1.Text = " " Then
                Text1.BackColor = &HFFE4CE
                Text1.BackColor = &H80000005
                Text1.SetFocus
                Exit Sub
            End If
            MsgBox "Hora de saída invalida!"
            Text1.SetFocus
            Exit Sub
        End If
        If ValidarHoras(Text1) = True Then
            Caixa = Replace(Right(Text1.Text, 2), ":", "")
            If Val(Caixa) <= 9 And Left(Right(Text1.Text, 2), 1) = ":" Then
                Text1.Text = Left(Text1.Text, 3) & "0" & Caixa
            End If
            
            Text1.BackColor = &HFFE4CE
            Text1.BackColor = &H80000005
            Text1.SetFocus
            Exit Sub
        End If
        
        Exit Sub
    End If
    '==============================================================================
    'Não Considera valores = empty quando o utilizador deseja Inserir dados.
    If SoQAltera.Caption = "On" Then
        If ValidarHoras(TxtHora) = False Then
            MsgBox "Hora de entrada inválida!"
            TxtHora.SetFocus
            Exit Sub
        End If
        If ValidarHoras(TxtHora) = True Then
            Caixa = Replace(Right(TxtHora.Text, 2), ":", "")
            If Val(Caixa) <= 9 And Left(Right(TxtHora.Text, 2), 1) = ":" Then
                TxtHora.Text = Left(TxtHora.Text, 3) & "0" & Caixa
            End If
            Text1.BackColor = &HFFE4CE
            TxtHora.BackColor = &H80000005
            Text1.SetFocus
            Exit Sub
        End If
        Exit Sub
    End If
    Screen.ActiveControl.SelStart = 0: Screen.ActiveControl.SelLength = Len(Screen.ActiveControl.Text)
End Sub

Private Sub txthora_KeyPress(KeyAscii As Integer)
    
    If KeyAscii = 13 Or KeyAscii = 8 Then
        If KeyAscii = 8 Then
            BSpaceX.Caption = "Off"
        End If
        
        If KeyAscii <> 8 Then
            BSpaceX.Caption = "On"
            If ValidarHoras(TxtHora) = False Then
                MsgBox "Hora de entrada inválida!"
                TxtHora.SetFocus
                Exit Sub
            End If
        End If
        If ValidarHoras(TxtHora) = True Then
            If KeyAscii <> 8 Then
                If Len(TxtHora.Text) = 5 Then
                    KeyAscii = 0
                    Text1.SetFocus
                    Exit Sub
                End If
                If Len(Text1.Text) = 0 Then
                    KeyAscii = 0
                    TxtHora.SetFocus
                    Exit Sub
                End If
                
                Exit Sub
            End If
        End If
    Else
        If Not IsNumeric(Chr(KeyAscii)) Then
            KeyAscii = 0
        Else
            If Len(TxtHora.Text) = 2 And BSpaceX.Caption = "On" Then
                TxtHora.Text = TxtHora.Text & ":"
                TxtHora.SelStart = Len(TxtHora.Text)
            End If
            If bComSegundos Then
                If Len(TxtHora.Text) = 5 Then TxtHora.Text = TxtHora.Text & ":": TxtHora.SelStart = Len(TxtHora.Text)
            End If
            
        End If
    End If
    
End Sub

- No Modulo :

'---------------------------------------------------------------------------------------
' Rotinas    : ValidarHoras
' Data/Hora : 27-09-2009 18:34
' Autor     : Morpheus
' Descrição : Verifica se a Hora é válida
'---------------------------------------------------------------------------------------
'

Public Function ValidarHoras(CaixaTexto As TextBox) As Boolean
    If IsDate(CaixaTexto.Text) Then
        ValidarHoras = True
    Else
        If CaixaTexto.Text = "24:00" Then
            ValidarHoras = True
        End If
        If CaixaTexto.Text <> "24:00" Then
            ValidarHoras = False
        End If
    End If
    
End Function

Public Function Observar(CaixaTexto As TextBox) As Integer
    Dim cc As Integer
    Dim OlhaEsq As String
    Dim OlhaDir As String
    Dim Digitar As Currency
    Dim Suprime As Integer
    
    Digitar = Len(CaixaTexto.Text)
    cc = CaixaTexto.SelStart
    
    If cc = 1 Then
        OlhaDir = Mid(CaixaTexto.Text, 1, 1)
        Observar = Val(OlhaDir)
    End If
    If cc = 2 Then
        OlhaDir = Mid(CaixaTexto.Text, 2, 1)
        OlhaEsq = Mid(CaixaTexto.Text, 1, 1)
        If Val(OlhaEsq) = 2 And Val(Len(CaixaTexto.Text)) <= 2 Then
            If Val(OlhaDir) <= 4 Then
                Observar = Mid(CaixaTexto.Text, 1, 4)
            End If
        End If
        If Val(Len(CaixaTexto.Text)) > 2 Then
            Observar = OlhaDir
        End If
    End If
    If cc = 4 Then
        OlhaDir = Mid(CaixaTexto.Text, 4, 1)
        
        Observar = Val(OlhaDir)
    End If
    If cc = 5 Then
        OlhaDir = Mid(CaixaTexto.Text, 5, 1)
        Observar = Val(OlhaDir)
    End If
    
End Function
Public Function VerSeparacao(caixaTextoX As TextBox) As Boolean
    Dim nCharacter As Integer
    Dim Count As Integer
    Dim sLetra As String
    
    For nCharacter = 1 To Len(caixaTextoX)
        If Mid(caixaTextoX, nCharacter, 1) = ":" Then
            Count = Count + 1
        End If
    Next
    If Count = 0 Then
        VerSeparacao = False
    End If
    If Count = 1 Then
        VerSeparacao = True
    End If
End Function

Desde já agradeço o vosso apoio.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
programadorvb6

Olá pessoal.

Após ter pesquisado bastante na net e não obtendo resultados satisfatórios para uma formatação de horas aceitável  em uma caixa de texto (Texbox) , [ Tudo o que vi até agora era uma lástima ! ] e estando a queimar neurónios durante 4 dias, deixo aqui o executável do que fiz.

horas.png

Conto com a vossa ajuda para poder testar e aperfeiçoar o código.

Depois de trabalho finalizado deixo aqui o exemplo para que todos possam ter acesso.

Postem aqui as vossas opiniões.

:cheesygrin: Nova Actualização : 07/03/2010 19:12

O0 Link do Zip : http://www.box.net/shared/uxajq9gc6l [ Zip : 9.859 bytes; Exe : 69.632 bytes]

Até+  :bye2:

Programadorvb6

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
Gooden

Olá pessoal.

Após ter pesquisado bastante na net e não obtendo resultados satisfatórios para uma formatação de horas aceitável  em uma caixa de texto (Texbox) , [ Tudo o que vi até agora era uma lástima ! ] e estando a queimar neurónios durante 4 dias, deixo aqui o executável do que fiz.

Conto com a vossa ajuda para poder testar e aperfeiçoar o código.

Depois de trabalho finalizado deixo aqui o exemplo para que todos possam ter acesso.

Postem aqui as vossas opiniões.

O0 Link do Zip : http://www.box.net/shared/9gtyx920ir [ Zip : 8.613 bytes; Exe : 36.864 bytes]

Até+  :bye2:

Programadorvb6

as horas parecem estar a funcionar fixe.

a box de baixo o que é?

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
programadorvb6

Problema resolvido.

Exemplo final no post supra citado.

Obrigado pela atenção.

Caso se deparem com + algum erro/ou algo de novo podem sempre reportar aqui.

Até+ :bye2:

Programadorvb6

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.