SoloCodigo

Programación General => Pascal => Mensaje iniciado por: epayan en Jueves 10 de Diciembre de 2009, 04:43

Título: Aporte , Calendario
Publicado por: epayan en Jueves 10 de Diciembre de 2009, 04:43
En Otro foro vi que alguien solicitaba un calendario y la forma convencional de presentarlo en pantalla , por lo que he visto no hay alguno
he aqui mi granito de arena, aceptamos sugerencias y correcciones..espero le sirva a alguien, o cuando menos se de una idea para generar el suyo.

el siguiente es un ejemplo de una funcion que recoje un tecla, la funcion en si, dibuja un calendario desplegando los dias de la semana y la particularidad de manipular lo meses y los años con las flechas, ademas de tomar el dia segun se posicione el cursor.

nota: compilado en freepascal

Código: Pascal
  1.  
  2. Program EjemploCalendario;
  3. Uses crt,sysutils,Calendario;
  4. {cuerpo del programa}
  5. var
  6.   Tecla:char;
  7.   Fecha:String[10];
  8. Begin
  9.    textattr:=14+1*16;
  10.    clrscr;
  11.    Fecha:=FormatDateTime('DD/MM/YYYY',Date);
  12.    Tecla:= FechaAlmanaque(Fecha,10,12,14,4);
  13.    write ('La Fecha es :',fecha);
  14.    readkey;
  15. End.
  16.  
  17.  
  18.  


algunas imagenes :
h t t p:// 4.bp.blogspot.com/_5QIJNhCUCcc/Sx_nNDqOSCI/AAAAAAAAADY/ZjWfeb6V-IU/s1600-h/pantalla+fecha2.JPG
h t t p:// 3.bp.blogspot.com/_5QIJNhCUCcc/Sx_wf_uuskI/AAAAAAAAADw/oUTtOBgG0eY/s1600-h/pantalla+fecha8.JPG
h t t p:// www.pillin-slk.blogspot.com/ (http://www.pillin-slk.blogspot.com/" onclick="window.open(this.href);return false;)