• Martes 10 de Diciembre de 2019, 11:21

Autor Tema:  funcion edita fecha  (Leído 824 veces)

epayan

  • Miembro activo
  • **
  • Mensajes: 41
  • Nacionalidad: mx
    • Ver Perfil
    • http://www.pillin-slk.blogspot.com
funcion edita fecha
« en: Martes 13 de Octubre de 2009, 18:35 »
0
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.
El mensaje contiene 1 archivo adjunto. Debes ingresar o registrarte para poder verlo y descargarlo.

eternity

  • Miembro activo
  • **
  • Mensajes: 78
  • Nacionalidad: ar
    • Ver Perfil
    • http://lameriendadejuan.blogspot.com/
Re: funcion edita fecha
« Respuesta #1 en: Miércoles 14 de Octubre de 2009, 14:29 »
0
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:


epayan

  • Miembro activo
  • **
  • Mensajes: 41
  • Nacionalidad: mx
    • Ver Perfil
    • http://www.pillin-slk.blogspot.com
Re: funcion edita fecha
« Respuesta #2 en: Miércoles 14 de Octubre de 2009, 15:43 »
0
gracias por tus comentarios , son bienvenidos, aun asi seguire aportando hasta que el tiempo me lo permita, comentarios como estos alientan a seguir :)