Solved

Need help creating a Function

Posted on 2002-03-19
4
136 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

6 Surprising Benefits of Threat Intelligence

All sorts of threat intelligence is available on the web. Intelligence you can learn from, and use to anticipate and prepare for future attacks.

Join & Write a Comment

If you have ever used Microsoft Word then you know that it has a good spell checker and it may have occurred to you that the ability to check spelling might be a nice piece of functionality to add to certain applications of yours. Well the code that…
Background What I'm presenting in this article is the result of 2 conditions in my work area: We have a SQL Server production environment but no development or test environment; andWe have an MS Access front end using tables in SQL Server but we a…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

743 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

14 Experts available now in Live!

Get 1:1 Help Now