vba expressions

[linger]

hi there,

i have 3 cases that i have to compare using VB. the psuedo code goes like this

case1
X is not equal to 0 & Y is not equal to 0
case 2
X = 0 and Y not equal 0
case 3
X not equal 0 and Y=0

can anyone give me an example of how the VBA code should look like? i've looked at examples in a book but they're very general and simple. thanks

yiling

 

[linger]

hi here's what i've been working on so far...i've only be learning VBA for the last 4 hours and I'm trying to write this function described above.

Option Compare Database
Option Explicit

Private Sub NullHandlingAvg()
Dim AvgTip As Double
Dim center As Double
Dim edge As Double
center = 4
edge = 3

'test1: center and edge are both not equal null

If center <> 0 And edge <> 0 Then
AvgTip = (center + edge) / 2
Debug.Print "test 1 AvgTip= " & AvgTip


ElseIf center <> 0 And edge = 0 Then
AvgTip = center
Debug.Print "Test 2 AvgTip= " & AvgTip

Else
AvgTip = edge
Debug.Print "Test 3 AvgTip= " & AvgTip

End If

End Sub

ling