_DiaRentAge

(    Jmeno          : String;
     DatNar         : Date;
     Muz            : Byte;
     PocVychDeti    : Integer;
 dim DuchVekLet     : Integer;
 dim DuchVekMes     : Integer;
 dim PovPocLetPoj   : Integer;
 dim DatNarNaDuch   : Date;
 dim Status         : Byte;
     FGEName        : String;
     PouzePocitej   : Byte) : Integer

Tato funkce zobrazí dialog (jestliže bude PouzePocitej = true), který vypočte datum odchodu zaměstnance do důchodu. Datum bude uvedeno spolu s ostatními informacemi. Výpočet je platný pro legislativu od 1.1.2010.

Pro parametr DatNar je povolen rozsah od 1.1.1900 do 31.12.2100.

Pro parametr PocVychDeti je povolen rozsah od 0 do 50.

Parametr Status vrací výsledek výpočtu:

• 0 = Hodnota DatNarNaDuch je korektně spočtena.
• 1 = Hodnota DatNarNaDuch byla ručně upravena. Ostatní dim hodnoty (DuchVekLet, ...) jsou spočteny korektně!
• 2 = Hodnota DatNarNaDuch nemohla být vypočtena díky chybě. Chyba mohla být v datu narození, záporný počet dětí, atd..

Parametr FGEName určuje cestu a jméno k tiskovému FGE souboru. Jestliže bude parametr FGEName prázdný, nebude tlačítko [Tiskni] zobrazeno. Nebude-li ve FGEName uvedena cesta, použije se pomocný adresář pro makra tak, jak je uveden vprostředí.

Ve FGE souboru má být jedna sekce BODY a v ní je možno používat následující parametry:

Funkce vrací cmOK nebo cmCancel.

Podívejte se na: Procedury a funkce - Objekty , _GetSpecString

Příklad:

dim DuchVekLet      : Integer;
dim DuchVekMes      : Integer;
dim PovPocLetPoj    : Integer;
dim DatNarNaDuch    : Date;
dim Status          : Byte;

_DiaRentAge("Jan Novák", _Date(19,7,1968), true, 2, 
            DuchVekLet, DuchVekMes, PovPocLetPoj, DatNarNaDuch, Status, 
            "C:\Pam5\Lpt\RentAge.Fge", false);
			
Trace("DuchVekLet:", DuchVekLet, " DuchVekMes:", DuchVekMes, " PovPocLetPoj:", PovPocLetPoj, " DatNarNaDuch:", DatNarNaDuch, " Status:", Status);