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,

Código Delphi [-]
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:

Código Delphi [-]
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

Empezado por lokodelphi

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

La 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:

Código Delphi [-]
datapickertime.date:=now;

Y LISTO.