Nombre del dia
 

Hola amigos, alguno sabe de una función (delphi 5) que tome como parámetro una fecha y devuelva como resultado el nombre del dia. Ej.
Func_nombre(22/11/2007)=Jueves
Desde ya muchísimas gracias

Se de una que te devuelve el numero del dia de la semana...

DayOfTheWeek

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;

Podemos lograr lo que quieres asi:

Código Delphi [-]
function DiaDeLaSemana(Fecha :TDateTime) :String;
const
    Dias :array[1..7] of string = ('Lunes', 'Martes', 'Miercoles', 'Jueves', 'Viernes', 'Sabado', 'Domingo');
begin
  Result := Dias[DayOfTheWeek(Fecha)];
end;

Nota: Recuerda que DayOfTheWeek en Delphi5 esta en la unidad DateUtil y a partir de Delphi6 en la unidad DateUtils ;).

También esta otra:

Código Delphi [-]
  Str := FormatDateTime('dddd', Now());
  MessageDlg('Día: ' + Str, mtInformation, [mbOK], 0);

Allí tienes tres maneras de hacer lo que quieres :). No habia visto que dec y Neftali tambien habian respondido :).

Si mal no recuerdo (o quizás también dependa de la versión de Delphi) la funmción DayOfTheWeek devuelve un número de 0 a 6. Entonces se tendría que cambiar la matriz a Dias: array[0..6] of string...


Saludos.

Bueno, el ejemplo que coloque anteriormente lo probe antes de publicarlo en su momento y me devolvio bien los dias, sin embargo a raiz de tu sugerencia busque en la ayuda y claramente dice que la cosa va de 1 a 7...

Incluso la función DayOfWeek que propone dec, tambien va de 1 a 7


Nota: La diferencia entre las dos funciones es que DayOfWeek comienza en Domingo y DayOfTheWeek Comienza en Lunes.

Ah, pues creo que nos estamos haciendo demasiado problema... de paso tengo mis dudas con esas funciones en versiones inferiores de d6;

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
const Dias: array [0..6] of PChar = ('Sábado', 'Domingo', 'Lunes', 'Martes', 'Miercoles', 'Jueves', 'Viernes');
begin
 Caption := Dias[Trunc(Now) mod 7];
end;

Funcionaría hasta en d1 o 2 ??? :rolleyes:

Saludos

Si la fecha la extráes de una consulta SQL lo mejor es traer el nombre del día desde la misma consulta con un:

Código SQL [-]
Select
  To_Char(Fecha,'Day') Dia_Semana