Calendario
Fecha: 26-Jun-97
Autor: Guillermo Llanderas
Revisado el 23/Oct/97
Fecha: viernes 13 de junio de 1997
9:54
De: Guillermo Llanderas llander@pobox.com
Hace tiempo necesité un
calendario para pedir las fechas y busqué en tus páginas, pero
no encontré ninguno (aunque no las tengo actualizadas y puede
que hayas puesto uno últimamente O:-) ).
En un CD encontré un calendario hecho por un tal James Marlow y
que posteriormente modificó un tal Eka que me gustó, sobre todo
porque era freeware y era el código fuente por lo que se podía
personalizar.
Como no funcionaba bien debido al cambio de formato de fecha, lo
retoqué bastante.
Pulsa este link para bajar los listados para VB4-16bits (cale_gll.zip 12.5 KB)
Pulsa en este link para bajarte la versión revisada (Calengll.zip 12.8 KB)
Extracto del fichero Readme.txt
Revisi¢n 29/05/97 del Calendario
hecho por James Marlow y modificado por Eka
----------------------------------------------------------------------------
Si quieres consultarme algo, encuentras alg£n error o tienes
alguna sugerencia
que hacer, me puedes encontrar en:
InterNet: llander@pobox.com
FidoNet: 2:348/613.26
PoNet: 36:211/1.26
Guillermo de las Llanderas Fuentes
> ---------8<---------8<--------- CORTAR
---------8<---------8<---------
Este codigo es Freeware. Puedes usarlo, modificarlo y
distribuirlo libremente.
De todas formas, deja una referencia de los que lo hemos 'tocado'
antes como
recuerdo a nuestro trabajo. O:-)
Si lo usas es por tu cuenta y riesgo; yo no me responsabilizo de
los posibles
problemas que pueda causar. En mis pruebas me ha funcionado
perfectamente,
pero en esto de la informatica nunca se sabe...
Cambios hechos sobre la versi¢n de Eka:
- Modificado el form para que salgan los literales en espa¤ol.
- Modificado el form para que salga la columna del Domingo a la
derecha.
- Adaptado el c¢digo para que use el formato de fecha usado en
Espa¤a
(d¡a/mes/a¤o, en vez de mes/d¡a/a¤o).
- Cambio de los nombres de las funciones y variables,
reestructuraci¢n
del c¢digo y comentarios para hacerlo un poco m s 'visible'
(aunque
esto es muy discutible, depende de los gustos de cada uno).
- Corregido un error en el c lculo del m ximo n£mero
de d¡as de Febrero.
- A¤adido un control de errores en todos los procedimientos y
funciones
(para que la aplicaci¢n siga ejecut ndose en caso de que
haya un error).
Para usar el calendario:
- A¤adir al proyecto el formulario Calendar.frm y el m¢dulo
Calendar.bas.
- Poner el fichero Calendar.frx en el mismo directorio que el
formulario.
- Llamar a la funci¢n fvGetDate para pedir la fecha. Esta
funci¢n devuelve
la fecha seleccionada o False si el usuario di¢ a Escape.
Ejemplo:
Text1.Text = fvGetDate(Date)
Teclas usadas para el control del calendario:
- Cursores: con izquierda/derecha se retrocede/avanza un d¡a, y
con flecha
arriba/abajo, se sube/baja una semana.
- Inicio/fin: se va al primer/£ltimo d¡a del mes.
- P gina arriba/abajo: se retrocede/avanza un mes.
- Enter: se termina la ejecuci¢n seleccionando la fecha actual.
- Escape: se termina la ejecuci¢n si seleccionar ninguna fecha.
Se incluye un proyecto de ejemplo para mostrar el modo en que se
puede usar el
calendario. En el proyecto se llama al formulario mediante un
bot¢n en forma
de calendario.
El fichero cal.bmp contiene la imagen con los botones de
movimiento del form.
No es necesario para usar el calendario, pero s¡ para poder
modificarlo.
Los ficheros CalenDw.bmp y CalenUp.bmp contienes las
im genes mostradas en
el proyecto de ejemplo para representar al calendario.
El fichero Calendar.ico contiene el icono del proyecto y del
formulario.