convert excel function to vba

EDAR · #1 (**permalink**) 03-22-10, 10:37

I need to write the following function used in an excelsheet in vba, but my knowledge of excel is to weak to understand fully the formula. Can anybody help me ?

function:

=IF(AND(B31<TODAY();B32<TODAY();B33<TODAY();B34<TO DAY();OR(ISBLANK(B36);B36=2));2;IF(AND(B31<TODAY() ;B32<TODAY();B33<TODAY();B34<TODAY();B36=4);4;IF(O R(B31>TODAY();B32>TODAY();B33>TODAY();B34>TODAY(); AND(B31<TODAY();B32<TODAY();B33<TODAY();B34<TODAY( );B36 = 1));1;"error")))

Thanks in advance

Colin Legg · #2 (**permalink**) 03-22-10, 12:38

Hi,

In VBA pseudocode, the formula translates to:

Code:

If (B31:B34 are all less than today) And ( either (B36 is empty) Or (B36 = 2) ) Then
    Function Value = 2
 
ElseIf (B31:B34 are all less than today) And (B36 = 4) Then
   Function Value = 4
 
ElseIf (Any of B31:B34 are greater than today) Or ( (B31:B34 are all less than today) And (B36 = 1) ) Then
    Function Value = 1
 
Else
   Function Value = "Error"
 
End If

Only you can tell whether or not the logic of that formula is correct!

Hope that helps..

EDAR · #3 (**permalink**) 03-23-10, 02:22

Thanks Colin,
this was all I needed.

Eddy

Internet Services

Web Development

Digital Marketing

Consumer Tech