Avatar billede vint Nybegynder
19. december 2006 - 18:49 Der er 2 kommentarer og
1 løsning

Fylder højst 7 år i dette kalenderår

Jeg har lidt problemer med at finde ud af noget med datoer i Delphi (6)

Jeg skal afgøre, om et barn i dette kalender år fylder 7 år eller mindre.

Sagt med andre ord, så er jeg ligeglade med alle de børn jeg har registrerede, hvis de i indeværende kalenderår fylder 8.

Fylder de 1, 2, 3, 4, 5, 6 eller 7 år, så skal funktionen returnere true.

Er der en, der vil være behjælpelig?
Avatar billede kroning Nybegynder
19. december 2006 - 19:28 #1
function SyvAarEllerMindre(Dato : TDate) : boolean;
var
    Antal : integer;
begin
    Antal:=YearOf(Date)-YearOf(Dato);
  Result:=(Antal>0) and (Antal<8);
end;

------------------

var
    Test : TDate;
begin
    Test:=StrToDate('12-02-1999');
    if SyvAarEllerMindre(Test) then
      ShowMessage('Yep');
end;
Avatar billede kroning Nybegynder
19. december 2006 - 19:28 #2
Husk at tilføje DateUtils til din uses
19. december 2006 - 19:30 #3
Det må vel blive noget i retning af:

if CurrentYear < (YearOf(BirthDate) + 7) then
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester