Текущий архив: 2003.09.11;
Скачать: CL | DM;

Вниз

Как, по дате узнать день недели ?   Найти похожие ветки 

← →
_Narayan_   (2003-08-31 22:23) [0]

Как, по дате узнать день недели ?

---

← →
DrPass ©   (2003-08-31 22:41) [1]

DayOfWeek (в справку лень было глянуть, да?)

---

← →
_Narayan_   (2003-08-31 22:45) [2]

спасибо

---

← →
AndreySoft ©   (2003-08-31 22:49) [3]

А вот так не сгодится?
procedure TForm1.FormCreate(Sender: TObject);
var Den, Data, Time: string;
x,y:TDateTime;
begin
Label1.Caption:=DateToStr(Date);
x:=StrToDateTime(Label1.Caption);
DateTimeToString(Den,"dddd", x);
Label2.Caption:=Den;
y:=StrToDateTime(Label1.Caption);
DateTimeToString(Data,"d.mm.yyy", y);
Label1.Caption:=Data;
end;

---

← →
Е-Моё имя ©   (2003-09-01 02:04) [4]

канешна сгодится
только вот так лучше:

procedure TForm1.FormCreate(Sender: TObject);
var Den, Data, Time: string;
x,y:TDateTime;
begin
Label1.Caption:=DateToStr(Date);
x:=StrToDateTime(Label1.Caption);
DateTimeToString(Den,"dddd", x);
Label2.Caption:=Den;
y:=StrToDateTime(Label1.Caption);
DateTimeToString(Data,"d.mm.yyy", y);
Label1.Caption:=Data;
Label1.Caption:=DateToStr(Date);
x:=StrToDateTime(Label1.Caption);
DateTimeToString(Den,"dddd", x);
Label2.Caption:=Den;
y:=StrToDateTime(Label1.Caption);
DateTimeToString(Data,"d.mm.yyy", y);
Label1.Caption:=Data;
Label1.Caption:=DateToStr(Date);
x:=StrToDateTime(Label1.Caption);
DateTimeToString(Den,"dddd", x);
Label2.Caption:=Den;
y:=StrToDateTime(Label1.Caption);
DateTimeToString(Data,"d.mm.yyy", y);
Label1.Caption:=Data;
Label1.Caption:=DateToStr(Date);
x:=StrToDateTime(Label1.Caption);
DateTimeToString(Den,"dddd", x);
Label2.Caption:=Den;
y:=StrToDateTime(Label1.Caption);
DateTimeToString(Data,"d.mm.yyy", y);
Label1.Caption:=Data;
Label1.Caption:=DateToStr(Date);
x:=StrToDateTime(Label1.Caption);
DateTimeToString(Den,"dddd", x);
Label2.Caption:=Den;
y:=StrToDateTime(Label1.Caption);
DateTimeToString(Data,"d.mm.yyy", y);
Label1.Caption:=Data;

end;

надежнее...

---

← →
_Narayan_   (2003-09-01 02:18) [5]

Удалено модератором

---

← →
Е-Моё имя ©   (2003-09-01 09:28) [6]

Удалено модератором

---

Страницы: 1 вся ветка

Текущий архив: 2003.09.11;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.029 c