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
Program EjemploCalendario;
Uses crt,sysutils,Calendario;
{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,14,4);
write ('La Fecha es :',fecha);
readkey;
End.
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/
