Date format assistance please 1

[jp3333]

I need to add the dayofweek and abbreviate the month in this formula - I need the date to display as: Thursday, Aug 30, 2007. Any help would be greatly appreciated!

The formula is:
Dim DateField as DateTime
Dim MM as String
Dim DD as String
Dim YYYY as String
Dim DATEORDER as String

DateField = {?StartDate}

MM = CStr(Month (DateField),0)
DD = CStr(Day (DateField),0)
YYYY = CStr(Year(DateField),0,"")

DATEORDER = {?DATEORDER}

if DATEORDER = "MDY" then
formula = MM + "/" + DD + "/" + YYYY
else
if DATEORDER = "MYD" then
formula = MM + "/" + YYYY + "/" + DD
else
if DATEORDER = "DMY" then
formula = DD + "/" + MM + "/" + YYYY
else
if DATEORDER = "DYM" then
formula = DD + "/" + YYYY + "/" + MM
else
if DATEORDER = "YDM" then
formula = YYYY + "/" + DD + "/" + MM
else
formula = YYYY + "/" + MM + "/" + DD
end if
end if
end if
end if
end if

 

[synapsevampire]

Skip the formula.

Right click the date and select format field, within you can designate this output.

If you really want a formula, use:

totext({table.date},"dddd, MMM, dd, yyyy")

-k