вывести поточный день недели (словами) Delphi

[carrie bradshaw]

Привет, всем активным участникам форума. помогите, пожалуйста, дописать программу на Delphi 7.

уже сделано:
- вывод поточной даты;
-вывод поточного времени.

нужно сделать:
- вывод текущего дня недели словами.

вот код:

var
  Form113: TForm113;
  day:string;
  dd:integer;
   year:integer;
   month:string;
 
implementation
 
{$R *.dfm}
procedure TForm113.FormShow(Sender: TObject);
const
stMonth:array[1..12] of string[12]=('январь','февраль','март','апрель ', 'май','июнь','июль','август','сентябарь','октябарь','ноябарь', 'декабарь');
var present:TDateTime;
year,month,day:word;
begin
 present:=now;
 DecodeDate(present,year,month,day);
 label1.Caption:='сегодня - '+IntToStr(Day)+ ' '+ stMonth[month]+ ' '+IntToStr(year)+'года';
 label2.Caption:='текущее время - '+FormatDateTime('hh:mm',Now);
end;

всем спасибо за внимание!

[Stilet]

function Daweek(d:TdateTime):String;
begin
 case DayOfWeek(d) of
  0:Result:='Воскресенье';
  1:Result:='Понеделок';
  2:Result:='Вторник';
  3:Result:='Среда';
  4:Result:='Чверг';
  5:Result:='Тяпница';
  6:Result:='Суббота';
 end;
end;

[carrie bradshaw]

Stilet, ваш код не работает.

вот полностью код программы:

private
   function Daweek(d:TdateTime):String;
    { Private declarations }

  public
    { Public declarations }
  end;

var
  Form113: TForm113;
  day:string;
  dd:integer;
   year:integer;
   month:string;

implementation

{$R *.dfm}
function TForm113.Daweek(d:TdateTime):String;
begin
 case DayOfWeek(d) of
  0:Result:='Воскресенье';
  1:Result:='Понеделок';
  2:Result:='Вторник';
  3:Result:='Среда';
  4:Result:='Четверг';
  5:Result:='пятница';
  6:Result:='Суббота';
 end;
end;


procedure TForm113.Button1Click(Sender: TObject);

var today:TDateTime;
begin
today:=Now;
ShowMessage('сегодня ' + DateToStr(today));
ShowMessage('время '+TimeToStr(today));
end;

procedure TForm113.FormShow(Sender: TObject);

const
stMonth:array[1..12] of string[12]=('январь','февраль','март','апрель ', 'май','июнь','июль','август','сентябарь','октябарь','ноябарь', 'декабарь');
var present:TDateTime;
year,month,day:word;
begin
 present:=now;
 DecodeDate(present,year,month,day);
 label1.Caption:='сегодня - '+IntToStr(Day)+ ' '+ stMonth[month]+ ' '+IntToStr(year)+'года';
 label2.Caption:='текущее время - '+FormatDateTime('hh:mm',Now);
end;

end.

посмотрите почему не выводится текущий день недели словами.

[Аватар]

А чего функции Daweek работать, если к ней нет обращения?

[Stilet]

Действительно. Я тоже не вижу где ты ее вызываешь.

[Serge_Bliznykov]

вызвать можно, например, по кнопке...

procedure TForm113.Button1Click(Sender: TObject);

var today:TDateTime;
begin
today:=Now;
ShowMessage('сегодня ' + DateToStr(today) + ' ' + Daweek(today));
ShowMessage('время '+TimeToStr(today));
end;

[carrie bradshaw]

вызвать функцию Daweek можно так:

Label1.Caption:=Daweek(d);

[carrie bradshaw]

Serge_Bliznykov, спасибо.

[Serge_Bliznykov]

Всегда пожалуйста!

да мне то за что, функцию Stilet же написал, его и благодарите!

[Stilet]

Да ладно )
Я привык )
У меня на работе точно так же "спс" говорят в виде докладной на выговор за то что я техподдержку обеспечиваю )