functin for 14th working day of every month

[mathangisankar]

any help is great for me
function gives the resule of the date of 14th working day of every month

 

[SkipVought]

Hi,

What have you go so far?

Skip,

_{Did you hear what happened when the OO programmer lost his library?...
He's now living in OBJECT poverty!}

 

[SkipVought]

Actually, check out the WORKDAY function in the Analysis Toolpac addin.

Skip,

_{Did you hear what happened when the OO programmer lost his library?...
He's now living in OBJECT poverty!}

 

[mathangisankar]

first staring itself enter 14the working day
so i just enter manually sendkeys <manually enter>
but i need the functin for that
i found this code from this site only is it anything i can modify this code getting 14th wroking day.
Sub Main
dtmScrape = datevalue("01/22/2008")
dtmScrape = Format(dtmScrape,"mm/dd/yyyy")
If ElseIf day(dtmScrape) < 8 Then
MsgBox "<8"
sDay = "14"
sMonth = Left(dtmScrape,2)
End If
If sMonth = "0" Then sMonth = "12"
dtmScrape = dateValue(sMonth & "/" & sDay & "/" & right(dtmScrape,4))
dtmScrape = Format(dtmScrape,"mm/dd/yyyy")
MsgBox dtmScrape
dtmScrape = Format(dtmScrape,"dd/mm/yyyy")
MsgBox dtmScrape
End Sub

 

[SkipVought]

Forget VBA. Use the WORKDAY Function in the Analysis ToolPac Addin.

Skip,

_{Did you hear what happened when the OO programmer lost his library?...
He's now living in OBJECT poverty!}

 

[mathangisankar]

you are saying should addin fuction in excel sheet.
is ir right skip.

 

[mathangisankar]

you mean i should addin function in excel ? is it write

 

[SkipVought]

Yes, it is a simple spreadsheet function.

Skip,

_{Did you hear what happened when the OO programmer lost his library?...
He's now living in OBJECT poverty!}

 

[mathangisankar]

skip
i got it .