Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Dim datval As Date
dim myDayVal as int
dim startDate as date
datval = "01/01/2010"
myDayVal = datval.DayOfWeek
'check for saturday
if myDayVal = 6 then myDayVal = -1
mydayval = ((mydayval - 5) * -1)
'first fiday
startdate = dateadd(d,mydayval,startdate)
'get friday date
msgbox (dateadd(w,10,startdate)