Happy Birthday Fred!

For everything that's not in any way related to PureBasic. General chat etc...
User avatar
Thunder93
Addict
Addict
Posts: 1788
Joined: Tue Mar 21, 2006 12:31 am
Location: Canada

Re: Happy Birthday Fred!

Post by Thunder93 »

Happy Birthday Frédéric. You becoming little more wiser now, congrats! :lol: :P
ʽʽSuccess is almost totally dependent upon drive and persistence. The extra energy required to make another effort or try another approach is the secret of winning.ʾʾ --Dennis Waitley
User avatar
Kurzer
Enthusiast
Enthusiast
Posts: 664
Joined: Sun Jun 11, 2006 12:07 am
Location: Near Hamburg

Re: Happy Birthday Fred!

Post by Kurzer »

Happy Birthday, Fred.

Thank you for your reliable product that you have developed and supported over many years and thank you for being so faithful to yourself all the time. Stay as you are, because you are just a great person and developer.

Many congratulations and many more successful years.
Kurzer
PB 6.02 x64, OS: Win 7 Pro x64 & Win 11 x64, Desktopscaling: 125%, CPU: I7 6500, RAM: 16 GB, GPU: Intel Graphics HD 520, User age in 2023: 56y
"Happiness is a pet." | "Never run a changing system!"
User avatar
Demivec
Addict
Addict
Posts: 4086
Joined: Mon Jul 25, 2005 3:51 pm
Location: Utah, USA

Re: Happy Birthday Fred!

Post by Demivec »

Code: Select all

Procedure.s ordinal(number)
  Protected ordinalSuffix.s
  Select Right(Str(number), 1)
    Case "1": ordinalSuffix = "st"
    Case "2": ordinalSuffix = "nd"
    Case "3": ordinalSuffix = "rd"
    Default: ordinalSuffix = "th"
  EndSelect
  
  ProcedureReturn Str(number) + ordinalSuffix
EndProcedure

If Year(Date()) > 1977 And Year(Date()) < 2038
  currentBirthday = Year(Date()) - 1977
  
  If Month(Date()) = 4 And Day(Date()) = 1
    Expression$ = "Happy " + ordinal(currentBirthday) + " birthday Fred!!!"
    MessageRequester("Congratulations", Expression$)
  Else
    Expression$ = "I just heard, Happy belated " + ordinal(currentBirthday) + " birthday Fred!"
    MessageRequester("Congratulations", Expression$)
  EndIf
  
Else
  MessageRequester("Urgent!", "Happy 60+ years Fred, PureBasic's Date Library needs an update.")
EndIf
:D
Fred
Administrator
Administrator
Posts: 16623
Joined: Fri May 17, 2002 4:39 pm
Location: France
Contact:

Re: Happy Birthday Fred!

Post by Fred »

Thank you all :)
Polo
Addict
Addict
Posts: 2422
Joined: Tue May 06, 2003 5:07 pm
Location: UK

Re: Happy Birthday Fred!

Post by Polo »

Happy birthday :)
Post Reply