FiveTech Software tech support forums

... n=20 .or. n=27 .or. n=34 .or. n=41 .or. n=48,CLR_HRED,; If( dWork == Date(), CLR_BROWN,; If( dWork == dSelect, CLR_HBLUE, If( Month( dWork ) == nMonth,; CLR_BLACK , CLR_CYAN ) ) ) ) armofecha := dWork if Feriados->(Dbseek(armofecha,.f.)) oDlg:aControls[ n ]:nClrText = CLR_MAGENTA oDlg:aControls[ ...

... ATail( oDlg:aControls ):nClrText = if(nCol=1,CLR_HRED, ; If( dWork == Date(), CLR_YELLOW,; If( dWork == dDate, CLR_HBLUE, If( Month( dWork ) == nMonth,; if( feriados->(DbSeek(ATail( oDlg:aControls ):Cargo)), CLR_BROWN,CLR_BLACK ), CLR_CYAN ) ) ) ) Gracias por sus tiempos. Joao: La base FERIADOS ...

... function MsgDate( dDate, cPrompt, oGet ) local oDlg, oFont, oCursor, dSelect, dWork local nRow, nCol, nMonth, nYear local aMonths := {'Enero ',; 'Febrero ',; 'Marzo ',; 'Abril ',; 'Mayo ',; 'Junio ',; 'Julio ',; 'Agosto ',; 'Septiembre',; 'Octubre ',; ...

... ATail( oDlg:aControls ):nClrText = if(nCol=1,CLR_HRED, ; If( dWork == Date(), CLR_YELLOW,; If( dWork == dDate, CLR_HBLUE, If( Month( dWork ) == nMonth,; if( feriados->(DbSeek(DToC(ATail( oDlg:aControls ):Cargo)),.f.), CLR_BROWN,CLR_BLACK ), CLR_CYAN ) ) ) ) ... y no logro cambiar el color ...

... de una RibbonBar y un estilo de panel de metro. Muchas gracias César !!! * Nuevo: Nueva función FW_FolderChanged( cFolderPath ) --> { nDay, nMonth, nYear, nHours, nMinutes, nSeconds } Por favor, revisa nuevo ejemplo en FWH\samples\fldchanged.prg * Mejora: En el método Update( Pos ) de la ...

... example for combining a RibbonBar and a metro panel style. Many thanks C├®sar! * New: function FW_FolderChanged( cFolderPath ) --> { nDay, nMonth, nYear, nHours, nMinutes, nSeconds } Please review new example FWH\samples\fldchanged.prg * Enhancement: Class TExplorerBar Method Update( nPos ...

Estimado José, Aquí lo tienes. Lo incluimos para el próximo build de FWH: function FW_FolderChanged( cFolderPath ) --> { nDay, nMonth, nYear, nHours, nMinutes, nSeconds } #include "FiveWin.ch"function Main()    XBrowse( FW_FolderChanged( "c:\fwh" ...

Estimado José, Aquí lo tienes. Lo incluimos para el próximo build de FWH: function FW_FolderChanged( cFolderPath ) --> { nDay, nMonth, nYear, nHours, nMinutes, nSeconds } #include "FiveWin.ch"function Main()    XBrowse( FW_FolderChanged( "c:\fwh" ...

Estimado José, Aquí lo tienes. Lo incluimos para el próximo build de FWH: function FW_FolderChanged( cFolderPath ) --> { nDay, nMonth, nYear, nHours, nMinutes, nSeconds } #include "FiveWin.ch"function Main()    XBrowse( FW_FolderChanged( "c:\fwh" ) ...

... SetMouse([<lOnOff>],[<nRow>],[<nCol>])->lIsMouseVisible SetNewDate(<nYear>,<nMonth>,<nDay>)->lSuccess SetNewTime(<nHour>,<nMinute>,<nSecond>)->lSuccess SetPos(<nRow>,<nCol>)->Nil ...

... SetMouse([<lOnOff>],[<nRow>],[<nCol>])->lIsMouseVisible SetNewDate(<nYear>,<nMonth>,<nDay>)->lSuccess SetNewTime(<nHour>,<nMinute>,<nSecond>)->lSuccess SetPos(<nRow>,<nCol>)->Nil ...

... ACos(<nRadians>)->nArcCosine AddASCII(<cString>,<nValue>,[<nPos>])->cNewString AddMonth(<dDate>,<nMonths>)->dNewDate ADel(<aArray>,<nElement>,[<lShrink>])->aTarget ADir([<cFileSpec>],[<aFilenames>],[<aSizes>],[<aDates>],[<aTimes>],[<aAttributes>])->nFiles ...

If the syntax is more comfortable you can use the harbour hb_DateTime() function to create a datetime variable. hb_DateTime( nYear, nMonth, nDay, nHour, nMin, nSec, nMill ) // I believe the last argument is milliseconds. The source file rtl\dateshb.c has a fair number of datetime related ...

... a fecha 07-01-2013, aca estaria correcto. Excelente la funcion que has desarrollado. por si te fuera de utilidad una funcion DMY2DATE( nYear, nMonth, nDay ) ->dFecha para cualqueira que la desee usar. #pragma BEGINDUMP#include "hbapi.h"#include "hbdate.h"/*funcion que ...

... september there are 30 days with 5 sundays this I need to calculate the work Hour in this month this run ok ( thanks to all ) Function GetSunday( nMonth, nYear ) Local nCont := 0 Local nSunday := 0 Local dInizio := cTod("01/"+StrZero(nMonth,2)+"/"+StrZero(nYear,4)) nSunday:=Sundays(dInizio) ...