VaidrollTeam: CONVERTIR FORMATO DE 24 HORAS A 12 HORAS VISUAL BASIC

Convertir formato de 24 horas en 12 horas.

1.- En la caja hora debes de ingresar un número del 0 al 23

2.- En la caja minutos debes de ingresar un número del 0 al 59

3.- Al presionar el botón calcular deberá de convertir los datos ingresados de la hora en formato 12 horas

Posible solución

Primero debemos de darle un nombre a cada herramienta.

Botón nuevo

Limpia las cajas de texto.

    Private Sub btnnuevo_Click(sender As Object, e As EventArgs) Handles btnnuevo.Click
        txthora.Value = 0
        txtminutos.Value = 0
        txtresultado.Text = 0
    End Sub

Botón salir

Cierra el formulario.

    Private Sub Btnsalir_Click(sender As Object, e As EventArgs) Handles btnsalir.Click
        Close()
    End Sub

Botón calcular

En este caso se trabaja con 2 datos tipo entero (horas y minutos) por lo que creamos dos variables que almacena los números de las cajas de texto.

Dependiendo de la hora ingresada este pasará igual a la caja resultado o cambiará, se agrega los minutos y el turno mañana o tarde (AM o PM).

    Private Sub btncalcular_Click(sender As Object, e As EventArgs) Handles btncalcular.Click

        Dim VarHora, VarMinutos As Integer
        VarHora = txthora.Value
        VarMinutos = txtminutos.Value

        Select Case VarHora
            Case 1 To 11
                txtresultado.Text = VarHora & ":" & VarMinutos & " AM"
            Case 12
                txtresultado.Text = VarHora & ":" & VarMinutos & " PM"
            Case 13 To 23
                txtresultado.Text = (VarHora - 12) & ":" & VarMinutos & " PM"
            Case 0
                txtresultado.Text = "12:" & VarMinutos & " AM"
        End Select

    End Sub