date calculation

[senthilnathan1985]

plz help me ,to find week end dates between two dates.


for example,i selected two dates as starting and ending date in a textbox,from these in between dates i need to calculate every week end dates.

thanx
with regards
senthil

[mzmishra]

something like this may help you

Function f(ByVal FirstDate As Date,ByVal SecondDate As Date) As Long
Dim StartDate As Date
Dim EndDate As Date
'Place the dates in ascending order
If FirstDate > SecondDate Then
StartDate = SecondDate
EndDate = FirstDate
Else
StartDate = FirstDate
EndDate = SecondDate
End If
 
'How many FULL weeks are there within the date range
NumWeeks = (EndDate - StartDate) \ 7
 
'There are two non-working days in each full week
NowWorkingDaysBetween = NumWeeks * 2
 
'Add the number of non-working days in the remaining partial week
For d = (StartDate + NumWeeks * 7) To EndDate
If (Weekday(d) Mod 6) = 1 Then
NowWorkingDaysBetween = NowWorkingDaysBetween + 1
End If
Next
 
End Function

[acoder]

Please use code tags when posting code.

Your VB code now needs to be adapted to JavaScript. It shouldn't be too difficult using the Date object.