date := @Today ; 

DayInteger := @Text(@Weekday(Date));
DayNumberIndex := "1" : "2" : "3" : "4" : "5" : "6" : "7";
DayNames := "Sunday" : "Monday" : "Tuesday" : "Wednesday" : "Thursday" : "Friday" : "Saturday";
DayNamesShort := "Sun" : "Mon" : "Tue" : "Wed" : "Thu" : "Fri" : "Sat";
DayName := @Replace(DayInteger; DayNumberIndex; DayNamesShort);

MonthInteger := @Text(@Month(Date));
MonthNumberIndex := "1" : "2" : "3" : "4" : "5" : "6" : "7" : "8" : "9" : "10" : "11" : "12";
MonthNames := "January" : "February" : "March" : "April" : "May" : "June" : "July" : "August" : "September" : "October" : "November" : "December" ;
MonthNamesShort := "Jan" : "Feb" : "Mar" : "Apr" : "May" : "Jun" : "Jul" : "Aug" : "Sep" : "Oct" : "Nov" : "Dec" ;
MonthName := @Replace(MonthInteger; MonthNumberIndex; MonthNamesShort);

TextToDisplay := DayName + " " + MonthName + " " + @Text(@Day(date)) + ", " + @Text(@Year(date));

TextToDisplay

Dim Weekday(1 To 7) As String
 Weekday(1) = "Sunday"
 Weekday(2) = "Monday"
 Weekday(3) = "Tuesday"
 Weekday(4) = "Wednesday"
 Weekday(5) = "Thursday"
 Weekday(6) = "Friday"
 Weekday(7) = "Saturday"

Dim Months(1 To 12) As String
Months(1) = "January"
Months(2) = "February"
Months(3) = "March"
Months(4) = "April"
Months(5) = "May"
Months(6) = "June"
Months(7) = "July"
Months(8) = "August"
Months(9) = "September"
Months(10) = "October"
Months(11) = "November"
Months(12) = "December"

WeekdayInteger as Integer
WeekdayInteger = Weekday( doc.dr_duedate(0) ) 

Dim MonthInteger As Integer
MonthInteger = Month( doc.dr_duedate(0) ) 

Dim fulltextduedate As String
fulltextduedate = Weekday(WeekdayInteger) & " " & Months(MonthInteger) & " " & Day( doc.dr_duedate(0) ) & ", " & Year( doc.dr_duedate(0) )