| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Месяц прописью? [D7]

Автор333 ©   (2005-01-19 12:57:00) 

Привет всем!!!
Вопрос:
На форме есть компонент DateTimePicker, выбираем с помощью него дату. Подскажите, как, например, компоненту Label присвоить значение выбранного месяца??? Тоесть, например, выбрали: 01.01.2005 и присвоили компоненту Label месяц ЯНВАРЬ. (только месяц прописью)

---

Автор333   (2005-01-19 13:32:00) [1]

Ega23-> Почему - то только один январь выводит!!!
Результат выводил во так:
Label1.Caption:=MonthInStr(DateTimePicker1.Date);

---

default   (2005-01-19 13:32:00) [2]


 TMyDateTimePicker = class(TDateTimePicker)
 public
   property Text;
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 O: TMyDateTimePicker;
 OnChg: TNotifyEvent;
begin
 O := TMyDateTimePicker.Create(Self);
 O.Parent := Self;
 OnChg := O.OnChange;
 O.OnChange := nil;
 O.Format := 'MMMM';
 Caption := O.Text;
 O.OnChange := OnChg;
 O.Format := '';
end;

изврат, но думаю идея довольно забавна

---

WondeRu   (2005-01-19 13:16:00) [3]

var
 AFormatSettings: TFormatSettings;
 AMonth: Byte;
begin
 GetLocaleFormatSettings(1049, AFormatSettings);
 .....
 xxx := AFormatSettings.LongMonthNames[AMonth];
end;

---

Ega23   (2005-01-19 13:11:00) [4]

function MonthInStr(const Dt:TDateTime):String;
var
aYear, aMonth, aDay : Word;
begin

DecodeDate(Dt, aYear, aMonth, aDay);
Case aMonth of
 1 : Result:='ЯНВАРЬ';
 2 : Result:='ФЕВРАЛЬ';
 ...............
 12: Result:='ДЕКАБРЬ';
end;

---

Автор333   (2005-01-19 13:04:00) [5]

Он месяц цифрой показывает!
Как к этому можно case применить?

---

Александр Иванов   (2005-01-19 13:02:00) [6]

Александр Иванов ©   (19.01.05 13:01) [1]
Что-то я опечатался Во-первых у него есть св-во DateFormat

---

Александр Иванов   (2005-01-19 13:01:00) [7]

Во-первых если у него есть св-во DateFormat, и есть возможность полного отображения даты.

---

Наверх