Asunto: Extraer el día en texto de una fecha en Delphi
¿Cómo puedo extraer el nombre del día (lunes, martes, miércoles, ...) de una fecha? utilizo Borland Delphi 6.
Publicado:
Mie Sep 23, 2009 10:29 am
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: Extraer el día en texto de una fecha en Delphi
Anuncios
varios escribió:
¿Cómo puedo extraer el nombre del día (lunes, martes, miércoles, ...) de una fecha? utilizo Borland Delphi 6.
Puedes utilizar esta función Delphi:
Código:
function diaSemanaTexto (fecha : TDateTime) : string;
var
dia : integer;
begin
dia := DayOfTheWeek (fecha);
case dia of
1 : Result := 'lunes';
2 : Result := 'martes';
3 : Result := 'miércoles';
4 : Result := 'jueves';
5 : Result := 'viernes';
6 : Result := 'sábado';
7 : Result := 'domingo';
else
Result := 'Error';
end;
end;
Un ejemplo de uso:
Código:
mResultado.Lines.Add('Día de la semana: ' + diaSemanaTexto(txtFechaInicio.DateTime));
En el "Uses" del formulario deberás añadir la unidad "dateutils".
Ultima edición por alonsojpd el Mie Sep 23, 2009 6:08 pm, editado 1 vez
Publicado:
Mie Sep 23, 2009 10:30 am
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: Extraer el día en texto de una fecha en Delphi
Anuncios
Aquí tienes una aplicación Delphi de ejemplo (gratuita, freeware y open source) que utiliza esta función:
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A