Konvertere en string til en word?

StrToInt måske

Tja, jeg får i hvert fald ingen compilerfejl ved at bruge StrToInt, men jeg vælger lige at omformulere mit spørgsmål.

Jeg har nedenstående kodestump, som jeg har fundet fået brygget herinde for et år eller to siden.

function BeregnAlder(Birthday, CurrentDate: TDate): integer;
var
  Month, Day, Year, CurrentYear, CurrentMonth, CurrentDay: Word;
begin
  DecodeDate(Birthday, Year, Month, Day);
  DecodeDate(CurrentDate, CurrentYear, CurrentMonth, CurrentDay);

  if (Year = CurrentYear) and (Month = CurrentMonth) and (Day = CurrentDay) then
  begin
    Result := 0;
  end
  else
  begin
    Result := CurrentYear - Year;
    if (Month > CurrentMonth) then
      Dec(Result)
    else
    begin
      if Month = CurrentMonth then
        if (Day > CurrentDay) then
          Dec(Result);
    end;
  end;
end;

Den tager udgangspunkt i at det er en dato, der indsættes som "Birthday", men inputtet her stammer fra en maskedit med formatet xxxxxx-xxxx, hvoraf jeg i dette tilfælde kun skal bruge de fire første tegn. fx 010203 svarende til d. 1. februar 2003.

Det giver mig lidt problemer. Dels at den tager de fire cifre i et CPR nummer med i beregningen, hvilket jeg ville have løst ved nedenstående ændringer og dels at den ikke læser '010203' som en dato, da den mangler -

Min forsøgte Ændring

function TformStamdata.BeregnAlder(Birthday:string;CurrentDate: TDate): integer;
var
  Month, Day, Year, CurrentYear, CurrentMonth, CurrentDay: Word;
begin
  Day := StrToInt(LeftStr(Birthday,2));
  Month := StrToInt(MidStr(Birthday,2,2));
  Year := StrToInt(MidStr(Birthday,4,2));
  DecodeDate(CurrentDate, CurrentYear, CurrentMonth, CurrentDay);

  if (Year = CurrentYear) and (Month = CurrentMonth) and (Day = CurrentDay) then
  begin
    Result := 0;
  end
  else
  begin
    Result := CurrentYear - Year;
    if (Month > CurrentMonth) then
      Dec(Result)
    else
    begin
      if Month = CurrentMonth then
        if (Day > CurrentDay) then
          Dec(Result);
    end;
  end;
end;

Dit problem er nok at Year giver 3 og det skulle være 2003 da CurrentYear er 2008

prøv noget a la:

Year := 2000 + Year;
if Year > CurrentYear then Year := Year - 100;

Hej.

Er ved at rydde op og kan se, at jeg mangler at belønne i denne her tråd.

Var det en opfordring til at smide et svar ?

Ja, det var måske lidt camoufleret :o)