Форум: "Основная";
Текущий архив: 2005.01.30;
Скачать: [xml.tar.bz2];

Вниз

Месяц прописью?   Найти похожие ветки 

← →
Автор333   (2005-01-19 12:57) [0]

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

---

← →
Александр Иванов ©   (2005-01-19 13:01) [1]

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

---

← →
Александр Иванов ©   (2005-01-19 13:02) [2]

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

---

← →
Автор333   (2005-01-19 13:04) [3]

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

---

← →
Ega23 ©   (2005-01-19 13:11) [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;

---

← →
WondeRu ©   (2005-01-19 13:16) [5]

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

---

← →
Автор333   (2005-01-19 13:32) [6]

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

---

← →
default ©   (2005-01-19 13:32) [7]


 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;

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

---

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

Форум: "Основная";
Текущий архив: 2005.01.30;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.028 c