Code:OdejmijLMD: Różnice pomiędzy wersjami
Z Motława
Linia 20: | Linia 20: | ||
Dec(DoRok); | Dec(DoRok); | ||
end; | end; | ||
+ | // to powinno być chyba tylko gdy aCzyDaty = True | ||
Inc(DoDzien, DaysInAMonth(DoRok, DoMc-1)); | Inc(DoDzien, DaysInAMonth(DoRok, DoMc-1)); | ||
+ | // j.w. gdy aCzyDaty = False | ||
+ | // Inc(DoDzien, 30); | ||
Dec(DoMc); | Dec(DoMc); | ||
end; | end; | ||
Linia 29: | Linia 32: | ||
{ obsluga sytuacji gdy otrzymalismy tyle dni ile ma miesiac - ma to miejsce | { obsluga sytuacji gdy otrzymalismy tyle dni ile ma miesiac - ma to miejsce | ||
gdy wprowadzimy okres od 1go do ost. dnia miesiaca} | gdy wprowadzimy okres od 1go do ost. dnia miesiaca} | ||
+ | // to powinno być chyba tylko gdy aCzyDaty = True | ||
if ((DoMc = OdMc) OR (OdDzien = 1)) AND (Result.Dni = DaysInAMonth(DoRok, DoMc)) then | if ((DoMc = OdMc) OR (OdDzien = 1)) AND (Result.Dni = DaysInAMonth(DoRok, DoMc)) then | ||
begin | begin |
Wersja z 08:10, 18 gru 2009
Funkcja: | |||
---|---|---|---|
OdejmijLMD | |||
opis skrócony: | |||
parametry wejściowe: | OdRoku, OdMiesiaca, OdDnia, DoRoku, DoMiesiaca, DoDnia - liczby, aCzyDaty - Boolean | ||
parametry wyjściowe: | rekord typu TLMD |
Ten artykuł jest w trakcie tworzenia, nie wszystkie odnośniki mogą działać poprawnie lub być rozwinięte Możesz nam pomóc przy rozbudowie dokumentacji systemu - zobacz jak możesz tego dokonać |
techniczne
function OdejmijLMD(OdRok, OdMc, OdDzien, DoRok, DoMc, DoDzien : Word; aCzyDaty: Boolean = True) : TLMD; begin // dni if DoDzien + 1 < OdDzien then begin if DoMc = 1 then begin Inc(DoMc, 12); Dec(DoRok); end; // to powinno być chyba tylko gdy aCzyDaty = True Inc(DoDzien, DaysInAMonth(DoRok, DoMc-1)); // j.w. gdy aCzyDaty = False // Inc(DoDzien, 30); Dec(DoMc); end; Result.Dni := DoDzien - OdDzien;// + 1; if aCzyDaty then Inc(Result.Dni, 1); { obsluga sytuacji gdy otrzymalismy tyle dni ile ma miesiac - ma to miejsce gdy wprowadzimy okres od 1go do ost. dnia miesiaca} // to powinno być chyba tylko gdy aCzyDaty = True if ((DoMc = OdMc) OR (OdDzien = 1)) AND (Result.Dni = DaysInAMonth(DoRok, DoMc)) then begin Result.Dni := 0; Inc(DoMc); end; // miesiace if DoMc < OdMc then begin Inc(DoMc,12); Dec(DoRok); end; Result.Mies := DoMc - OdMc; // lata Result.Lata := DoRok - OdRok; if Result.Lata < 0 then begin Result.Dni := 0; Result.Mies := 0; Result.Lata := 0; end; end;