Problems Calling A Function

[Phantom715]

There is no Case 0. It should always be sending a DayOfWeek. There is a similar Case statement for each day of the week. Or maybe I didn't understand your question. :laugh:

[nlarson11]

oooooooops misread your code.

'Never argue with an idiot; they'll drag you down to their level and beat you with experience.' ~ anonymous 'Life's real failure is when you do not realize how close you were to success when you gave up.' ~ anonymous

[Caio Kinzel Filho]

Is your return type of getCurrentDayOfWeek(), DayOfWeek? In which point did you try getCurrentDayOfWeek(dayShortName) in the debugger?

Intelligence is almost useless for those who have nothing else! Email: caiokf@gmail.com

[Phantom715]

Caio Kinzel Filho wrote:

Is your return type of getCurrentDayOfWeek(), DayOfWeek?

Yes it is.

Caio Kinzel Filho wrote:

In which point did you try getCurrentDayOfWeek(dayShortName) in the debugger?

As soon as dayShortName was set, right before the problem function call.

[Caio Kinzel Filho]

can you post your getCurrentDayOfWeek function? I tryied here and works fine...

Intelligence is almost useless for those who have nothing else! Email: caiokf@gmail.com

[Phantom715]

No problem.

Private Function getCurrentDayOfWeek(ByVal dayName As String) As DayOfWeek
    Select Case dayName
        Case "su"
            getCurrentDayOfWeek = DayOfWeek.Sunday
        Case "mo"
            getCurrentDayOfWeek = DayOfWeek.Monday
        Case "tu"
            getCurrentDayOfWeek = DayOfWeek.Tuesday
        Case "we"
            getCurrentDayOfWeek = DayOfWeek.Wednesday
        Case "th"
            getCurrentDayOfWeek = DayOfWeek.Thursday
        Case "fr"
            getCurrentDayOfWeek = DayOfWeek.Friday
        Case "sa"
            getCurrentDayOfWeek = DayOfWeek.Saturday
    End Select
    Return getCurrentDayOfWeek
End Function

[Caio Kinzel Filho]

I did this:

MsgBox(getlabel(DayOfWeek.Sunday, 1))
MsgBox(getlabel(getCurrentDayOfWeek("su"), 1))

with your function and (for shortness..):

    Function getlabel(ByVal day As DayOfWeek, ByVal calendarRow As Integer) As String
        Select Case day  'Get a label name
            Case DayOfWeek.Sunday
                Select Case calendarRow
                    Case 1
                        Return "Sunday"
                End Select
            Case DayOfWeek.Monday
                Select Case calendarRow
                    Case 1
                        Return "Monday"
                End Select
            Case DayOfWeek.Tuesday
                Select Case calendarRow
                    Case 1
                        Return "Tuesday"
                End Select
        End Select
    End Function

And it works...other than that...i think you will have to post your entire code...

Intelligence is almost useless for those who have nothing else! Email: caiokf@gmail.com

[Caio Kinzel Filho]

There is no way the CInt(ClickedLabel.Name.Substring(0, 4))).Name could have changed between your calls, and have no valid data in your call using getCurrentDayOkWeek ??

Intelligence is almost useless for those who have nothing else! Email: caiokf@gmail.com

[Phantom715]

I am having difficulty following what people are asking me - I'm new to this, sorry. I have included the entire project at: http://www.ulc119.com/assignmentsheet.zip[^] Any help would be wonderful. Thanks! :-D

[Caio Kinzel Filho]

The link doesn't work for me...send it to my email and I will take a look...caiokf@gmail.com Regards

Intelligence is almost useless for those who have nothing else! Email: caiokf@gmail.com