Проблем много с датой
1. Вылезает фатальная ошибка на таймере в этой строке. Что не так? Вот строка
TDateTime str1 = StrToDateTime(Memo1->Lines->Strings[0]); (в этой строке храниться как дата так и время)
2. Нужно вытащить данные из заданного файла в мемо
Я уже как-то задавал эти вопросы в форуме, НО найти их уже не могу.. А сама программа была утеряна :(
1. Вылезает фатальная ошибка на таймере в этой строке. Что не так? Вот строка
TDateTime str1 = StrToDateTime(Memo1->Lines->Strings[0]); (в этой строке храниться как дата так и время)
2. Нужно вытащить данные из заданного файла в мемо
Warning: Unlike most TStrings objects, the Lines property stores its lines in a 1-based array, not a zero-based array.
Неее.. тут проблема в другом! Вот какое сообщение выдается
Project odd.exe raised exception class EConvertError with message "is not a valid date and time'.Process stopped. Use Step or Run to continue.
?????
Неее.. тут проблема в другом! Вот какое сообщение выдается
Project odd.exe raised exception class EConvertError with message "is not a valid date and time'.Process stopped. Use Step or Run to continue.
?????
То есть как это в другом?! Я тебе указал на ошибку. is not a valid date and time переводиться как не верные дата и время. Узнай о формате даты и времени, чтобы их правильно ввести. Вот.
То есть как это в другом?! Я тебе указал на ошибку. is not a valid date and time переводиться как не верные дата и время. Узнай о формате даты и времени, чтобы их правильно ввести. Вот.
Все, я разобрался! Просто он не мог конвертировать пустую строку в дату 8) Типа пока дата не введена... нельзя конвертировать (ща условие пропишу)
Все, я разобрался! Просто он не мог конвертировать пустую строку в дату 8) Типа пока дата не введена... нельзя конвертировать (ща условие пропишу)
Napisy kak resyl etu problemu. U menia poxozaja problem, nuzno zapomnit tolko mesiac, bez dnei i goda. Posle etovo konvertirovat ne polucajetsia.
Ocen nuzno. Spasibo zaranee
Napisy kak resyl etu problemu. U menia poxozaja problem, nuzno zapomnit tolko mesiac, bez dnei i goda. Posle etovo konvertirovat ne polucajetsia.
Ocen nuzno. Spasibo zaranee
И не получится. TDateTime формат (если примитивно) это просто число, которое есть количество дней и часов от базаовой даты. Т.е. если хранить только месяц. То это всего несколько дней от начала.
Поэтому месяц нужно хранить просто как int, а не TDateTime.
И не получится. TDateTime формат (если примитивно) это просто число, которое есть количество дней и часов от базаовой даты. Т.е. если хранить только месяц. То это всего несколько дней от начала.
Поэтому месяц нужно хранить просто как int, а не TDateTime.
A kak mne pribavit k suschestvujuschei date skazem odin mesiac?
A kak mne pribavit k suschestvujuschei date skazem odin mesiac?
юзай
WORD year, mounth, day;
DecodeDate(&year, &mounth, &day);
mounth+1;
ну а дальше обратно вставляй :)
юзай
WORD year, mounth, day;
DecodeDate(&year, &mounth, &day);
mounth+1;
ну а дальше обратно вставляй :)
Так не делай, будут ошибки.
Проще всего использовать функцию
Date=IncMonth(Date,1); //В Date хранится твоя дата
А если нравится предыдущий пример, то нужно делать так:
unsigned short year, month, day;
DecodeDate(Date,&year, &month, &day);
if (month!=12) month++; // !!!!!!
else month=1; // !!!!!!
Date=EncodeDate((Word)year, (Word)month, (Word)day);
Так не делай, будут ошибки.
Проще всего использовать функцию
Date=IncMonth(Date,1); //В Date хранится твоя дата
А если нравится предыдущий пример, то нужно делать так:
unsigned short year, month, day;
DecodeDate(Date,&year, &month, &day);
if (month!=12) month++; // !!!!!!
else month=1; // !!!!!!
Date=EncodeDate((Word)year, (Word)month, (Word)day);
Tut Date kak ja ponimaju TDateTime tipa? Esli da to vozmozno vy ocen' pomogli mne.
Spasibo!!!
Daj bog i dalse tak ;)