FiveTech Software tech support forums

... no prototype in function HB_FUN_BOM Warning W8065 \\SIS\\FSQL901\\LIB\\GER.PRG 858: Call to function 'ISNIL' with no prototype in function HB_FUN_EOM Warning W8065 \\SIS\\FSQL901\\LIB\\GER.PRG 890: Call to function 'ISNIL' with no prototype in function HB_FUN_BOQ Warning W8065 \\SIS\\FSQL901\\LIB\\GER.PRG ...

... Error: Unresolved external '_HB_FUN_ADDMONTH' referenced from C:\XBASE\HARBOUR32\LIB\FIVEH.LIB|VALTOSTR Error: Unresolved external '_HB_FUN_EOM' referenced from C:\XBASE\HARBOUR32\LIB\FIVEH.LIB|VALTOSTR Error: Unresolved external '_HB_FUN_TIMETOSEC' referenced from C:\XBASE\HARBOUR32\LIB\FIVEH.LIB|VALTOSTR ...

... oDtpLast:Update())       SEPARATOR       MENUITEM "Current Mounth" ACTION (dFirst:=bom(date()),dLast:=EoM(date()), oDtpFirst:SetDate(dFirst), oDtpFirst:Update(), oDtpLast:SetDate(dLast), oDtpLast:Update())  ...

Armando estás intentando linkar las librerias de Fivewin para el compilador MinGw en lugar de utilizar las de Borland Es cierto. Estaba apuntando a las librerias para Mingw de Fwh, a pesar que todas las variables de entorno apuntaban a Harbour y Bcc7. Ya corregí; pero el arreglo ha resultado peor q...

... CHARREM(), TOKENUPPER(), CHARREPL(), REMRIGHT(), OCCURS(), LOG10(), FLOOR(), CHARONLY(), NTOCMONTH(), BEFORATNUM(), HHASKEY(), ADDMONTH(), EOM(), TIMETOSEC(), OS_ISWTSCLIENT(), NUMAT(), ANSITOWIDE(), AFTERATNUM(), EXENAME(), TXMLDOCUMENT(), HSETCASEMATCH(), GETACTIVEOBJECT(), CREATEOBJECT(), ...

... ElapTime(<cStartTime>,<cEndTime>)->cElapsedTime Empty(<exp>)->lEmpty Enhanced()->cNull Eof()->lBoundary EoM([<dDate>])->dLastDayOfMonth EoQ([<dDate>])->dEndOfQuarter EoY([<dDate>])->dLastDayOfYear Error([<cSubSystem>],[<nGenCode>],[<nSubCode>],[<cOperation>],[<cDescription>],[<aArgs>],[<cModuleName>],[<cProcName>],[<nProcLine>])->oError ...

... DispOut DllCall DllExecuteCall DllLoad DllPrepareCall DllUnload DMY DOSError DosParam DoW DoY DriveType DToC DtoR DToS ElapTime Empty Enhanced Eof EoM EoQ EoY Error ErrorBlock ErrorLevel ErrorNew ErrorSys Eval ExeName Exp Expand Exponent Fact Fahrenheit FClose FCount FCreate FErase FError Field ...

Tienes la function harbour EoM( dDate ) devuelve el último día del mes dDate. Si lo que se busca el es primer día del mes, Harbour ya tiene una función nativa: BoM( dDate )

... PUBLIC NVPOS PUBLIC NHPOS PUBLIC SCREENWORK := 0 // 1 TO 4 FOR BALL1 TO 4 PUBLIC DIRNOW := "" // BLANK IF \SCO\DAT ELSE EOM- OR EOY- IF IN EOM OR EOY PUBLIC DIRSTRING := "" // BLANK IF \SCO\DAT ELSE EOM\ OR EOY\ IF IN EOM OR EOY PUBLIC HBALL1 // BALL CURSORS ...

We need not have our own function EOM(d)
There is already a function EOM(d) in (x)Harbour.

MsgInfo( DaysInMonth(Month(date())) ) // Devuelve los dias en un mes dado SET DATE BRITISH msginfo( EoM( Date() ) ) //Esta devuelve la fecha completa al ultimo dia de un mes segun fecha dada. El compañero pregunto por una funcion que le devolviera una fecha completa con el ...

... Saludos, Adhemar Creo esta es mejor para lo que el colega quiere DaysInMonth(nMes) ya que solo colocas el numero del MES, en esta EoM( Date() ) , parece hay que colocar la fecha completa, por lo menos asi pude probar ambas, pero el resultado es el mismo, que gran foro somos, saludos... ...

...              ( Month( dDate2 ) - Month( dDate1 ) )   if Day( dDate2 ) < Day( dDate1 ) .and. dDate2 < EOM( dDate2 )      nMths--   endifreturn nMths  Note: ADDMONTH(), CEILING(), EOM() are available in CT.LIB for xHarbour and HBCT.LIB for Harbour.

... nSunday:=Sundays(dInizio) Return nSunday function Sundays( dDate ) local x, d := EOM( dDate ) return If( ( x := Day( d ) - 28 ) == 0 .or. dow( d ) > x, 4, 5 )

... hace falta escribir funciones para buscar el último día del mes. Si lo que se busca es el último día del mes, Harbour ya tiene una función nativa: EoM( dDate ) devuelve el último día del mes dDate. Si lo que se busca el es primer día del mes, Harbour ya tiene una función nativa: BoM( dDate ) devuelve ...