Форум по InterBase, Firebird и Yaffil
http://ibaseforum.ru/
В библиотеке fbudf есть функции ADDDAY, ADDHOUR, ADDMONTH,Bocman писал(а):Можно ли в InterBase7 увеличить дату на интервал в месяцах?
Есть такое понятие "месяц". Более того, в значительной части законодательных актов процессуальные сроки исчисляются именно в месяцах. При этом очень четко регламентируются правила исчисления сроков (имеется ввиду случай, когда механическое прибавление месяца дает инвалидную дату). Так, что все очень конкретно.kdv писал(а):ребята, документацию надо читать, или сайт. date+30, к примеру.
на месяц - нет. что такое "месяц", абстрактно? нет такого понятия. Есть конкретный месяц в году с конкретным числом дней.
есть наборы udf (rfunc), где туча функций работы с датами.
Дмитрий имел ввиду, что у числового представления даты нет месяца (и года тоже). Только количество дней, прошедших с начала определенной даты (например, 1 янвая 0001 года). Так что не путайSAMZ писал(а):Есть такое понятие "месяц"
.это "календарный" месяц, длительность в днях которого определяется началом отсчета. Так что может быть и 28, и 29, и 30, и 31 день. Так что абстрактного "месяца" не существует.законодательных актов процессуальные сроки исчисляются именно в месяцах.
Код: Выделить всё
ISC_QUAD * bg_addmonth(ISC_QUAD *d, int *m)
{
static ISC_QUAD ret;
struct tm tm1;
isc_decode_date(d, &tm1);
div_t q = div(*m, 12);
tm1.tm_mon += q.rem;
tm1.tm_year += q.quot;
isc_encode_date(&tm1, &ret);
return &ret;
}Код: Выделить всё
type
PIBDateTime = ^TIBDateTime;
TIBDateTime = record
Days, // Date: Days since 17 November 1858
MSec10: Integer; // Time: Millisecond * 10 since midnigth
end;
const // константы трансляции даты:
MSecsPerDay10 = MSecsPerDay * 10; // миллисекунд в сутках * 10
IBDateDelta = 15018; // разница в днях между датами Delphi 2.0 и InterBase
function Inc(var IBDat: TIBDateTime; var interval: Integer): PIBDateTime; cdecl;
var
DateTime: TDateTime;
DelphiDays: Integer;
begin //увеличение даты на интервал
DateTime := IBDat.Days - IBDateDelta + IBDat.MSec10 / MSecsPerDay10;
DateTime := incMonth(DateTime, interval);
DelphiDays := Trunc(DateTime);
IBDat.Days := DelphiDays + IBDateDelta;
IBDat.MSec10 := Trunc((DateTime - DelphiDays) * MSecsPerDay10);
Result := @IBDat;
end;