Calendario en Pascal

En dias pasados me tope con una liga del foro
www.lawebdelprogramador.
para ser mas exactos en esta liga
http://www.lawebdelprogramador.com/news/mostrar_new.php?id=69&texto=Pascal/Turbo+Pascal&n1=549029&n2=0&n3=0&n4=0&n5=0&n6=0&n7=0&n8=0&n9=0&n0=0
en el foro de pascal, donde solicitaban un calendario. yo nunca antes habia intentado hacerlo emprendi la tarea y he aqui los resultados, claro esto se realizo en mis cortos tiempos libres , por eso es que fue tardado.., proximamente compartire el codigo en www.solocodigo.com, en el foro de pascal.


algunas imagenes del code:






















imagenes del resultado en pantalla
cabe recalcar, que se puede ubicar el almanaque en pantalla ya que se cuenta con parametros tales como la fecha, columna, renglon, color texto, color fondo, que son caracteristicos para darle atributos












Una de la propiedades es que se puede desplazar con la flechas para modificar los meses y los años, ademas de seleccionar el dia del mes en que desee que termine la seleccion

















la funcion termina hasta darle la tecla ESC, o Enter en la opcion OK












Este ejemplo arroja la siguiente fecha 27-05-2000





Mas imagenes , con el cambio de colores:
























































el cuerpo del programa
queda asi

{cuerpo del programa}
var
Tecla:char;
Fecha:String[10];
Begin
textattr:=14+1*16;
clrscr;
Fecha:=formatDateTime('DD/MM/YYYY',Date);
Tecla:= FechaAlmanaque(Fecha,10,12,2,7); {fecha,columna,Renglon,color texto, color fondo, arroja una tecla de salida, que les podria servir en un futuro}

write (fecha);
readkey;
End.

aqui donde descargar el codigo ...
http://foros.solocodigo.com/viewtopic.php?f=34&t=41671
tendran que registrarse