Results 1 to 9 of 9

Thread: Berekening van data

  1. #1

    Berekening van data

    Hallo,

    Ik krijg als input een gegeven weekdag. Dus geen zaterdag of zondag.
    Nu moet ik de 5 vorige weekdagen vinden.
    Zijn er functies die ik kan gebruiken om dit te verwezelijken?

    Alvast bedankt voor jullie feedback

    Lainkes

  2. #2
    Silly member NGLN's Avatar
    Join Date
    Aug 2004
    Location
    Werkendam
    Posts
    5,133
    Jazeker. De DateUtils unit biedt veel handige routines. Met bijvoorbeeld DayOfTheWeek kun je bepalen welke dag van de week het is (1-7). Afhankelijk daarvan kun je er dagen bij optellen of aftrekken.
    (Sender as TNLDUser).Signature := 'Groeten van Albert';

  3. #3
    Ok, bedankt voor de info.
    Hoe kan ik dagen aftrekken? Ik heb geprobeerd met

    Code:
    incday(datum,-1);
    maar dat lukt niet.
    De datum blijft dezelfde.

    Lainkes

  4. #4
    Senior Member Delphiwizard's Avatar
    Join Date
    Dec 2006
    Location
    België
    Posts
    160
    IncDay retourneert een datum dus dat moet volgens mij datum := Incday(datum, -1); zijn

  5. #5
    Silly member NGLN's Avatar
    Join Date
    Aug 2004
    Location
    Werkendam
    Posts
    5,133
    Jep.

    Een andere manier om met datums te rekenen is als volgt:

    Een TDateTime is onder de motorkap eigenlijk een Double, waarbij het integer-gedeelte de dagen voorstellen, en het fractionele gedeelte de fractie van die dag. Now() levert bijvoorbeeld 44237,420503912. Dus gisteren rond deze tijd is 44236,420503912. Oftewel:

    Delphi Code:
    1. var
    2.   Yesterday: TDate;
    3. begin
    4.   Yesterday = Date - 1;
    (Sender as TNLDUser).Signature := 'Groeten van Albert';

  6. #6
    Ik heb de oplossing gevonden.
    Je moet blijkbaar een variabele de waarde incday toewijzen, aangezien het een functie is.

    Lainkes

  7. #7
    Senior Member Delphiwizard's Avatar
    Join Date
    Dec 2006
    Location
    België
    Posts
    160
    Je hebt trouwens ook StartOfTheWeek en EndOfTheWeek functies waarmee je misschien wel iets kan.

  8. #8
    Quote Originally Posted by NGLN View Post
    Delphi Code:
    1. var
    2.   Yesterday: TDate;
    3. begin
    4.   Yesterday = Date - 1;
    Dat gaat niet altijd op, vadaar routines als IncDate() etc.

    Bart

  9. #9
    En het is leesbaarder. Maakt de bedoeling duidelijker, zelfs als die functie intern gewoon Date - 1 teruggeeft.
    1+1=b

Thread Information

Users Browsing this Thread

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

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
  •