Solved

Need help creating a Function

Posted on 2002-03-19
4
137 Views
Last Modified: 2010-05-02
I'm creating a program for a school that tracks students summer reading and gives them bonus points for each book that they read. I need help in creating the Function to calculate points in the following manner:

The first three books are worth 10 points each. The next three are worth 15 points each. And all books over six are worth 20 points each.
0
Comment
Question by:Gmoney
  • 2
4 Comments
 
LVL 49

Expert Comment

by:Ryan Chong
ID: 6881730
Hi Gmoney,

Something like this should works:

Dim points As Long

..

If rs.RecordCount > 6 Then

Points = rs.RecordCount * 20

Else

For i = 1 to rs.RecordCount

Select case i
Case 1 To 3
Points = Points + 10
Case 4 To 6
Points = Points + 20    
End Select

Next i

End If
0
 
LVL 49

Expert Comment

by:Ryan Chong
ID: 6881731
Public Function myPoints(Byval RCount As Long) As Long
Dim Points As Long
If RCount > 6 Then

Points = RCount * 20

Else

For i = 1 to RCount

Select case i
Case 1 To 3
Points = Points + 10
Case 4 To 6
Points = Points + 20    
End Select

Next i
myPoints = Points
End Function
0
 
LVL 1

Accepted Solution

by:
samsonite1023 earned 125 total points
ID: 6881788
Public Function PointsForBooks(numberRead as single) as single
dim tempPoints

If numberRead > 6 Then

   PointsForBooks = 75 + (numberRead - 6)*20

Else

   For i = 1 to numberRead
      Select case i
        Case 1 To 3
           tempPoints = tempPoints + 10
        Case 4 To 6
           tempPoints = tempPoints + 15
      End Select
   Next i

   PointsForBooks = tempPoints

EndIf

End Function


This should do it.
-Sam
0
 
LVL 6

Expert Comment

by:sharmon
ID: 6881842
And yet another way...

Public Function BooksToPoints(ByVal intBooks As Integer) As Integer
    If intBooks > 6 Then
        BooksToPoints = 75 + ((intBooks - 6) * 20)
    ElseIf intBooks > 3 Then
        BooksToPoints = 30 + ((intBooks - 3) * 15)
    ElseIf intBooks > 0 Then
        BooksToPoints = intBooks * 10
    End If
End Function
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Most everyone who has done any programming in VB6 knows that you can do something in code like Debug.Print MyVar and that when the program runs from the IDE, the value of MyVar will be displayed in the Immediate Window. Less well known is Debug.Asse…
I was working on a PowerPoint add-in the other day and a client asked me "can you implement a feature which processes a chart when it's pasted into a slide from another deck?". It got me wondering how to hook into built-in ribbon events in Office.
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

863 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

24 Experts available now in Live!

Get 1:1 Help Now