‘Programa que trasforma las horas de formato de 24h  a formato de 12h

ImportsSystem.console

Module Module2

    Sub Main()

        Dim h, m, s As Integer

        Write("la hora , en formato de 24 h:") : h = ReadLine()

        If (h > 24) Then

            WriteLine("la hora no es valida, fuera de rango")

        Else

            Write("ingrese los minutos:") : m = ReadLine()

            Write("ingrese los s:") : s = ReadLine()

            If (h > 12 And h <= 24) Then

                h = h - 12

                WriteLine("la hora en formato 12 horas sera:" & h & "h" & m & " m" & s & " s")

            Else

                WriteLine("la hora en formato 12 horas sera:" & h & "h" & m & " m" & s & " s")

            End If

        End If

        ReadLine()

    End Sub

End Module