jhd
02-25-2012, 11:25 AM
Hi, I'm having some trouble when using the Weekday function, it returns me incompatible types error.
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
Any idea about what can be wrong?
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
Any idea about what can be wrong?