domingo, 26 de junio de 2011

Formulario y Módulo: Fechas

Ante lo incomodo de introducir una fecha y la distintas formas de introducirlas (la podemos poner en formato español 01/12/2010, o americano 2010/12/01, o “uno de diciembre del dosmil diez”) vamos a mejorar la forma de introducir la fecha de nuestros datos, con un pequeño formulario que nos pasara al formato años/mes/dia (mejor para ordenar por fecha), fácilmente viendo un calendario.
Para ello crearemos un pequeño boton ToolButtonCalendario ,




que al ser pulsado llame a un nuevo formulario Ffechadia.pregustarhastafecha,
PUBLIC SUB ToolButtonCalendario_Click()
Ffechadia.Preguntarhastafecha
END
Creamos un nuevo formulario, la llamamos Ffechadia , con un boton “aceptar” y un datechooser que le llamaremos datechooserfecha, donde eligeremos la fecha.




Y con el siguiente codigo, dentro del formulario Ffechadia:
' Gambas class file
PUBLIC SUB DateChooserfecha_Change()
ME.Caption = DateChooserfecha.Value
END
PUBLIC SUB Form_Open()
ME.Caption = DateChooserfecha.Value
END
PUBLIC SUB Preguntarhastafecha()
Ffechadia.ShowModal
END


PUBLIC SUB ButtonAceptar_Click()
FMain.TextBoxFecha.text = Format(Ffechadia.DateChooserfecha.Value, "yyyy/mm/dd")
ME.Close
END


La funcion mas interesante es Format, que hace que la fecha que lee del DateChooserfecha, la convierta en formato año/mes/dia "yyyy/mm/dd"

No hay comentarios:

Publicar un comentario en la entrada