FiveTech Software tech support forums

Code: Select all | Expand

#include "FiveWin.ch"

Function Main()
    LOCAL nHora := 18, nInc := 0.10, i
    LOCAL nHoras, nMinutos, ahoras := {}

    // Ciclo para agregar 10 minutos en cada iteración
    FOR i := 1 TO 40
        // Extraemos la parte entera (hora) y decimal (minutos)
        nHoras := INT(nHora)
        nMinutos := (nHora - nHoras) * 100

        // Agregamos 10 minutos
        nMinutos += 10

        // Si los minutos exceden 60, sumamos 1 hora y ajustamos los minutos
        IF nMinutos >= 60
            nHoras += 1
            nMinutos -= 60
        ENDIF

        // Control para las 24:00 horas, reinicia a 00:00
        IF nHoras >= 24
            nHoras := 0
        ENDIF

        // Reasignamos el valor de nHora en formato numérico
        nHora := nHoras + (nMinutos / 100)

        // Mostramos el nuevo valor de la hora
        AADD(aHoras, { i, nHora} )

    NEXT

    xBrowse(aHoras)

Return NIL