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.


ir al índice