DayOfTheWeek --- martes? lunes? -- en delphi?

[raffagia]

perdon por seguir molestando pero, necesito una funcion para ssaber a partir de una fecha, ke dia es(lunes, martes,,etc.),, he leido soluciones pero desde la base de datos,,,
keria aalgo ke funcione desde delphi..
lei algo como una funcion,,

DayOfTheWeek(date:tdatetime)

pero parece ke no esta definida en el delphi normal...
como la uso??? o de donde la saco??

gracias

Raffaaa

[marcoszorrilla]

Prueba con este ejemplo que es muy simple:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
MiFecha:Tdate;
begin
MiFecha:=Date;
ShowMessage(FormatDateTime('dddd',MiFecha));
end;

Un Saludo.

[[Lepe]]

Si te refieres a Delphi Educacional o Personal.... pues no sé que decirte, en delphi 6 Empresarial si viene.

Código Delphi [-]
  function DayOfTheWeek(const AValue: TDateTime): Word;

Unidad DateUtils. Tambien hay otras funciones relacionadas para averiguar el 2º martes de un mes concreto, para ello puedes usar las funciones:

Código Delphi [-]
   DayDayofTheWeekInMonth(Fecha, y, m, an, d);
   function EncodeDayOfTheWeekInMonth(year, month, an, d):TdateTime

Donde an indica si es la primera semana del mes, segunda etc...

Saludos

[raffagia]

muchas gracis a los dos,, anda barbaro con el

ormatDateTime('dddd',MiFecha));


tengp eñ delphi 7 enterprise,,, pero no encuentro la unidad date unit...
donde deberia estar??'

gracias

<RAffa

[marcoszorrilla]

Añade a mano la unidad como en el ejemplo, pulsa la tecla control y sin soltar botón izquierdo del ratón sobre ella y se abrirá dicha unidad pudiendo ver así las funciones que contiene.

Código Delphi [-]
   interface
   
   uses
     Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
     Dialogs, StdCtrls, DateUtils;

Un Saludo.