[nefore]

Empezado por ecfisa

Hola nefore.

Código Delphi [-]
...
uses DateUtils;

function DayName(aDate: TDate): string;
begin
  case GetUserDefaultLangID and $03FF of
    LANG_SPANISH: Result := LongDayNames[DayOfTheWeek(aDate)+1];
    LANG_ENGLISH: Result := LongDayNames[DayOfTheWeek(aDate)];
    //...
  end;
end;

// Ejemplo de uso:
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(DayName(StrToDate('22/08/2013')));
end;

Saludos.

Edito: Para la próxima, recuerda que debes crear un nuevo hilo para una nueva pregunta.

Ah muchas gracias! y disculpa nuevamente, me parece que no estoy con los pies sobre la tierra