La
página Web de Emilio Sancha
|
|
Inicio | Access | Excel | Visual Script | Enlaces | Búsquedas | Apuntes | Libro de Visitas |
![]() |
'*********************************************************************************** '* esta función se utiliza para emular el anidamiento de ifs simplificandolo mucho '* es primordial resetear en la primera expresión, si no no funcionará '* permite enviar mensajes cuando no se cumpla un conjunto de condiciones '* uso: SeCumple x1 >= MIN, ,True '* SeCumple x2 <= MAX '* SeCumple x1 < x2 '* if SeCumple then ... si se cumplen todas las condiciones anteriores entonces... '* ESH 10/10/01 13:00 '***********************************************************************************
Public Function SeCumple(Optional vntExpresion As Variant, Optional vntAvisa As Variant = "", Optional vntResetea As Variant = False) As Boolean
Static bolResultado As Boolean
If vntResetea Then bolResultado = True End If ' vntResetea
If Not CBool(vntExpresion) And Len(vntAvisa) Then MsgBox "ATENCION: " & vntAvisa, vbInformation End If ' CBool(Expression) And Len(vntAvisa)
bolResultado = CBool(vntExpresion) And bolResultado
SeCumple = bolResultado
End Function ' SeCumple
End Function ' TamañoTabla
NOTA: La información contenida en esta página, así como el código fuente incluido en la misma, se proporciona TAL CUAL, sin garantías de ninguna clase, y no otorga derecho alguno. Usted asume cualquier riesgo al poner en práctica, utilizar o ejecutar lo explicado, recomendado o sugerido en la presenta página. This page is provided AS IS with no warranties, and confers no rights. You assume all risk for your use.
|
|||
Ultima actualización: Sábado, 15 de Octubre de 2016
|
© Emilio Sancha 2.004-2.016 |