en ocasiones nos vemos en la necesidad de realizar trabajos en la escuela , en donde pidamos fechas y no contamos con una validacion adecuada. En caso de tener un maestro que se fije en todo , hasta en las validaciones..
pues bien , les hago una entrega de una funcion que valida, si la fecha es corecta o no tomando encuenta los años biciestos, en formato DD/MM/YYYY, de manera rapida que les sea de utilidad , mejoras acepto correcciones..
program editafechaprueba;
uses crt,utileria;
var
fecha:string[10];
tecla:char;
begin
textattr:=15+0*16;
clrscr;
textattr:=15+0*16;
gotoxy(10,10);write('Fecha : ');
tecla:=EditaFecha(Fecha,18,10,14,1);
textattr:=15+0*16;
gotoxy(10,20);write('El resultado es : ',Fecha);
readln;
end.
la funcion recoge una tecla de salida, que pudiera serles utiles en otras operaciones.
