How can I output "Monday" for a date two days ago? Apologies for the wrapping here,
but the segment I want to improve is marked //HERE


function DateTimeToFriendly(tmDateTime : DateTime) : String;
var
   szDate : String;                      
   tmToday : DateTime;
begin      
   if DayOf(tmDateTime) = DayOf(Now) then
   begin
       szDate := 'Today';
   end
   else if DayOf(tmDateTime) = DayOf(JulToDate(DateToJul(tmToday) - 1)) then
   begin
       szDate := 'Yesterday';
   end
   else if DayOf(tmDateTime) > DayOf(JulToDate(DateToJul(tmToday) - 6)) then
   begin
       // HERE
       szDate := DateToStr(tmDateTime);
   end
   else
   begin
       szDate := DateToStr(tmDateTime);
   end;
   Result := szDate;
end;

I can see that EWB has the TFormatSettings and that has the days of the week in
long form, but I can't see how to work that out. DayOf is the date of the month,
not the day of the week. I'm too used to libraries for this!

/Matthew Jones/

Hi Matthew

I think you are looking for WeekDayOf()

Malcolm

Thank you!

   szDate := FormatSettings.LongDayNames[WeekDayOf(tmDateTime)];

Works fine.

/Matthew Jones/