Basic If, Then, ElseIf, Else question

User Name · Jan 21, 2011

If and ElseIfs have always given me fits. I have a couple of other places in my code where I use If, ElseIf, Else constructions. They seem to work. This one doesn't for some reason. Do I have a spacing problem? Any ideas?

PHP:

'This section of code calculates the incidence angle modifier (Kta)
INCAN = INCAN * Rad2Deg
    
If INCAN < 7 Then Kta = 1
ElseIf INCAN < 12 Then Kta = 0.9999
ElseIf INCAN < 15 Then Kta = 0.9998
ElseIf INCAN < 90 Then Kta = 0.01654 + (90 - INCAN) * 0.13686
Else: Kta = 0.01654
End If

INCAN = INCAN * Deg2Rad

BjornS · Jan 21, 2011

Perhaps:
Else: Kta = 0.01654 => Else Kta = 0.01654

User Name · Jan 21, 2011

It automatically puts the semi-colon if you put everything on one line. But you are essentially correct. I had a spacing problem. Thank you.

HTML:

'This section of code calculates the incidence angle modifier (Kta) 
INCAN = INCAN * Rad2Deg 
     
If INCAN < 7 Then 
Kta = 1 
ElseIf INCAN < 12 Then 
Kta = 0.9999 
ElseIf INCAN < 15 Then 
Kta = 0.9998 
ElseIf INCAN < 90 Then 
Kta = 0.01654 + (90 - INCAN) * 0.13686 
Else
Kta = 0.01654 
End If 

INCAN = INCAN * Deg2Rad

Ruddles · Jan 21, 2011

You coded a simple IF statement and then added the back end of a block IF statement. Have this:-

How to code IF statements

1) Simple IF with a single statement

Code:

   If condition Then x = 1

2) Simple IF with multiple statements

Code:

   If condition Then x = 1: a = ""

3) Block IF..THEN

Code:

   If condition Then
     x = 1
     a = "xxx"
   End If

4) Block IF..THEN..ELSE

Code:

   If condition Then
     x = 1
     a = "xxx"
   Else
     x = 2
     a = "yyy"
   End If

5) Block IF..THEN..ELSEIF

Code:

   If condition1 Then
     x = 1
     a = "xxx"
   ElseIf condition2 Then
     x = 2
     a = "yyy"
   End If

6) Block IF..THEN..ELSEIF..ELSE

Code:

   If condition1 Then
     x = 1
     a = "xxx"
   ElseIf condition2 Then
     x = 2
     a = "yyy"
   ElseIf condition3 Then
     x = 3
     a = "zzz"
   Else
     x = 4
     a = "xyz"
   End If

Ruddles · Jan 21, 2011

You might consider the SELECT statement which is rather more elegant when testing multiple conditions:-

How to code SELECT statements

1) Single test variable

Code:

   Select Case [I]variable[/I]
     Case 1, 3, 6 To 9
       x = 1
       a = "xxx"
     Case Is <= 100
       x = 2
       a = "yyy"
     Case Is <= 1000
       x = 3
       a = "zzz"
     Case Else
       x = 4
       a = "xyz"
   End Select

2) Multiple test variables

Code:

   Select Case True
     Case x < 100
       a = "xxx"
     Case a = "yyy", a = "zzz"
       x = 2
     Case Else
       x = 4
       a = "xyz"
   End Select

User Name · Jan 21, 2011

Thank you Ruddles... You have always been very helpful. I will bookmark this thread and see about using these techniques where possible.

wut · Jan 21, 2011

User Name said:
Thank you Ruddles... You have always been very helpful. I will bookmark this thread and see about using these techniques where possible.

.

Basic If, Then, ElseIf, Else question

User Name

Spammer

Excel Facts

BjornS

New Member

User Name

Spammer

Ruddles

Well-known Member

Ruddles

Well-known Member

User Name

Spammer

wut

Banned

Similar threads

Forum statistics

Share this page

Basic If, Then, ElseIf, Else question

User Name

Spammer

Excel Facts

BjornS

New Member

User Name

Spammer

Ruddles

Well-known Member

Ruddles

Well-known Member

User Name

Spammer

wut

Banned

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock