SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Jorge López en Viernes 13 de Diciembre de 2002, 22:27
-
Convertir datos de una tabla
Hoola a todos ....espero que esten bien....
Mi pregunta es la siguiente:
Tengo una tabla con campos de horarios, los mismos estan en formato 2:30 pm ó am, lo que quiero es que mediante un formulario, programar un boton que cuando le haga click, este me los convierta en hora militar(14:30) y le quite las extensiones de am y pm,quiero que en la tabla solo aparescan valores en hora militar sin las asignaciones de am y pm...
por favor si alguien tiene idea ó algun codigo mi correo es:
jorge20l@mipunto.com (http://mailto:jorge20l@mipunto.com)
msn jorge20l@hotmail.com
-
Utiliza la siguiente funcion:
Public Function HoraMilitar(ByVal xHora As String) As String
xHora = UCase(xHora)
largo = Len(xHora)
pos1 = InStr(xHora, ":")
laHora = CInt(Mid(xHora, 1, pos1 - 1))
pos2 = InStr(xHora, " ")
LosMinutos = CInt(Trim(Mid(xHora, pos1 + 1, pos2 - pos1)))
pos3 = InStr(xHora, "P")
If pos3 > 0 Then
If laHora <> 12 Then
laHora = laHora + 12
End If
End If
HoraMilitar = Format(laHora, "00") & ":" & Format(LosMinutos, "00")
End Function
-
Gracias..
la voy a probar a ver que tal...
cualquier cosa..lo escribo aca en este foro........SALUDOS Y GRACIAS
-
ayyyyyy.....una ultima cosa...si la base de datos sse llama BASE y la tabla se llama Horarios,¿ Como Hago referencia a los campos que quiero cambiar?