FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour funcion esfecha(cValor)
Posts: 563
Joined: Sun Oct 09, 2005 07:23 PM

funcion esfecha(cValor)

Posted: Sun Dec 24, 2006 08:57 AM

function esfecha(cValor)
return iif(dtos(ctod(cValor))=space(8),.f.,.t.)

Cuando se le pasa una cadena de caranteres determina si la misma es una fecha o no.

Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM

funcion esfecha(cValor)

Posted: Tue Dec 26, 2006 11:43 AM

Function esfecha(cValor)
Return IF(VALTYPE(cValor)="D", .t., .f.)

creo que asi seria mas preciso--- :D )

Posts: 563
Joined: Sun Oct 09, 2005 07:23 PM

funcion esfecha(cValor)

Posted: Tue Dec 26, 2006 06:33 PM

NO, porque lo que se pretende es que teniendo como entrada de la funcion una variable tipo caracter (de ahí la c de la variable cValor), la función determine si el contenido de la misma es una fecha o una cadena de caracteres.

Esto lo utilizo en una función de búsqueda, en la que puedo buscar las facturas por factura o por fecha de la factura, para no tener que hacer un menú previo para elegir porqué campo buscar.

Saludos.

Continue the discussion