How to use a String Array for passing Values

[SEhtesham]

Hi,

I have a simple query but im just not able to get it right.

Have a look at my sample code below

Sub Function1
 
My Code Here
Function2(Year,Month)
 
End Sub
 
Sub Function2(Year,Month)
Dim Str as String()
 
for 1 to 30
Dim MyDate As New Date(Year, Month, i)
Str = MyDate.DayOfWeek.ToString()
Next
Return Str
 
End Sub
 

Function 2 Is used to get the Name of the Day.

Year and Month Parameter is Passed from Function 1 like this Function2(Year, Month)

My issue is

1)i want to add names of all the 30 days into one array

2)How can i return that array to Function1

3)Howe can i use that Array in Function 1 and assign each name to individual variable.

Please Suggest

[!NoItAll]

 
Dim str() as String
Dim MyDate as Date
for 0 to 30
    Redim Preserve str(i)
    try
        Str(i) = MyDate.DayOfWeek.ToString()
    Catch
        Exit For
    End try
Next
 
Return Str
 
 

Check the str.length to see how many days you have - not all months have the same number of days...