SoloCodigo

Programación General => Pascal => Mensaje iniciado por: epayan en Martes 13 de Octubre de 2009, 18:35

Título: funcion edita fecha
Publicado por: epayan en Martes 13 de Octubre de 2009, 18:35
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..


Código: Pascal
  1.  
  2. program editafechaprueba;
  3. uses crt,utileria;
  4. var
  5.    fecha:string[10];
  6.    tecla:char;
  7. begin
  8.    textattr:=15+0*16;
  9.    clrscr;
  10.    textattr:=15+0*16;
  11.    gotoxy(10,10);write('Fecha : ');
  12.  
  13.    tecla:=EditaFecha(Fecha,18,10,14,1);
  14.  
  15.    textattr:=15+0*16;
  16.    gotoxy(10,20);write('El resultado es : ',Fecha);
  17.    readln;
  18.  
  19. end.
  20.  
  21.  
  22.  
  23.  


la funcion recoge una tecla de salida, que pudiera serles utiles en otras operaciones.
Título: Re: funcion edita fecha
Publicado por: eternity en Miércoles 14 de Octubre de 2009, 14:29
la única contra que le veo a tu utileria es que está hecha a tu medida y no genéricamente, sabes, es muy molesto estando en modo texto no tener el control de como saldrá representada la información que se requiere, y si encima hay que toquetear una librería como la que tu hiciste es muy engorroso, y basicamente poco mantenible.

exagerás usando gotoxy() y de mas esta decir que por hacer algo lindo, desde algun punto de vista se pierde la practicidad del programa.

sin mas que acotar

Atte.


Eternity :hola:
Título: Re: funcion edita fecha
Publicado por: epayan en Miércoles 14 de Octubre de 2009, 15:43
gracias por tus comentarios , son bienvenidos, aun asi seguire aportando hasta que el tiempo me lo permita, comentarios como estos alientan a seguir :)