Por: Marx El evento lost focus se activa cuando el foco o cursor deja de estar en el objeto, utilizaremos este evento en el text 1, ingresar una fecha escribiendo -(guiones) entre el dia -mes-año, el programa verifica que sea una fecha valida, de ser lo hará una resta regresando el numero de días que restan del año. Ingrese en el formulario 1 cuadro de texto, 1 label y 1 botón de comando Este es el codigo : Option Explicit Private Sub Command 1_ Click () ' envia el focus al text 1 Text 1_ LostFocus End Sub Private Sub Text 1_ LostFocus () 'evento focus Dim AFecha , Ndias 'Verifica que sea una fecha valida If IsDate ( Text 1. Text ) Then 'convierte el contenido del text 1 en fecha AFecha = CDate ( Text 1. Text ) 'resta los dias que hay hasta fin de año Ndias = DateSerial ( Year ( AFecha ) + 1, 1, 1) - AFecha Label 1. Caption = "Quedan " & Ndi
Comentarios