Ver Mensaje Individual
  #3  
Antiguo 22-11-2007
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

No recuerdo que exista una función así, y, de existir, retornaría los días "en inglés". Pero, no parece demasiado complicado preparar una función que tal vez te sirviera:

Código Delphi [-]
function GetDayName(dateTime: TDateTime) : string;
begin
  case DayOfWeek(dateTime) of
    1: result := 'Domingo';
    2: result := 'Lunes';
    3: result := 'Martes';
    4: result := 'Miércoles';
    5: result := 'Jueves';
    6: result := 'Viernes';
    7: result := 'Sábado';
  end;
end;

Ejemplo de llamada a la función:

Código Delphi [-]
begin
  // Muestra el nombre del día actual
  ShowMessage( GetDayName(Now()) );
end;
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita