FiveTech Software tech support forums

... pasado 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 ...

... 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) ...

I have an array like this: aRezult := { cBillNumber, cName, nYear} I need to sort on two fields cBillNumber(character element) and nYear (numeric element) Unsorted data looks like this for example (randomly mixed years and bills): aRezult := { 4, cName, ...

Function dHollyFriday( nYear ) Local a, b, c, Aa, Bb, n n := If( nYear > 2099, 6, If( nYear > 2199, 0, 5 ) ) a := nYear % 19 b := nYear % 4 c := nYear % 7 Aa := ( ( 19 * a ) ...

... PIXEL SIZE 363,9 ; PAGESTEP 10 RANGE 1, 200 UPDATE MESSAGE "El click sobre la barra cambia de año" oWndPlan:cTitle := "Calendario [ " + str(nYear,4) + " ]" oWndPlan:bLClicked := { |x,y,flags | IF(f_bLClicked(x,y), oWndPlan:End(1), ) } oWndPlan:bKeyDown:={ | nKey,nFlags | IF( nKey==VK_ESCAPE, ...

... PIXEL SIZE 363,9 ; PAGESTEP 10 RANGE 1, 200 UPDATE MESSAGE "El click sobre la barra cambia de año" oWndPlan:cTitle := "Calendario [ " + str(nYear,4) + " ]" oWndPlan:bLClicked := { |x,y,flags | IF(f_bLClicked(x,y), oWndPlan:End(1), ) } oWndPlan:bKeyDown:={ | nKey,nFlags | IF( nKey==VK_ESCAPE, ...

... hPen STATIC hPen1 STATIC hPen3 STATIC aTemp := {} STATIC nStartZeile := 0 /* ********** added by rochinha, modify by Quique ********** */ STATIC nYear /* ********** added by rochinha, modify by Quique ********** */ function main() /* ********** added by rochinha, modify by Quique ********** */ ...

... _cfecha( dFecha ) // sabado 10 de mayo del 2008 local cDia := cdow(dFecha) local nDia := day(defecha) local cMes := cmonth( dFecha ) local nYear : year( dFecha ) return ( cDia +" "+ strzero( nDia, 2 ) + " de " + cMes + " del " + str(nYear, 4) ) por cierto, se me olvido mensionar que hay ...

... oDlg, nModo, nDias ) local dSelect := Date() local n local nFirstButton := 0 local nLastButton := 0 local nDate := 0 local nDay, nMonth, nYear, nNewDay local dDate //local nDias := 0 for n := 1 TO Len( oDlg:aControls )-1-3-3-3 if oDlg:aControls[ n ]:ClassName() == "TBTNBMP" nFirstButton ...

... // Testing #include "FiveWin.ch" //------------------------------------------------------------------------// function Main() local oDlg local nYear := 2000 local nMonth := 1 local nOrder := 1 local oDay local cDay := "Monday" local aDays := { "Monday", "Tuesday", "Wednesday", "Thursday", ; ...

... 2 ] VAR cMonth ID 101 ITEMS aMonth OF oDlg ; ON CHANGE ( nMonth := AScan( aMonth, cMOnth ), ; fActMonth( aSay, cSay ) ) REDEFINE GET aObj[3] VAR nYear ID 102 OF oDlg PICTURE "@K 9999"; SPINNER ON UP ( ++nYear, aObj[ 3 ]:Refresh(), fActMonth( aSay, cSay ), ; aObj[ 5 ]:SetFocus() ) ; ON DOWN ( ...

... that the checkbox has focus , then the first numeric get is activated . BUT I FOUND NOTHING TO KNOW WHICH FROM THE 4 (Checkbox , nDay , nMonth , nYear) has focus when bgotfocus is activated. Can this be done ??? Frank Testing on Samples\testdtp : #include "FiveWin.ch" #include "dtpicker.ch" ...

Try SetDate( nDay, nMonth, nYear )

EMG