Autor Tema: Re: Convertir datos de una tabla en Access (Leído 1583 veces)

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
msn jorge20l@hotmail.com

Jose Arriagada

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

Jorge López

Gracias..
la voy a probar a ver que tal...
cualquier cosa..lo escribo aca en este foro........SALUDOS Y GRACIAS

Jorge López

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?