* make_deb.sh
* Removed wrong comment recently added.
(we will need to fix hbfimage compilation anyway)
* harbour-ce-spec
* harbour-w32-spec
* harbour.spec
* debian/control
* include/vm.api
* include/extend.api
* include/button.ch
* include/hbstack.h
* include/item.api
* include/rdd.api
* include/gt.api
* include/dbinfo.ch
* include/error.api
* include/filesys.api
* include/hbapigt.h
* include/clipdefs.h
* include/assert.ch
* include/fm.api
* include/extend.h
* source/compiler/genhrb.c
* config/os2/install.cf
* tests/db_brows.prg
* tests/debugtst.prg
* tests/ac_test.prg
* tests/testhtml.prg
* tests/tstcolor.prg
* doc/hdr_tpl.txt
* doc/man/harbour.1
* doc/dirstruc.txt
* doc/howtobld.txt
* doc/en/diskspac.txt
* doc/en/string.txt
* doc/en/rddord.txt
* doc/en/math.txt
* doc/en/error.txt
* doc/en/treport.txt
* doc/en/memvar2.txt
* doc/en/terminal.txt
* doc/en/dir.txt
* doc/en/rddmisc.txt
* doc/en/var.txt
* doc/en/nation.txt
* doc/en/dbstrux.txt
* doc/en/datetime.txt
* doc/en/memo.txt
* doc/en/tgetlist.txt
* doc/en/tlabel.txt
* doc/en/hb_compa.txt
* doc/en/array.txt
* doc/en/rdddb.txt
* doc/en/dbsdf.txt
* doc/en/tbrowse.txt
* doc/en/hvm.txt
* doc/en/input.txt
* doc/en/dbdelim.txt
* doc/en/browse.txt
* doc/en/menu.txt
* doc/en/file.txt
* doc/en/binnum.txt
* doc/en/tclass.txt
* doc/en/set.txt
* doc/en/misc.txt
* doc/en/sayget.txt
* doc/en/readme.txt
* doc/es/diskspac.txt
* doc/es/tlabel.txt
* doc/es/array.txt
* doc/es/dbsdf.txt
* doc/es/tbrowse.txt
* doc/es/math.txt
* doc/es/hvm.txt
* doc/es/treport.txt
* doc/es/input.txt
* doc/es/dbdelim.txt
* doc/es/browse.txt
* doc/es/memvar2.txt
* doc/es/command.txt
* doc/es/dir.txt
* doc/es/file.txt
* doc/es/eval.txt
* doc/es/binnum.txt
* doc/es/nation.txt
* doc/es/var.txt
* doc/es/tclass.txt
* doc/es/dbstrux.txt
* doc/es/misc.txt
* doc/es/datetime.txt
* doc/es/sayget.txt
* doc/es/memo.txt
* doc/es/readme.txt
* doc/es/tgetlist.txt
* doc/readme.txt
* contrib/hbct/ctnet.c
* contrib/hbct/video.c
* contrib/hbct/dattime3.c
* contrib/hbct/color.c
* contrib/hbnf/acctyear.prg
* contrib/hbnf/byteneg.prg
* contrib/hbnf/isshare.prg
* contrib/hbnf/sinkey.prg
* contrib/hbnf/dhkey.h
* contrib/hbnf/kspeed.c
* contrib/hbnf/prtscr.c
* contrib/hbnf/descendn.c
* contrib/hbnf/peek.c
* contrib/hbnf/scancode.prg
* contrib/hbnf/vidmode.prg
* contrib/hbnf/nwsem.prg
* contrib/hbnf/acctadj.prg
* contrib/hbnf/week.prg
* contrib/hbnf/vidcur.prg
* contrib/hbnf/iamidle.c
* contrib/hbnf/prtesc.prg
* contrib/hbnf/miltime.prg
* contrib/hbnf/proper.c
* contrib/hbnf/acctmnth.prg
* contrib/hbnf/savearr.prg
* contrib/hbnf/rand1.prg
* contrib/hbnf/madd.prg
* contrib/hbnf/dispmsg.prg
* contrib/hbnf/settime.prg
* contrib/hbnf/restsets.prg
* contrib/hbnf/page.prg
* contrib/hbnf/byt2bit.prg
* contrib/hbnf/setkeys.c
* contrib/hbnf/month.prg
* contrib/hbnf/byt2hex.prg
* contrib/hbnf/findith.prg
* contrib/hbnf/at2.prg
* contrib/hbnf/acctweek.prg
* contrib/hbnf/dispc.c
* contrib/hbnf/gcd.prg
* contrib/hbnf/pegs.prg
* contrib/hbnf/min2dhm.prg
* contrib/hbnf/acctqtr.prg
* contrib/hbnf/numlock.c
* contrib/hbnf/dosver.prg
* contrib/hbnf/nooccur.prg
* contrib/hbnf/dayofyr.prg
* contrib/hbnf/metaph.prg
* contrib/hbnf/ontick.c
* contrib/hbnf/menu1.prg
* contrib/hbnf/byteand.prg
* contrib/hbnf/sqzn.prg
* contrib/hbnf/bytexor.prg
* contrib/hbnf/ftidle.c
* contrib/hbnf/workdays.prg
* contrib/hbnf/byteor.prg
* contrib/hbnf/asum.prg
* contrib/hbnf/shift.c
* contrib/hbnf/sleep.prg
* contrib/hbnf/wda.prg
* contrib/hbnf/aavg.prg
* contrib/hbnf/woy.prg
* contrib/hbnf/origin.c
* contrib/hbnf/any2any.prg
* contrib/hbnf/chdir.c
* contrib/hbnf/adessort.prg
* contrib/hbnf/setdate.prg
* contrib/hbnf/netpv.prg
* contrib/hbnf/amedian.prg
* contrib/hbnf/blink.prg
* contrib/hbnf/stod.c
* contrib/hbnf/vertmenu.prg
* contrib/hbnf/qtr.prg
* contrib/hbnf/linked.prg
* contrib/hbnf/n2color.c
* contrib/hbnf/aredit.prg
* contrib/hbnf/alt.c
* contrib/hbnf/xbox.prg
* contrib/hbnf/ftround.prg
* contrib/hbnf/hex2dec.prg
* contrib/hbnf/nwuid.prg
* contrib/hbnf/dectobin.prg
* contrib/hbnf/bitset.prg
* contrib/hbnf/aemaxlen.prg
* contrib/hbnf/nwlstat.prg
* contrib/hbnf/invclr.prg
* contrib/hbnf/ctrl.c
* contrib/hbnf/lastday.prg
* contrib/hbnf/tempfile.prg
* contrib/hbnf/diskfunc.prg
* contrib/hbnf/scregion.prg
* contrib/hbnf/mouse2.prg
* contrib/hbnf/d2e.prg
* contrib/hbnf/ftisprn.c
* contrib/hbnf/pickday.prg
* contrib/hbnf/firstday.prg
* contrib/hbnf/daytobow.prg
* contrib/hbnf/anomatch.prg
* contrib/hbnf/pvid.prg
* contrib/hbnf/isbiton.prg
* contrib/hbnf/color2n.c
* contrib/hbnf/isbit.prg
* contrib/hbnf/putkey.c
* contrib/hbnf/cntryset.prg
* contrib/hbnf/datecnfg.prg
* contrib/hbnf/getenvrn.c
* contrib/hbnf/easter.prg
* contrib/hbnf/bytenot.prg
* contrib/hbnf/ntow.prg
* contrib/hbnf/poke.c
* contrib/hbnf/aeminlen.prg
* contrib/hbnf/floptst.prg
* contrib/hbnf/pchr.prg
* contrib/hbnf/savesets.prg
* contrib/hbnf/mkdir.c
* contrib/hbnf/year.prg
* contrib/hbnf/caplock.c
* contrib/hbnf/rmdir.c
* contrib/hbnf/calendar.prg
* contrib/hbnf/e2d.prg
* contrib/hbnf/elapsed.prg
* contrib/hbnf/sysmem.prg
* contrib/hbnf/bitclr.prg
* contrib/hbnf/eltime.prg
* contrib/hbnf/aading.prg
* contrib/hbnf/dfile.prg
* contrib/hbnf/elapmil.prg
* contrib/hbnf/setlastk.c
* contrib/hbnf/pending.prg
* contrib/hbnf/clrsel.prg
* contrib/rddads/doc/en/adsfuncs.txt
* contrib/rddads/doc/en/readme.txt
* contrib/hbclip/hbclip.ch
* contrib/hbclip/readme.txt
* contrib/hbmisc/doc/en/ht_dbf.txt
* utils/hbdoc/rtf.prg
* utils/hbdoc/fclass1.prg
* utils/hbdoc/genos2.prg
* utils/hbdoc/genng.prg
* utils/hbdoc/genasc.prg
* utils/hbdoc/genchm.prg
* utils/hbdoc/os2.prg
* utils/hbdoc/ng.prg
* utils/hbdoc/genhpc.prg
* utils/hbdoc/html.prg
* utils/hbdoc/ffile1.prg
* utils/hbdoc/ft_funcs.prg
* utils/hbdoc/hbdoc.prg
* utils/hbdoc/troff.prg
* utils/hbdoc/genhtm.prg
* utils/hbdoc/genpdf1.prg
* utils/hbdoc/gentrf.prg
* utils/hbdoc/genrtf.prg
* utils/hbmake/fclass1.prg
* utils/hbmake/prb_stak.prg
* utils/hbmake/ffile1.prg
* utils/hbmake/ft_funcs.prg
* utils/hbmake/pickfile.prg
* utils/hbmake/hbmutils.prg
* More cleanups, formatting (filename casing, CA-Cl*pper, etc).
565 lines
15 KiB
Plaintext
565 lines
15 KiB
Plaintext
/*
|
||
* $Id$
|
||
*/
|
||
|
||
/*
|
||
* Las siguientes partes son derechos adquiridos de sus autores individuales.
|
||
* www - http://www.harbour-project.org
|
||
*
|
||
* Copyright 2000 Alejandro de G rate <alex_degarate@hotmail.com>
|
||
* Documentaci¢n en Espa¤ol de:
|
||
* CDOW(),CMONTH(),DATE(),CTOD(),DAY(),DAYS(), DOW(),DTOS(),
|
||
* DTOC(),ELAPTIME(),MONTH(),SECONDS(),SECS(),TIME(),YEAR()
|
||
*
|
||
* Copyright 2000 Luiz Rafael Culik <culik@sl.conex.net>
|
||
* Documentation en Ingl‚s de:
|
||
* CDOW(),CMONTH(),DATE(),CTOD(),DAY(),DAYS(), DOW(),DTOS(),
|
||
* DTOC(),ELAPTIME(),MONTH(),SECONDS(),SECS(),TIME(),YEAR()
|
||
*
|
||
* Vea doc/license.txt por los t‚rminos de la licencia.
|
||
*
|
||
*/
|
||
|
||
|
||
/* $DOC$
|
||
* $FUNCNAME$
|
||
* CDOW()
|
||
* $CATEGORY$
|
||
* Fecha
|
||
* $ONELINER$
|
||
* Convierte una fecha al Nombre del d¡a de la semana
|
||
* $SYNTAX$
|
||
* CDOW(<dFecha>) --> cDia
|
||
* $ARGUMENTS$
|
||
* <dFecha> Cualquier expresi¢n de fecha.
|
||
* $RETURNS$
|
||
* <cDia> El d¡a actual de la semana.
|
||
* $DESCRIPTION$
|
||
* Esta funci¢n devuelve una cadena de caracteres con el d¡a de la
|
||
* semana de una expresi¢n de fecha <dFecha> pasada (DOW=day of week en
|
||
* ingl‚s). Si una fecha NULL es pasada a la funci¢n, el valor de la
|
||
* funci¢n ser un byte NULL.
|
||
* $EXAMPLES$
|
||
* ? CDOW(DATE())
|
||
*
|
||
* IF CDOW( DATE() + 10) == "SUNDAY"
|
||
* ? "Este es un d¡a para el descanso."
|
||
* ENDIF
|
||
* $STATUS$
|
||
* R
|
||
* $COMPLIANCE$
|
||
* Esta funci¢n es totalmente compatible con CA-Cl*pper.
|
||
* $PLATFORMS$
|
||
* Todas
|
||
* $FILES$
|
||
* La librer¡a es rtl
|
||
* $SEEALSO$
|
||
* DAY(),DOW(),DATE(),CMONTH()
|
||
* $END$
|
||
*/
|
||
|
||
|
||
/* $DOC$
|
||
* $FUNCNAME$
|
||
* CMONTH()
|
||
* $CATEGORY$
|
||
* Fecha
|
||
* $ONELINER$
|
||
* Retorna una cadena de caracteres con el nombre del mes
|
||
* $SYNTAX$
|
||
* CMONTH(<dFecha>) --> cMes
|
||
* $ARGUMENTS$
|
||
* <dFecha> Cualquier expresi¢n de fecha.
|
||
* $RETURNS$
|
||
* <cMes> el nombre actual del mes
|
||
* $DESCRIPTION$
|
||
* Esta funci¢n retorna el nombre del mes (Enero, Febrero, etc.) de una
|
||
* expresi¢n de fecha <dFecha> pasada a ella.
|
||
* Si una fecha NULL es pasada a la funci¢n, el valor de la funci¢n ser
|
||
* un byte NULL.
|
||
* Nota: El valor devuelto depende del m¢dulo de lenguaje en uso.
|
||
* $EXAMPLES$
|
||
* ? CMONTH( DATE()) // resultado: Noviembre
|
||
*
|
||
* IF CMONTH( DATE() + 35) =="Diciembre"
|
||
* ? "Ha hecho compras para las fiestas ?"
|
||
* ENDIF
|
||
* $STATUS$
|
||
* R
|
||
* $COMPLIANCE$
|
||
* Esta funci¢n es totalmente compatible con CA-Cl*pper.
|
||
* $PLATFORMS$
|
||
* Todas
|
||
* $FILES$
|
||
* La librer¡a es rtl
|
||
* $SEEALSO$
|
||
* CDOW(),DATE(),MONTH(),YEAR(),DOW(),DTOC()
|
||
* $END$
|
||
*/
|
||
|
||
|
||
/* $DOC$
|
||
* $FUNCNAME$
|
||
* DATE()
|
||
* $CATEGORY$
|
||
* Fecha
|
||
* $ONELINER$
|
||
* Retorna la fecha actual del sistema operativo
|
||
* $SYNTAX$
|
||
* DATE() --> dFechaActual
|
||
* $ARGUMENTS$
|
||
* Ninguno
|
||
* $RETURNS$
|
||
* <dFechaActual>, la fecha actual del sistema.
|
||
* $DESCRIPTION$
|
||
* Esta funci¢n devuelve la fecha actual del sistema.
|
||
* $EXAMPLES$
|
||
* ? DATE()
|
||
* $TESTS$
|
||
* ? "Hoy es ",DAY( DATE())," de ",CMONTH( DATE())," de ",YEAR( DATE())
|
||
* $STATUS$
|
||
* R
|
||
* $COMPLIANCE$
|
||
* Esta funci¢n es totalmente compatible con CA-Cl*pper.
|
||
* $PLATFORMS$
|
||
* Todas
|
||
* $FILES$
|
||
* La librer¡a es rtl
|
||
* $SEEALSO$
|
||
* CTOD(),DTOS(),DTOC(),DAY(),MONTH(),CMONTH()
|
||
* $END$
|
||
*/
|
||
|
||
|
||
/* $DOC$
|
||
* $FUNCNAME$
|
||
* CTOD()
|
||
* $CATEGORY$
|
||
* Fecha
|
||
* $ONELINER$
|
||
* Convierte una cadena de caracteres a una expresi¢n de fecha
|
||
* $SYNTAX$
|
||
* CTOD(<cCadenaFecha>) --> dFecha
|
||
* $ARGUMENTS$
|
||
* <cCadenaFecha> Un fecha en el formato 'mm/dd/yy'
|
||
* $RETURNS$
|
||
* <dFecha> Una expresi¢n de fecha.
|
||
* $DESCRIPTION$
|
||
* Esta funci¢n convierte una fecha que ha sido aportada como una
|
||
* expresi¢n de caracteres a una expresi¢n de fecha. La expresi¢n de
|
||
* caracteres sera en la forma MM/DD/YY" (basada en el valor por defecto
|
||
* en SET DATE) o en el formato apropiado especificado por el comado
|
||
* SET DATE TO. Si una impropia cadena de caracteres es pasada a la
|
||
* funci¢n, un valor de fecha vac¡a ser retornado.
|
||
* $EXAMPLES$
|
||
* ? CTOD('12/21/00')
|
||
* $STATUS$
|
||
* R
|
||
* $COMPLIANCE$
|
||
* Esta funci¢n es totalmente compatible con CA-Cl*pper.
|
||
* $PLATFORMS$
|
||
* Todas
|
||
* $FILES$
|
||
* La librer¡a es rtl
|
||
* $SEEALSO$
|
||
* SET DATE,DATE(),DTOS()
|
||
* $END$
|
||
*/
|
||
|
||
|
||
/* $DOC$
|
||
* $FUNCNAME$
|
||
* DAY()
|
||
* $CATEGORY$
|
||
* Fecha
|
||
* $ONELINER$
|
||
* Retorna el n£mero de d¡a del mes en el rango de 0 a 31
|
||
* $SYNTAX$
|
||
* DAY(<cFecha>) --> nMes
|
||
* $ARGUMENTS$
|
||
* <cFecha> Cualquier expresi¢n v lida de fecha.
|
||
* $RETURNS$
|
||
* Retorna <nMes>, el valor num‚rico del d¡a del mes.
|
||
* $DESCRIPTION$
|
||
* Esta funci¢n retorna el valor num‚rico del d¡a del mes de una fecha.
|
||
* $EXAMPLES$
|
||
* ? DAY( CTOD("06/06/1944") ) // Resultado: 6
|
||
* ? DAY( DATE() + 6325)
|
||
* $STATUS$
|
||
* R
|
||
* $COMPLIANCE$
|
||
* Esta funci¢n es totalmente compatible con CA-Cl*pper.
|
||
* $PLATFORMS$
|
||
* Todas
|
||
* $FILES$
|
||
* La librer¡a es rtl
|
||
* $SEEALSO$
|
||
* CTOD(),DTOS(),DTOC(),DATE(),MONTH(),CMONTH()
|
||
* $END$
|
||
*/
|
||
|
||
|
||
/* $DOC$
|
||
* $FUNCNAME$
|
||
* DAYS()
|
||
* $CATEGORY$
|
||
* Fecha
|
||
* $ONELINER$
|
||
* Convierte los segundos transcurridos a d¡as.
|
||
* $SYNTAX$
|
||
* DAYS(<nSegundos> ) --> nDia
|
||
* $ARGUMENTS$
|
||
* <nSegundos> el n£mero de segundos.
|
||
* $RETURNS$
|
||
* Retorna el n£mero de d¡as transcurridos
|
||
* $DESCRIPTION$
|
||
* Esta funci¢n convierte <nSegundos> al n£mero equivalente de d¡as;
|
||
* 86399 segundos representan un d¡a, cero segundos es medianoche.
|
||
* $EXAMPLES$
|
||
* ? DAYS( 2434234)
|
||
* ? "Han transcurrido ", DAYS(63251)
|
||
* $STATUS$
|
||
* R
|
||
* $COMPLIANCE$
|
||
* Esta funci¢n es totalmente compatible con CA-Cl*pper.
|
||
* Nota: No esta documentada en las NG, ni en el manual en espa¤ol de
|
||
* CA-Cl*pper
|
||
* $PLATFORMS$
|
||
* Todas
|
||
* $FILES$
|
||
* La librer¡a es rtl
|
||
* $SEEALSO$
|
||
* SECONDS(),SECS(),ELAPTIME()
|
||
* $END$
|
||
*/
|
||
|
||
|
||
/* $DOC$
|
||
* $FUNCNAME$
|
||
* DOW()
|
||
* $CATEGORY$
|
||
* Fecha
|
||
* $ONELINER$
|
||
* Convierte una fecha al n£mero del dia de la semana (1-7)
|
||
* $SYNTAX$
|
||
* DOW(<dFecha>) --> nDia
|
||
* $ARGUMENTS$
|
||
* <dFecha> Cualquier expresi¢n v lida de fecha.
|
||
* $RETURNS$
|
||
* DOW() retorna el dia de la semana en la forma num‚rica <nDay>
|
||
* $DESCRIPTION$
|
||
* Esta funci¢n convierte un valor de fecha en un n£mero representando
|
||
* el dia de la semana. En el rango de 1 al 7, siendo 1 el dia Domingo
|
||
* y 7 el dia S bado.
|
||
* $EXAMPLES$
|
||
* ? DOW( DATE())
|
||
* ? DOW( DATE() - 6584)
|
||
* $STATUS$
|
||
* R
|
||
* $COMPLIANCE$
|
||
* Esta funci¢n es totalmente compatible con CA-Cl*pper.
|
||
* $PLATFORMS$
|
||
* Todas
|
||
* $FILES$
|
||
* La librer¡a es rtl
|
||
* $SEEALSO$
|
||
* DTOC(),CDOW(),DATE(),DTOS(),DAY()
|
||
* $END$
|
||
*/
|
||
|
||
|
||
/* $DOC$
|
||
* $FUNCNAME$
|
||
* DTOC()
|
||
* $CATEGORY$
|
||
* Fecha
|
||
* $ONELINER$
|
||
* Convierte un valor de fecha a una cadena de caracteres
|
||
* $SYNTAX$
|
||
* DTOC(<dFecha>) --> cFecha
|
||
* $ARGUMENTS$
|
||
* <dFechaString> Cualquier expresi¢n v lida de fecha.
|
||
* $RETURNS$
|
||
* Retorna la cadena de caracteres <cFecha> representando la fecha
|
||
* $DESCRIPTION$
|
||
* Esta funci¢n convierte una expresi¢n de fecha (sea un campo ¢ una
|
||
* variable) expresada como <dFecha> a una expresi¢n de caracteres en el
|
||
* formato por defecto "MM/DD/YY". El formato de fecha devuelto por esta
|
||
* funci¢n es controlado por el formato especificado por el comando
|
||
* SET DATE y es variable a diferencia del devuelto por la funci¢n
|
||
* DTOS().
|
||
* $EXAMPLES$
|
||
* ? DTOC( DATE())
|
||
* $STATUS$
|
||
* R
|
||
* $COMPLIANCE$
|
||
* Esta funci¢n es totalmente compatible con CA-Cl*pper.
|
||
* $PLATFORMS$
|
||
* Todas
|
||
* $FILES$
|
||
* La librer¡a es rtl
|
||
* $SEEALSO$
|
||
* SET DATE,DATE(),DTOS()
|
||
* $END$
|
||
*/
|
||
|
||
|
||
/* $DOC$
|
||
* $FUNCNAME$
|
||
* DTOS()
|
||
* $CATEGORY$
|
||
* Fecha
|
||
* $ONELINER$
|
||
* Convierte un valor de fecha a una cadena en el formato AAAAMMDD
|
||
* $SYNTAX$
|
||
* DTOS(<dFecha>) --> cFecha
|
||
* $ARGUMENTS$
|
||
* <dFecha> Cualquier expresi¢n v lida de fecha.
|
||
* $RETURNS$
|
||
* DTOS() retorna <cFecha>
|
||
* $DESCRIPTION$
|
||
* Esta funci¢n convierte un valor de fecha a una cadena de 8 caracteres
|
||
* en el formato AAAAMMDD (no contiene separadores). Si el valor de
|
||
* <dFecha> es una fecha vac¡a, esta funci¢n retorna una cadena de
|
||
* caracteres de 8 espacios en blanco.
|
||
* $EXAMPLES$
|
||
* ? DTOS( DATE())
|
||
* $STATUS$
|
||
* R
|
||
* $COMPLIANCE$
|
||
* Esta funci¢n es totalmente compatible con CA-Cl*pper.
|
||
* $PLATFORMS$
|
||
* Todas
|
||
* $FILES$
|
||
* La librer¡a es rtl
|
||
* $SEEALSO$
|
||
* DTOC(),DATE(),DTOS()
|
||
* $END$
|
||
*/
|
||
|
||
|
||
/* $DOC$
|
||
* $FUNCNAME$
|
||
* ELAPTIME()
|
||
* $CATEGORY$
|
||
* Hora
|
||
* $ONELINER$
|
||
* Calcula el tiempo transcurrido.
|
||
* $SYNTAX$
|
||
* ELAPTIME(<cHoraInicial>,<cHoraFinal>) --> cTranscurrido
|
||
* $ARGUMENTS$
|
||
* <cHoraInicial> Hora de inicio en el formato de cadena HH:MM:SS
|
||
* <cHoraFinal> Hora de finalizaci¢n en el formato de cadena HH:MM:SS
|
||
* $RETURNS$
|
||
* <cTranscurrido> Diferencia entre tiempos
|
||
* $DESCRIPTION$
|
||
* Esta funci¢n devuelve una cadena que muestra la diferencia entre la
|
||
* hora inicial representada por <cHoraInicial> y la hora final
|
||
* representada por <cHoraFinal>. Si la hora de inicio es mayor que la
|
||
* de finalizaci¢n, la funci¢n asume que la fecha a cambiado una vez.
|
||
* $EXAMPLES$
|
||
* // Muestra el tiempo que se uso el programa parecido a como lo
|
||
* // hac¡a el viejo Norton Utilities
|
||
* STATIC cHoraIni // al inicio del programa
|
||
* cHoraIni := TIME()
|
||
*
|
||
* // A la salida del programa
|
||
* ? "Ud. ha usado el programa durante: ", ELAPTIME( cHoraIni, TIME())
|
||
* QUIT
|
||
* $STATUS$
|
||
* R
|
||
* $COMPLIANCE$
|
||
* Esta funci¢n es totalmente compatible con CA-Cl*pper.
|
||
* $PLATFORMS$
|
||
* Todas
|
||
* $FILES$
|
||
* La librer¡a es rtl
|
||
* $SEEALSO$
|
||
* SECS(),SECONDS(),TIME(),DAY()
|
||
* $END$
|
||
*/
|
||
|
||
|
||
/* $DOC$
|
||
* $FUNCNAME$
|
||
* MONTH()
|
||
* $CATEGORY$
|
||
* Fecha
|
||
* $ONELINER$
|
||
* Extrae el mes como valor num‚rico de un valor de fecha dado
|
||
* $SYNTAX$
|
||
* MONTH(<dFecha>) --> nMes
|
||
* $ARGUMENTS$
|
||
* <dFecha> Cualquier expresi¢n v lida de fecha.
|
||
* $RETURNS$
|
||
* MONTH() retorna <nMes>, n£mero correspondiente al mes del a¤o, en el
|
||
* rango de 0 a 12.
|
||
* $DESCRIPTION$
|
||
* Esta funci¢n devuelve el valor num‚rico del mes contenido en <dFecha>.
|
||
* Este valor esta en el formato de cuatro d¡gitos y no es afectado
|
||
* por el seteo de los comandos SET CENTURY y SET DATE.
|
||
* Si se pasa una fecha vac¡a CTOD("") a esta funci¢n devuelve el valor
|
||
* cero.
|
||
* $EXAMPLES$
|
||
* ? Month(DATE())
|
||
* $STATUS$
|
||
* R
|
||
* $COMPLIANCE$
|
||
* Esta funci¢n es totalmente compatible con CA-Cl*pper.
|
||
* $PLATFORMS$
|
||
* Todas
|
||
* $FILES$
|
||
* La librer¡a es rtl
|
||
* $SEEALSO$
|
||
* CDOW(),DOW(),YEAR(),CMONTH()
|
||
* $END$
|
||
*/
|
||
|
||
|
||
/* $DOC$
|
||
* $FUNCNAME$
|
||
* SECONDS()
|
||
* $CATEGORY$
|
||
* Hora
|
||
* $ONELINER$
|
||
* Retorna el n£mero de segundos transcurridos desde medianoche.
|
||
* $SYNTAX$
|
||
* SECONDS() --> nSegundos
|
||
* $ARGUMENTS$
|
||
* Ninguno
|
||
* $RETURNS$
|
||
* SECONDS() retorna <nSegundos> desde la medianoche.
|
||
* $DESCRIPTION$
|
||
* Esta funci¢n devuelve un valor num‚rico representando el n£mero de
|
||
* segundos transcurridos desde la medianoche del d¡a actual, basado en
|
||
* la hora actual del sistema operativo.
|
||
* SECONDS() se inicializa en cero (medianoche) y continua hasta 86399
|
||
* segundos (23:59:59). El valor que devuelve es expresado como segundos
|
||
* y cent‚simas de segundo.
|
||
* $EXAMPLES$
|
||
* // Muestra el tiempo que estuvo en ejecuci¢n una rutina
|
||
* nArranque = SECONDS()
|
||
*
|
||
* // Aca va la llamada a la rutina
|
||
* // : :
|
||
* ? "Tard¢: ", SECONDS()- nArranque ," segundos"
|
||
* $STATUS$
|
||
* R
|
||
* $COMPLIANCE$
|
||
* Esta funci¢n es totalmente compatible con CA-Cl*pper.
|
||
* $PLATFORMS$
|
||
* Todas
|
||
* $FILES$
|
||
* La librer¡a es rtl
|
||
* $SEEALSO$
|
||
* TIME()
|
||
* $END$
|
||
*/
|
||
|
||
|
||
/* $DOC$
|
||
* $FUNCNAME$
|
||
* SECS()
|
||
* $CATEGORY$
|
||
* Hora
|
||
* $ONELINER$
|
||
* Retorna el n£mero de segundos de la hora del sistema.
|
||
* $SYNTAX$
|
||
* SECS( <cHora> ) --> nSegundos
|
||
* $ARGUMENTS$
|
||
* <cHora> Expresi¢n de caracteres en el formato de tiempo HH:MM:SS
|
||
* $RETURNS$
|
||
* SECS() retorna <nsegundos> Numbero de segundos
|
||
* $DESCRIPTION$
|
||
* Esta funci¢n devuelve un valor num‚rico que es el n£mero de segundos
|
||
* transcurridos desde medianoche, basados en una cadena de hora dado
|
||
* como <cHora>.
|
||
* $EXAMPLES$
|
||
* ? SECS( TIME())
|
||
* ? SECS( TIME() - 10)
|
||
* $STATUS$
|
||
* R
|
||
* $COMPLIANCE$
|
||
* Esta funci¢n es totalmente compatible con CA-Cl*pper.
|
||
* Nota: No esta documentada en las NG, ni en el manual en espa¤ol de
|
||
* CA-Cl*pper.
|
||
* $PLATFORMS$
|
||
* Todas
|
||
* $FILES$
|
||
* La librer¡a es rtl
|
||
* $SEEALSO$
|
||
* SECONDS(),ELAPTIME(),TIME()
|
||
* $END$
|
||
*/
|
||
|
||
|
||
/* $DOC$
|
||
* $FUNCNAME$
|
||
* TIME()
|
||
* $CATEGORY$
|
||
* Hora
|
||
* $ONELINER$
|
||
* Retorna la hora del sistema como una cadena de caracteres
|
||
* $SYNTAX$
|
||
* TIME() --> cHora
|
||
* $ARGUMENTS$
|
||
* Ninguno
|
||
* $RETURNS$
|
||
* TIME() retorna la cadena de caracteres <cHora> representando la hora
|
||
* $DESCRIPTION$
|
||
* Esta funci¢n devuelve la hora del sistema representada como una
|
||
* expresi¢n de caracteres en el formato HH:MM:SS, para calculos de
|
||
* tiempo conviene usar SECONDS().
|
||
* $EXAMPLES$
|
||
* ? TIME() // Resultado: 21:34:12
|
||
* $STATUS$
|
||
* R
|
||
* $COMPLIANCE$
|
||
* Esta funci¢n es totalmente compatible con CA-Cl*pper.
|
||
* $PLATFORMS$
|
||
* Todas
|
||
* $FILES$
|
||
* La librer¡a es rtl
|
||
* $SEEALSO$
|
||
* DATE(),SECONDS()
|
||
* $END$
|
||
*/
|
||
|
||
|
||
/* $DOC$
|
||
* $FUNCNAME$
|
||
* YEAR()
|
||
* $CATEGORY$
|
||
* Fecha
|
||
* $ONELINER$
|
||
* Extrae el a¤o como valor num‚rico de un valor de fecha dado
|
||
* $SYNTAX$
|
||
* YEAR(<dFecha>) --> nAno
|
||
* $ARGUMENTS$
|
||
* <dFecha> Cualquier expresi¢n v lida de fecha.
|
||
* $RETURNS$
|
||
* YEAR() retorna <nAno> la porci¢n de a¤o de una fecha.
|
||
* $DESCRIPTION$
|
||
* Esta funci¢n devuelve el valor num‚rico del a¤o contenido en <dFecha>
|
||
* Este valor esta en el formato de cuatro d¡gitos y no es afectado
|
||
* por el seteo de los comandos SET CENTURY y SET DATE.
|
||
* Si se pasa una fecha vac¡a CTOD("") a esta funci¢n devuelve el valor
|
||
* cero.
|
||
* $EXAMPLES$
|
||
* ? YEAR( DATE()) // Resultado: 2000
|
||
* ? YEAR( CTOD("01/31/1982")) // Resultado: 1982
|
||
* $STATUS$
|
||
* R
|
||
* $COMPLIANCE$
|
||
* Esta funci¢n es totalmente compatible con CA-Cl*pper.
|
||
* $PLATFORMS$
|
||
* Todas
|
||
* $FILES$
|
||
* La librer¡a es rtl
|
||
* $SEEALSO$
|
||
* DAY(),MONTH()
|
||
* $END$
|
||
*/
|
||
|
||
|