FiveTech Support Forums

// nMinActual recoje los minutos transcurridos de la hora del computador

nMinActual := (val(strtran(substr(TIME(),1,2)," ","0"))*60 ) + val(strtran(substr(TIME(),4,2)," ","0"))

// nHaceDosHoras recoje el valor de de los minutos, restando 2 horas en minutos

nHaceDosHoras := nMinActual - 120

nMindelcampo := (val(strtran(substr(field->campohora,1,2)," ","0"))*60 ) + val(strtran(substr(field->campohora,4,2)," ","0"))

IF nMindelCampo = nHaceDosHoras
   .....
   // lo que necesites hacer
   .....
ENDIF

// The example outlines basic operations with DateTime values and
// lists their results.

   PROCEDURE Main
      LOCAL d1, d2, nDiff

      SET CENTURY ON
      SET TIME FORMAT TO "hh:mm:ss.ccc"

      ? DateTime()                      // result: [today] [systemtime]
      ? {ˆ 2007/04/26}                  // result: 04/26/2007
      ? {ˆ 05:30:12.345}                // result: 12/30/1999 05:30:12.345
      ? {ˆ 05:30:12.345 PM}             // result: 12/30/1999 17:30:12.345

      ** Empty value
      ? d1 := {ˆ 0/0/0 }                // result:   /  /
      ? Empty( d )                      // result: .T.

      ** difference between DateTime and Date
      ? d1 := {ˆ 2007/04/26 18:30:00 }  // result: 04/26/2007 18:30:00.000
      ? d2 := StoD("20070426")          // result: 04/26/2007
      ? nDiff := d1-d2, "days"          // result: 0.77 days
      ? TString( nDiff*86400 )          // result: 18:30:00

      ** Adding 2 days to DateTime
      ? d1 + 2                          // result: 04/28/2007 18:30:00.000

      ** Adding 2 hours to DateTime
      ? d1 + 2/24                       // result: 04/26/2007 20:30:00.000

      ** Adding 2 minutes to DateTime
      ? d1 + 2/(24*60)                  // result: 04/26/2007 18:32:00.000

      ** Adding 2 seconds to DateTime
      ? d1 + 2/(24*3600)                // result: 04/26/2007 18:30:02.000

   RETURN

        nTime := RETORNA_SEGUNDOS(Time())  // aqui obtengo el los segundos pero en horas le resto 2
    cFiltro2 := "NOTASS->CAJA='"+AllTrim(aGENERAL[3])+"'"
    cFiltro1 := "NOTASS->SEGUNDOS >= "+AllTrim(Str(ntime))  
    cFiltro := "{||"+cFiltro2+" .AND. "+cFiltro1+"}"
    gFiltro := '"'+cFiltro2+' .AND. '+cFiltro1+'"'
    DbSetfilter(&cFiltro,&gFiltro)

FUNCTION RETORNA_SEGUNDOS(cTiempo)
    LOCAL nHora, nMinu, nSegu
    nHora := ((Val(SubStr(cTiempo,1,2))-2)*60)*60
    nMinu := Val(SubStr(cTiempo,4,2))*60
    nSegu := Val(SubStr(cTiempo,7,2))
RETURN (nHora+nMinu+nSegu)

#include "FiveWin.Ch"
#include "ord.ch"
#include "xbrowse.ch"
#include "hbcompat.ch"

REQUEST DBFCDX

//----------------------------------------------------------------------------//

function Main()

   local oDlg, oBrw, oFont

   RDDSETDEFAULT( "DBFCDX" )
   SET DATE ITALIAN
   SET CENTURY ON
   SET TIME FORMAT TO "HH:MM"

   CreateTestDBF()

   USE TESTDTIM
   SET ORDER TO TAG TIMSTAMP
   SET SCOPETOP TO ( DateTime() - 2/24 )   // 2/24 = 2 hours
   GO TOP

   XBROWSER TITLE TTOC( DateTime() )

return nil

//----------------------------------------------------------------------------//

static function CreateTestDbf()

   field TIMSTAMP, TEXT

   local aCols := { ;
      { "TIMSTAMP",  "T",  8, 0  }, ;
      { "TEXT",      "C",  20,0  } }

   local t     := DateTime() - 5/24

   DBCREATE( "TESTDTIM", aCols )

   USE TESTDTIM EXCLUSIVE

   do while t < DateTime()
      APPEND BLANK
      TIMSTAMP    := t
      TEXT        := ATail( HB_ATokens( TTOC( t ), " " ) ) + ;
                     " Some text"
      t           += 1/24/4   // 1/24/4 = 15 minutes
   enddo

   INDEX ON TIMSTAMP TAG TIMSTAMP
   CLOSE TESTDTIM

return nil

//----------------------------------------------------------------------------//

    #include "ord.ch"

    REQUEST DBFCDX

    //----------------------------------------------------------------------------//

    function Main()

       local oDlg, oBrw, oFont

       RDDSETDEFAULT( "DBFCDX" )
       SET DATE ITALIAN
       SET CENTURY ON
       SET TIME FORMAT TO "HH:MM"

       CreateTestDBF()

       USE TESTDTIM
       SET ORDER TO TAG TIMSTAMP
       SET SCOPETOP TO ( DateTime() - 2/24 )   // 2/24 = 2 hours
       GO TOP
       browse()

    return nil

    //----------------------------------------------------------------------------//

    static function CreateTestDbf()

       field TIMSTAMP, TEXT
       local aCols := { ;
          { "TIMSTAMP",  "T",  8, 0  }, ;
          { "TEXT",      "C",  20,0  } }

       local t  := DateTime() - 5/24

       DBCREATE( "TESTDTIM", aCols )

       USE TESTDTIM EXCLUSIVE
       
       
       do while t < DateTime()

          APPEND BLANK
          TIMSTAMP    := t
          TEXT        := ATail( HB_ATokens( TTOC( t ), " " ) ) + ;
                         " Some text"
          t           += 1/24/4   // 1/24/4 = 15 minutes
       enddo

       INDEX ON TIMSTAMP TAG TIMSTAMP
       CLOSE TESTDTIM
       wait
    return nil