MsgBox("", "derp", BuildDateTime())

Func GetMonth()
   Local $m = @MON
   Select
      Case $m = "01"
         Return "January"
      Case $m = "02"
         Return "February"
      Case $m = "03"
         Return "March"
      Case $m = "04"
         Return "April"
      Case $m = "05"
         Return "May"
      Case $m = "06"
         Return "June"
      Case $m = "07"
         Return "July"
      Case $m = "08"
         Return "August"
      Case $m = "09"
         Return "September"
      Case $m = "10"
         Return "October"
      Case $m = "11"
         Return "November"
      Case $m = "12"
         Return "December"
      EndSelect
EndFunc

Func GetDay()
   Local $d = @WDAY

   Select
      Case $d = "1"
         Return "Sunday"
      Case $d = "2"
         Return "Monday"
      Case $d = "3"
         Return "Tuesday"
      Case $d = "4"
         Return "Wednesday"
      Case $d = "5"
         Return "Thursday"
      Case $d = "6"
         Return "Friday"
      Case $d = "7"
         Return "Saturday"
   EndSelect

EndFunc

Func GetNumericDay()

   Local $d = StringRight(@WDAY, 1) + 1
   Select
   Case $d = "1"
      Return @WDAY + 1 & "st"
   Case $d = "2"
      return @WDAY + 1 & "nd"
   Case $d = "3"
      Return @WDAY + 1 & "rd"
   EndSelect

   Return @WDAY + 1 & "th"

EndFunc

Func BuildTime()

   Local $time = @HOUR
   Local $end = "AM"

   If $time = 12 Then
      $end = "PM"
   EndIf

   If $time = 0 Then
      $time = 12
   EndIf

   If $time > 12 Then
      $end = "PM"
      $time = $time - 12
   EndIf

   Return $time & ":" & @MIN & " " & $end

EndFunc

Func BuildDateTime()
   Return GetDay() & ", " & GetMonth() & " " & GetNumericDay() & " " & @YEAR & " at " & BuildTime()
EndFunc