Hora militar en un Form de Visual Basic

[Danny]

 

Hola a todos, tengo un problema y talvez me puedan ayudar, hice un Form en visual, el cual tiene un Timer para que me aparezca la hora local, el inconveniente que tengo es que me aparece en el siguente formato: HH:MM AM o PM, y necesito cambiar ese formato de tiempo para que me aparezca en hora militar.

Les agradeceria si me pudieran dar una mano con esta inquietud.

Saludos,
Danny

[Menta]

Hola!... si la variable con la que muestras la hora es string deberías manejarte con las funciones para el tratamiento de este tipo de variables:

Suponer que cadena contiene "10:25:33 pm"

Val  --- convierte a valor numérico
Str$ --- convierte a string

Left$ --- toma caracteres de la izquierda
Right$ --- toma caracteres de la derecha
Mid$ --- toma caracteres del medio

: Hora = Val(Left$(cadena,2) )    ' hora valdrá 10
: Agregar = Right$(cadena,2)     ' Agregar valdrá pm
Puedes hacer un If Agregar="pm" then y sumar 12 al resultado de Hora.
: min = Mid$(cadena,3,2) 'min valdrá 25 pero es variable texto...

hora_militar = Str$(Hora) & min

pero esto depende de como te aparece la hora... si no te queda claro expone más detalladamente como es el formato en que te aparece la hora...
Saludos

[MARKUS]

Saludos!,
Mira, para lo que queres hacer, hay una solucion mucho mas sencilla!
Para poner la hora en el formato que vos desees, simplemente debes acudir a la funcion FORMAT()
dela siguiente manera:

stringfecha= format (Now, "dd/mm/yy")

En la ayuda del MSDN puedes ver todas las opciones para mostrar la fecha y la hora en una cadena, la funcion format te la va a mostrar tal cual como le indiques, y todo eso lo logras en una sola linea de codigo.
Suerte.