Need Calendar Help

[Alex]

Has anyone written a routine to find the day before the current date? In other words, if it's April 3rd, 2004, I need a routine that give me April 2nd, 2004. This needs to handle such issues as leap years, months with 31, 30, or 28 days, etc.

Thanks,

Alex

[PB]

Code: Select all

today=Date()
yesterday=AddDate(today,#PB_Date_Day,-1)
Debug FormatDate("%dd-%mm-%yyyy",yesterday)

[Alex]

Cool! Thankyou!

Alex

Code: Select all

today=Date()
yesterday=AddDate(today,#PB_Date_Day,-1)
Debug FormatDate("%dd-%mm-%yyyy",yesterday)

[TerryHough]

Good reply and example, PB.

Now here is a bit more of a challenge for you.

I need to determined the date of the second Friday following any given date. Example: Today is 10 Apr. I need the date of the second folloing Friday, 21 Apr.

How simple can you make that one?

Terry

[PB]

@TerryHough: Need some more info first -- if today was Friday, does that
mean you want to get next Friday's date, or two Friday's later?

Edit: Anyway, here's what I have for now:

Code: Select all

today=Date() : friday=today
; Next line gets this Friday's date.
Repeat : friday=AddDate(friday,#PB_Date_Day,1) : check=DayOfWeek(friday) : Until check=5
friday=AddDate(friday,#PB_Date_Day,7) ; Now get the next Friday after the one just found.
Debug "Today is "+FormatDate("%dd-%mm-%yyyy",today)
Debug "Two Fridays away is "+FormatDate("%dd-%mm-%yyyy",friday)

[PB]

@Fred: This example...

Code: Select all

yesterday=AddDate(today,#PB_Date_Day,-1)

...leads me to request that AddDate be renamed to something like CalcDate
instead, as we're not always adding to the date at all. What do you think?

[TerryHough]

@TerryHough: Need some more info first -- if today was Friday, does that
mean you want to get next Friday's date, or two Friday's later?

If today is Friday, I still want the second following Friday.

Thanks for your example.

[Sparkie]

Try this one Terry...

Code: Select all

#Friday = 5

Procedure GetSecondFriday(xDate)
  dow = DayOfWeek(xDate)
  If dow < #Friday
    secondFriday = AddDate(xDate, #PB_Date_Day, 7 + (#Friday - dow))
  Else
    secondFriday = AddDate(xDate, #PB_Date_Day, 14 - (dow - #Friday))
  EndIf
  ProcedureReturn secondFriday
EndProcedure

checkDate = Date(2006, 4, 10, 0, 0, 0)
checkDate$ = FormatDate("%mm/%dd/%yyyy", checkDate)

MessageRequester("Second Friday from " + checkDate$ + " will be", FormatDate("%mm/%dd/%yyyy", GetSecondFriday(checkDate))) 

[TerryHough]

Thanks Sparkie!

Here is what I am using, includes features of yours and PB's and a bit
more efficient than either.

Code: Select all

SecondFriday = AddDate(Date(),#PB_Date_Day,9)
dow = DayOfWeek(SecondFriday)
If dow - 5                                                     ; Computed date is not a Friday
  SecondFriday = AddDate(SecondFriday, #PB_Date_Day,(5 - dow)) ; Adjust to following Friday
EndIf   
MessageRequester("Debug","The second Friday after today is " +FormatDate("%mm-%dd-%yyyy",SecondFriday),0) 

Thanks guys.
Terry

[PB]

@TerryHough: Mine was just a quick rush job before I left for work (that's
why I said I need more info first). But when I got home, Sparkie had posted
a better one, so I just didn't bother fixing mine.

[TerryHough]

@PB,
You solution was a big help! As was Sparkie's code.

I actually had a need for this, believe it or not. And this solution is
much simpler and elegant than the way I was previously doing it.

Thanks again,
Terry