Mes: diciembre 2017

En Windev, existe la función: DateValid (https://help.windev.com/?3027003), que podemos usar así

IF DateValid(«20180101») then
*- Fecha válida
ELSE
*- Fecha inválida
END

Esta función pone en mayúsuculas la primera leta de cada palabra de una cadena:

lcCadena is string = ‘WIN DEV’

PROPER(lcCadena) && Muestra «Win Dev»

===================================

PROCEDURE PROPER(LOCAL sCadena is string):string
sReturn is string
arrWord is array of ANSI string
StringToArray(sCadena, arrWord,» «)
FOR EACH sPalabra OF arrWord
sReturn += Upper(sPalabra[[1]]) + Lower(Middle(sPalabra, 2)) + » »
END
RESULT NoSpace(sReturn)