Dia de la semana

[lokodelphi]

Hola a todos los fanaticos de Delphi, aqui les mando una pregunta de una duda que me surgio y todavia no la resulevo.

Se trata de que un programa me mande el dia de la semana en la que estamos como por ejemplo me mande: hoy es lunes, o martes , o miercoles etc etc.

la verdad es que no se con que funcion deba de trabajar. espero su pronta respuesta

[reevil]

El componte datetimepicker te puede ayudar, pero eso de "hoy es Martes 31 de junio de 1980" deberas hacerlo tu traduciendo los valores que te regrese el componente que te menciono

saludos

[lokodelphi]

bueno amigo lo unico que deseo es que me devuelva "Hoy es martes"
y nada mas pero gracias de todas maneras

[dec]

Hola,


uses
SysUtils;

function QueDiaEsHoy : string;
var
dia: string;
begin
{ El resultado de esta función está
supeditado al Array LongDayNames.

Más información en la ayuda de la
función "FormatDateTime".
}
dia := FormatDateTime('dddd', Now);
Result := Format('Hoy es %s', [dia]);
end;

{ Ejemplo de llamada a QueDiaEsHoy
}
procedure TForm1.Button1Click(Sender: TObject);
begin
Caption := QueDiaEsHoy;
end;

[Ohcan]

Otra opción:

function TFunciones.DiaDeLaSemana(Fecha: TDate; Completo:Boolean=False): string;
var
DiasSemana:array[1..7] of string;
begin
//Calculamos la letra del día de la semana
if Completo then
begin
DiasSemana[1] := 'DOMINGO'; DiasSemana[2] := 'LUNES';
DiasSemana[3] := 'MARTES'; DiasSemana[4] := 'MIERCOLES';
DiasSemana[5] := 'JUEVES'; DiasSemana[6] := 'VIERNES';
DiasSemana[7] := 'SABADO';
end
else
begin
DiasSemana[1] := 'D'; DiasSemana[2] := 'L'; DiasSemana[3] := 'M';
DiasSemana[4] := 'X'; DiasSemana[5] := 'J'; DiasSemana[6] := 'V';
DiasSemana[7] := 'S';
end;
Result := DiasSemana[DayOfWeek(Fecha)];
end;

[vtdeleon]

Saludos
bueno amigo lo unico que deseo es que me devuelva "Hoy es martes"
y nada mas pero gracias de todas manerasLa opcion que te ha dado reevil es totalmente viable. Pues no tiene que molestarte con tantas lineas de codigo, solo una linea.

Adhiere un Datepicker donde sea, en su propiedad Format pones 'Hoy es:'dddd, para que solo salga el dia y en codigo solo esto:datapickertime.date:=now;Y LISTO.