modulemarks.bas

codding for pszone one can use it at playstation zones

Attribute VB_Name = "Module1"
Function FUN_TOT(ENGMARK, ACCMARK, ECOMARK, BSTMARK, IPMARK)
FUN_TOT = ENGMARK + ACCMARK + ECOMARK + BSTMARK + IPMARK
End Function
Function FUN_PER(TOTMARK)
FUN_PER = TOTMARK / 5
End Function
Function FUN_GRADE(PERCENTAGE) As String
If PERCENTAGE >= 80 Then
FUN_GRADE = "A"
ElseIf PERCENTAGE >= 70 And PERCENTAGE < 80 Then
FUN_GRADE = "B"
ElseIf PERCENTAGE >= 60 And PERCENTAGE < 70 Then
FUN_GRADE = "C"
ElseIf PERCENTAGE >= 70 And PERCENTAGE < 60 Then
FUN_GRADE = "B"
Else
FUN_GRADE = "E"
End If

End Function