octubre 2017

Convierte una hora a time

// Recibe como parámetro un número entero que representa una hora y lo convierte en un tipo TIME
// Parameters:
// Hora (INT): Valor numérico que representa una hora (Ej. 0851, que serían las 08:51 de tipo TIME)
// Return Value: time
// For instance:
// info( TimeToString( HoraIntegerToTime(851), "HH:MM AP" ) ) à 08:51 PM
 PROCEDURE HoraToTime(LOCAL Hora is int):Time
   tTime is Time
   tTime..Hour = IntegerPart(Hora / 100)
   tTime..Minute = modulo(Hora, 100)
   RESULT tTime

Corrupción de ficheros .FIC

Cuando se corrompe un fichero *.FIC se añade un ASCII (0) NULL al inicio del fichero.

Para arreglarlo basta con quitar ese NULL