Nombre del dia

[ixMike]

Empezado por jhonny

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 .

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.