VPF::Работа с датой - Форум программистов

akimovaleks

Дата 28.5.2010, 21:24 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 13.3.2010

Репутация: нет
Всего: нет

Добрый день вопрос очень интересный негде так и не нашол подробно как работать с датой.
есть переменная. скажим a ее присвоенно дата. формата 2010-05-25 12:06:56 ка ненй прибабить 5 дней или 45 дней.

Код


var
a,b:string;

begin
a:='2010-05-25 12:06:56' // почему стринг , да я ее беру из разных источников 
b:=45; // сколько дней прибавить
//---ЧТО ДАЛЬШЕ---//
?
//---ЧТО ДАЛЬШЕ---//

Frees

Дата 28.5.2010, 21:28 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 9
Всего: 54

твой код хлам!

почитай про тип TDateTime
и посмотри на функций в юните DateUtil

--------------------

Кольцов Виктор Владимирович

akimovaleks

Дата 28.5.2010, 21:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 13.3.2010

Репутация: нет
Всего: нет

я знаю что хлам по этому и спрашиваю... smile

chip_and_dayl

Дата 28.5.2010, 21:52 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 603
Регистрация: 22.4.2007
Где: Украина, Киев

Репутация: 1
Всего: 9

myDate := IncDay(myDate, +45);

Добавлено через 59 секунд
Ну и да, почитай о типе TDateTime smile

Добавлено через 1 минуту и 50 секунд

Код


a:='2010-05-25 12:06:56' // почему стринг , да я ее беру из разных источников

Судя по коду, ты ее ни откуда не берешь. А тупо прописано smile

--------------------

Фсё будет хорошо!!!

akimovaleks

Дата 29.5.2010, 08:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 13.3.2010

Репутация: нет
Всего: нет

Цитата(chip_and_dayl @ 28.5.2010, 21:52)

myDate := IncDay(myDate, +45);

Добавлено @ 21:53
Ну и да, почитай о типе TDateTime smile

Добавлено @ 21:54

Код


a:='2010-05-25 12:06:56' // почему стринг , да я ее беру из разных источников

Судя по коду, ты ее ни откуда не берешь. А тупо прописано smile

нет не прав
делаю SQL запрос к бд где храниться эта дата
вот она и присваеваеться...
или она париться с источника.

Это сообщение отредактировал(а) akimovaleks - 29.5.2010, 08:15

akimovaleks

Дата 29.5.2010, 08:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 13.3.2010

Репутация: нет
Всего: нет

Код


DateUtils unit


//--- батон клик--//
var
s:string;
DateR, DateO: TDateTime;
begin
DateR:=StrToDateTime(s); // где s:='2010-05-25 12:06:56' 
DateO:=IncDay(DateR, +45); // прибавим 45 дней
Label1.Caption:=DateTimeToStr(DateO);

bems

Дата 29.5.2010, 08:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

akimovaleks, Всё зависит от текстового формата даты. Зависит ли он от региональных настроек, или всегда в одном виде 2010-05-25 12:06:56 ?

--------------------

Обижено школьников: 8

Akella

Дата 29.5.2010, 09:43 (ссылка)

(голосов:1)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Русский сначала выучи, а потом уже SQL и Delphi

akimovaleks

Дата 29.5.2010, 15:32 (ссылка)

(голосов:2)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 13.3.2010

Репутация: нет
Всего: нет

Цитата(Akella @ 29.5.2010, 09:43)

Русский сначала выучи, а потом уже SQL и Delphi

а Я ине писал что его знаю.....
я же скитая..... smile

вопрос вроде понятен был

Цитата

скажим a ее присвоенно дата. формата 2010-05-25 12:06:56

Код


var
a,b:string;

Тут же понятно что это текст сам я его написал или нет это неважно
Ответ

Код


DateR:=StrToDateTime(s); // переводим из мтринга в дату как же

Цитата

как ненй прибавить 5 дней или 45 дней.

Ответ

Код


DateO:=IncDay(DateR, +45); // прибавим 45 дней

а по поваду ошибок
есть поговорка
http://www.google.kz/search?hl=ru&ei=w...%82&spell=1

Akella

Дата 31.5.2010, 14:24 (ссылка)

(голосов:1)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329

Твои безграмотные вопросы просто противно читать. Не говоря уже об ответах на них. Иди учи грамматику и орфографию. И не позорь программистов smile

Демо

Дата 31.5.2010, 15:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

Репутация: 30
Всего: 50

akimovaleks,

Если у тебя дата всегда в таком формате, то разбирай вручную строку с датой.
1. Выдели только дату в отдельную переменную.
2. Преобразуй строку к типу TDateTime (только дату).
3. Прибавь к дате месяц
4. Преобразуй обратно к строковому виду и добавь в конец время.

Примерно это может выглядеть так:

Код


var
  d: TDateTime;
  ts: String;
  a: String;
begin
  a:='2010-05-25 12:06:56'
  ts := Copy(a,1,10);
  ts := StringReplace(ts,'-',DateSeparator,[rfReplaceAll]);
  d := StrToDate(ts);
  IncMonth(d,1);
  a := FormatDateTime('yyyy-mm-dd',d)+Copy(a,12,8);

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »