Trouble when using the weekday function

[sarahuff]

Hello,
When using the weekday function, I got a message error about incompatible types:

Sub MIX_FillDays(howmanydays As Integer, ByVal monthnumber As Integer, ByVal yearnumber As Integer)
    Dim fullday As String
    Dim dayoftheweek As Integer
    Dim dayname As String
    Dim ran As String    
    I = 1
    Sheets("taks1").Select    
    Do Until I = howmanydays
        fullday = I & "/" & monthnumber & "/" & yearnumber
        dayoftheweek = Weekday(fullday) '*** error happens here! ***
        Call MIX_TranslateWeekDayName(dayoftheweek, dayname)
        ran = "I" & I + 3
        Range(ran).Value = dayname
        I = I + 1
    Loop
End Sub

What does this error means? How can I solve it? Thanks

[arnelgp]

change it to:

I = 1
Sheets("taks1").Select
Do Until I = howmanydays
    ' fullday = I & "/" & monthnumber & "/" & yearnumber
    dayoftheweek = Weekday(DateSerial(yearnumber, monthnumber, i)         
    ' Weekday(fullday) '*** error happens here! ***
    Call MIX_TranslateWeekDayName(dayoftheweek,dayname)
    ran = "I" & I + 3
    Range(ran).Value = dayname
I = I + 1
Loop