Форум: "Основная";
Текущий архив: 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.45 MB
Время: 0.035 c
