Page 2 of 2 FirstFirst 1 2
Results 16 to 26 of 26

Thread: Hoeveel weken er in een jaar zitten

  1. #16
    [OffTopic]
    De functie IsLeapYear geeft terug of een opgegeven jaar een schrikkeljaar is.
    [/OffTopic]
    1+1=b

  2. #17
    Member
    Join Date
    Feb 2003
    Location
    Netherlands,Landgraaf
    Posts
    86

    fout

    Leuk geprobeerd maar als ik deze functie gebruik geeft hij bij 2000 ook een schrikkeljaar maar dat is niet juist. Heeft iemand mischien een andere functie voor te bepalen of het een schrikkel jaar is of niet.

  3. #18
    Senior Member PsychoMark's Avatar
    Join Date
    Nov 2001
    Location
    Raamsdonksveer
    Posts
    10,269
    Naar mijn weten was 2000 wel degelijk een schrikkeljaar, maar correct me if I'm wrong
    Qui custodiet ipsos custodes

  4. #19
    TCrapCodeProducer JackBigMac's Avatar
    Join Date
    May 2002
    Location
    Rotterdam
    Posts
    1,293
    2000 IS toch een schrikkeljaar. Ik kan het weten want ik ben jarig op 29 februari. Daarom sta ik ook niet op de NLDelphi kalender (behalve in een schrikkeljaar dan)
    It is in change that we find purpose.

  5. #20
    Member
    Join Date
    Feb 2003
    Location
    Netherlands,Landgraaf
    Posts
    86

    Thumbs up mijn fout

    Ik heb het opgezocht maar de functie klopt toch

    namelijk een schikkeljaar is het wanneer:

    Every year divisible by 4 is a leap year.
    However, every year divisible by 100 is not a leap year.
    However, every year divisible by 400 is a leap year after all.

  6. #21
    Old Navigator Matthijs's Avatar
    Join Date
    Mar 2001
    Location
    Ede, NL. Delphi: Delphi 7/2005 :). Matthijs schrijf je Matthijs
    Posts
    2,199

    Re: mijn fout

    Originally posted by Ralph
    Ik heb het opgezocht maar de functie klopt toch

    namelijk een schikkeljaar is het wanneer:

    Every year divisible by 4 is a leap year.
    However, every year divisible by 100 is not a leap year.
    However, every year divisible by 400 is a leap year after all.
    Zei ik toch!

    Dit moet iedereen toch weten? Hoef je tegenwoordig geen kalender meer te maken als je leert programmeren?
    What's in a sig?

    Would my posting be less valuable if it didnot have a sig? (Vrij naar William S.)

    Let op de kleine lettertjes. For all postings: e&oe!
    This program performed an illegal function, the police are on their way

  7. #22
    Wil overigens elke programmeur er dan nota van nemen dat na 3300 AD het verhaal niet meer klopt!! We wijken dan weer af.....
    Het recht is als licht, het kan gebogen worden

  8. #23
    notice-itter SvG's Avatar
    Join Date
    Apr 2002
    Location
    's-Hertogenbosch
    Posts
    4,865
    Originally posted by Loom
    Wil overigens elke programmeur er dan nota van nemen dat na 3300 AD het verhaal niet meer klopt!! We wijken dan weer af.....
    dat zetten we in onze agenda!
    !

  9. #24
    C#, Delphi 7 user Bug's Avatar
    Join Date
    Mar 2003
    Location
    In our toxic environment.
    Posts
    375
    Ik heb deze functie een keer gemaakt. Deze checkt of een datum geldig is.
    (ed8, ed9 en ed 12) staan voor editboxen. Je kan zelf wel even uitvissen wat jaar, maand en dag is.

    Code:
    function checkM_D : boolean;
    var
      ed8, ed9, ed12 : integer;
    begin
      ed8 := strtoint(form17.edit8.text);
      ed9 := strtoint(form17.edit9.text);
      ed12 := strtoint(form17.edit12.text);
      if (ed8 = 2) and (ed12 mod 400 = 0) and (ed9 > 29) then begin
        {wel schrikkeljaar}
        result := false;
        exit;
      end else if (ed8 = 2) and ((ed12 mod 100 = 0) xor (ed12 mod 400 = 0)) and (ed9 > 28) then begin
        {geen schrikkeljaar}
        result := false;
        exit;
      end else if (ed8 = 2) and (ed12 mod 4 = 0) and (ed9 > 29) then begin
        {wel schrikkeljaar}
        result := false;
        exit;
      end else if (ed8 = 2) and (ed12 mod 4 <> 0) and (ed9 > 28) then begin
        {geen schrikkeljaar}
        result := false;
        exit;
      end else if (ed8 = 4) and (ed9 > 30) then begin
        result := false;
        exit;
      end else if (ed8 = 6) and (ed9 > 30) then begin
        result := false;
        exit;
      end else if (ed8 = 9) and (ed9 > 30) then begin
        result := false;
        exit;
      end else if (ed8 = 11) and (ed9 > 30) then begin
        result := false;
        exit;
      end;
    Als men verbeteringen heeft hoor ik die graag natuurlijk....

    ≈∞㎓

  10. #25

    Hoezo 52

    Je stelt dat wel zo stellig, maar er zijn hele volksstammen die beweren dat 2003 53 weken heeft.

    Daar zijn regels voor, maar ik heb geen idee waar ik die kan vinden, want ik heb zelf een op weken gebaseerd planningssysteem gemaakt en heb over 2 weken een probleem!!!!

  11. #26
    Zoals eerder in deze thread vermeld kun je dit vinden in de beschrijving ISO 8601.
    Een aantal relevante links:
    http://www.iso.ch/iso/en/prods-servi...esandtime.html
    http://www.cs.tut.fi/~jkorpela/iso8601.html
    Die opzich verwijzen naar andere relevante links.
    Succes
    Het recht is als licht, het kan gebogen worden

Page 2 of 2 FirstFirst 1 2

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Replies: 34
    Last Post: 18-Dec-03, 00:23

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •