VBA Function

[krishnaoptif]

Hi This function is not return right value bcause
k = "=Text(StartingDate.Value,""ddd"")" is not working

I need to take days name from startingDate parameter.

Please help me this is very urgent.

Public Function KKNetwokDaysPlush(K_DaysCount As Variant, StartingDate As Variant) As Variant

Dim k As Variant


While K_DaysCount >= 0
    k = "=Text(StartingDate.Value,""ddd"")"
  
    If k <> "Sat" Or k <> "Sun" Then
        K_DaysCount = K_DaysCount - 1
    
    End If
    
    StartingDate = StartingDate + 1
        
 Wend


KKNetwokDaysPlush = StartingDate

End Function

 

[ukmikeb]

Hi

Try -

k = Format(StartingDate.Value,"ddd")

hth

 

[Richard Schollar]

Hi

TEXT() is a worksheet function. The VBA equivalent is Format:

If Format(Range("A1").Value,"ddd") = "Sat" Then '...

 

[krishnaoptif]

Thanks...