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