ToolTip y función JanFirst

Fecha: 21/Ago/97
Autor: Emilio Gordo Lima

From: "Emilio Gordo Lima" <iefi@tsai.es>
Date sent: Sat, 9 Aug 1997 17:59:12 +0200

Hola!

Te envio una rutinilla para hacer tooltip, a ver que te parece ;)


Un saludo!
---


BallHelp.FRm
BallHelp.BAS

Con este modulo conseguimos un tooltip independiente de cualquier
formulario. Funciona tanto para proyextos SDI o MDI
Realizado en VB4-16
Supongo que no tienen ninguna complicacion hacerlo funcionar en
VB3 o en VB4-32 ;)

---------
Te mando tambien un "truquillo" que se me ocurrio ayyer mientras
hacia un formulario.... Es una gilipollez, pero bueno ;)


-----------------JanFirst()-----------
Muchas veces, cuando hay que poner intervalos de fecha y no se sabe el inicio
ponemos el uno de enero, y casi siempre, del año en que se desarrolla
la aplicacion. Pero claro, al año siguiente, pues ya no vale.
Esta simple funcion, devuelve el uno de enero del año en curso. ;)
se pude adaptar, para que devuelva, el ultimo tambien, claro ;)


Function JanFirst() As String
Dim Year As String

Year = Format$(Now, "yyyy")

JanFirst = Format$("01/01/" & Trim$(Year), "dd/mm/yyyy")



End Function
----------------

Ala, un saludete ;)

Pulsa en este link para bajar los listados de ejemplo. (tooltipEGL.zip 4.86 KB)
En las declaraciones del API, he añadido las declaraciones para 32 bits.