• Domingo 15 de Diciembre de 2019, 05:58

Autor Tema:  Aporte , Calendario  (Leído 744 veces)

epayan

  • Miembro activo
  • **
  • Mensajes: 41
  • Nacionalidad: mx
    • Ver Perfil
    • http://www.pillin-slk.blogspot.com
Aporte , Calendario
« en: Jueves 10 de Diciembre de 2009, 04:43 »
0
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/
El mensaje contiene 1 archivo adjunto. Debes ingresar o registrarte para poder verlo y descargarlo.