Str2int

Internφ programovacφ jazykSQL

function Str2int(var s : string) : integer;

Parametry

s °et∞zec znak∙ obsahujφcφ zßpis Φφsla typu Integer

Popis

Funkce Str2int p°evede zßpis Φφsla v °et∞zci s na hodnotu typu Integer a vrßtφ ji. Prßzdn² °et∞zec se p°evede na hodnotu NONEINTEGER.

Hodnota funkce

Funkce vracφ celΘ Φφslo, pokud je jeho desφtkov² zßpis obsahem °et∞zce s. Jinak vracφ NONEINTEGER.

P°φklad:

function KontrolaRC(rcis : string[11]; nar : date) : boolean;
{**************************************}
// funkce kontroluje shodu mezi zadan²m datem narozenφ a zadan²m rodn²m Φφslem
var
  strpom : string[10];
  sr : string[4];
  sm,sd,sm2 : string[2];
  src,rc1,rc2 : string[6];
  
begin
  if (rcis='') or (nar=nonedate) then KontrolaRC := true
  else begin
    sr := Int2str(Year(nar));
    StrDelete(sr,1,2);
    sm := Int2str(Month(nar));
    if StrLength(sm)=1 then sm :="0"+sm;
    sm2 := Int2str(Str2int(sm)+50);  // pro ₧eny
    sd := Int2str(Day(nar));
    if StrLength(sd)=1 then sd :="0"+sd;
    rc1 := sr+sm+sd;
    rc2 := sr+sm2+sd;
    src := StrCopy(rcis,1,6); 
    
    if (rc1=src) or (rc2=src) then KontrolaRC := true
    else begin
      Info_box('Chyba','Nesoulad mezi rodn²m Φφslem a datem narozenφ!!');
      KontrolaRC := false;
    end;
  end;
end;

Viz