[cadil]

В ячейку таблицы Word записана дата в формате dd.mm.yyyyy, например, 27.10.2011:

Код:

date2:=table1.Cell(j, 3).Range.Text;

Как прочитать символы месяца mm в дате?
Мне это нужно для записи команды по алгоритму -
если mm = 10, то вывести сообщение "... в октябре...".

Задача в общем виде - как прочитать n-ый символ в записи, допустим, Label?!

Спасибо!

[t116]

http://www.delphisources.ru/pages/fa...Utils.php.html

FormatDateTime()
Эта функция возвращает дату и время в виде строки в указанном формате. У функции есть два параметра, первым указывается формат строки, в котором нужно вернуть дату. Второй параметр – переменная типа TDateTime, которую нужно преобразовать в строку. В качестве второго параметра также можно использовать функцию Date(), если требуется преобразовать текущие дату и время. Формат строки, он может содержать следующие символы:

d – показать день, не подставляя нули в начале: 1, 2, 12
dd – показать день с подстановкой нулей в начале: 01, 02, 12
ddd – показать день недели в коротком формате: Пн, Вт, Ср
dddd – показать полный день недели: Понедельник, Вторник, Среда
m – показать месяц без нулей: 1, 2, 10
mm – показать месяц с нулями: 01, 02, 10
mmm – показать короткое название месяца: Янв, Фев
mmmm – показать полное название месяца: Январь, Февраль
yy – показать короткий год: 07, 98, 00
yyyy – показать полный год: 2007, 1998, 2000
h – показать часы, не добавляя нулей: 3, 5, 12
hh – показать часы с нулями: 03, 05, 12
n – минуты без нулей: 3, 5, 12
nn – минуты с нулями: 03, 05, 12
s – секунды без нуля впереди: 3, 7, 30
ss – секунды с нулями: 03, 07, 30
Это практически полный набор форматов, которые вам могут пригодиться. Пример использования:

ShowMessage (FormatDateTime('Сегодня dddd dd mmm yyyy г.', Date)); //Результат: Сегодня Чет 27 окт 2011 г.

[_taddy]

Можно так:
DecodeDate(DateNow, CurrYear, CurrMonth, CurrDay);

[cadil]

Сообщение от t116

http://www.delphisources.ru/pages/fa...Utils.php.html

Этот вариант не подходит -переменная date2 -string, а не TDateTime.

[_taddy]

Можно сделать StrToDate(DateNow), например.

[t116]

Сообщение от cadil

Этот вариант не подходит -переменная date2 -string, а не TDateTime.

Какой вариант? Это функции для работы с датой.
Придумай свои. Я пока не могу

[cadil]

Сообщение от _taddy

Можно сделать StrToDate(DateNow), например.

Я своим неудачым примером с датой внес путаницу. Повторю вопрос - как прочитать n-ый символ в записи, допустим, Label?

[t116]

Как прочитать символы месяца mm в дате?
Мне это нужно для записи команды по алгоритму -
если mm = 10, то вывести сообщение "... в октябре...".

???????
Вы, пока я отвечал переформулировали вопрос

[_taddy]

s : string

s := Label1.Caption;
ShowMessage(s[4]);

покажет 4-й символ.

[_taddy]

Если несколько символов - можно использовать функцию Copy
http://www.delphibasics.ru/Copy.php

[cadil]

Сообщение от _taddy

s : string

s := Label1.Caption;
ShowMessage(s[4]);

покажет 4-й символ.

Спасибо!
Решил задачку несколько по-другому:

Код:

procedure TForm1.Button10Click(Sender: TObject);
var
date2: string;
pos1, pos2:integer; //символы в записи
begin
date2:=table1.Cell(j, 3).Range.Text;
Label10.Caption:=date2;
pos1:= pos('1',date2);
pos2:= pos('0',date2);
      if ((pos1 = 4) and  (pos2 = 5))
       then
        begin
    Label11.Caption:='выполнено в октябре';
        end
      else
        begin
   Label11.Caption:='Error!';
        end;
end;

[Ildar-tsr]

Сообщение от cadil

Спасибо!
Решил задачку несколько по-другому:

Код:

procedure TForm1.Button10Click(Sender: TObject);
var
date2: string;
pos1, pos2:integer; //символы в записи
begin
date2:=table1.Cell(j, 3).Range.Text;
Label10.Caption:=date2;
pos1:= pos('1',date2);
pos2:= pos('0',date2);
      if ((pos1 = 4) and  (pos2 = 5))
       then
        begin
    Label11.Caption:='выполнено в октябре';
        end
      else
        begin
   Label11.Caption:='Error!';
        end;
end;

Ты уж прости, но тебе не кажется, что твое решение немного идиотски не универсальное? А что если не октябрь будет, а ноябрь?

Код:

procedure TForm1.Button10Click(Sender: TObject);
var
  date2: string;
  y,m,d: word;
begin
date2:= table1.Cell(j, 3).Range.Text;
Label10.Caption:=date2;
DecodeDate(strtodate(date2),y,m,d);
case m of
1: Label11.Caption:= 'выполнено в январе';
2: Label11.Caption:= 'выполнено в феврале';
3: Label11.Caption:= 'выполнено в марте';
4: Label11.Caption:= 'выполнено в апреле';
5: Label11.Caption:= 'выполнено в мае';
6: Label11.Caption:= 'выполнено в июне';
7: Label11.Caption:= 'выполнено в июле';
8: Label11.Caption:= 'выполнено в августе';
9: Label11.Caption:= 'выполнено в сентябре';
10: Label11.Caption:= 'выполнено в октябре';
11: Label11.Caption:= 'выполнено в ноябре';
12: Label11.Caption:= 'выполнено в декабре';
end;
end;

[cadil]

Сообщение от Ildar-tsr

Ты уж прости, но тебе не кажется, что твое решение немного идиотски не универсальное? А что если не октябрь будет, а ноябрь?

Код:

procedure TForm1.Button10Click(Sender: TObject);
var
  date2: string;
  y,m,d: word;
begin
date2:= table1.Cell(j, 3).Range.Text;
Label10.Caption:=date2;
DecodeDate(strtodate(date2),y,m,d);
case m of
1: Label11.Caption:= 'выполнено в январе';
2: Label11.Caption:= 'выполнено в феврале';
3: Label11.Caption:= 'выполнено в марте';
4: Label11.Caption:= 'выполнено в апреле';
5: Label11.Caption:= 'выполнено в мае';
6: Label11.Caption:= 'выполнено в июне';
7: Label11.Caption:= 'выполнено в июле';
8: Label11.Caption:= 'выполнено в августе';
9: Label11.Caption:= 'выполнено в сентябре';
10: Label11.Caption:= 'выполнено в октябре';
11: Label11.Caption:= 'выполнено в ноябре';
12: Label11.Caption:= 'выполнено в декабре';
end;
end;

Конечно, ты прав! Я хотел продемонстрировать только общий подход. Не воспользоваться твоим решением было бы глупо.
Еще раз - благодарю!

[cadil]

Сообщение от Ildar-tsr

Ты уж прости, но тебе не кажется, что твое решение немного идиотски не универсальное? А что если не октябрь будет, а ноябрь?

Снова обращаюсь к тебе за помощью - не могу реализовать твое решение. Причина, на мой взляд, заключается в непечатном символе, который появляется после даты. Как его убрать? Посмотри скрин во вложении.

[Ildar-tsr]

Сообщение от cadil

Снова обращаюсь к тебе за помощью - не могу реализовать твое решение. Причина, на мой взляд, заключается в непечатном символе, который появляется после даты. Как его убрать? Посмотри скрин во вложении.

К сожалению не уверен на все сто поможет ли, но попробуй эту строку дополнить:

Код:

//если после даты стоит пробел, то поможет
//если сразу символ, то надо подумать как от него избавиться
date2:= copy(table1.Cell(j, 3).Range.Text,1,pos(' ',table1.Cell(j, 3).Range.Text)-1);