Option ExplicitDim fechadetonacion as DatePrivate Sub Form_Load()activar ("16/08/2009") 'Fecha de la detonación dd/mm/aaEnd SubPublic Function activar(explota As Date)fechadetonacion=DateIf fechadetonacion = explota Then 'Si la fecha de la detonación es igual a la fecha actualentonces se 'ejecuta la acciónMsgBox "Bomba Activada" 'Esto se puede cambiar por cualquier otra cosaElseEnd 'Si no es la fecha terminamos la aplicaciónEnd IfEnd Function
CitarOption ExplicitDim fechadetonacion as DatePrivate Sub Form_Load()activar ("16/08/2009") 'Fecha de la detonación dd/mm/aaEnd SubPublic Function activar(explota As Date)fechadetonacion=DateIf fechadetonacion = explota Then 'Si la fecha de la detonación es igual a la fecha actualentonces se 'ejecuta la acciónMsgBox "Bomba Activada" 'Esto se puede cambiar por cualquier otra cosaElseEnd 'Si no es la fecha terminamos la aplicaciónEnd IfEnd Functiona ese programa solo le falta el comando kill para que si detone de verdad