Re: Dagnummer berekenen uit een datum (Delphi)

Article View: be.comp.programming

Article #6198

Back to be.comp.programming Previous Next

#6198

From: Jeffrey Drooghenbroodt
Date: Tue, 07 Jan 2003 23:35

29 lines
1649 bytes

JVB wrote:

> Hallo, Om een dagnummer uit een datum te berekenen kan je dat doen
> met de functie DayOfTheYear (Vanaf Delphi 6)
> 
> Hoe moet je nu die functie aanspreken ? Wie heeft eventueel een
> voorbeeld ? Dank voor uw tijd.

uses DateUtils;

procedure uitleg;
var
  datum: tDateTime;
  dagvanjaar: word;
begin
  dagvanjaar := DayOfTheYear(datum);
end;


procedure voorbeeld;
var
  vandaag: word;
begin
  vandaag := DayOfTheYear(now);
end;

-- 
Jeffrey
http://www.pebbels.be/

Technical Details

Message-ID: <Xns92FD611D3DD3IIjeffrey@pebbels.be>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-01!sn-xit-06!sn-xit-09!supernews.com!newshosting.com!news-xfer1.atl.newshosting.com!newsfeed.icl.net!newsfeed.fjserv.net!syros.belnet.be!news.belnet.be!ossa.telenet-ops.be!afrodite.telenet-ops.be.POSTED!not-for-mail

References: <53IS9.95078$Ti2.13466@afrodite.telenet-ops.be>

Show Full Headers

Complete Article Headers

X-Google-Language: DUTCH,ASCII-7-bit
X-Google-Thread: fcea4,82b231a7f793207c
X-Google-Attributes: gidfcea4,public
X-Google-ArrivalTime: 2003-01-07 15:36:50 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-01!sn-xit-06!sn-xit-09!supernews.com!newshosting.com!news-xfer1.atl.newshosting.com!newsfeed.icl.net!newsfeed.fjserv.net!syros.belnet.be!news.belnet.be!ossa.telenet-ops.be!afrodite.telenet-ops.be.POSTED!not-for-mail
Newsgroups: be.comp.programming
Subject: Re: Dagnummer berekenen uit een datum (Delphi)
From: Jeffrey Drooghenbroodt <jeffrey@pebbels.be>
References: <53IS9.95078$Ti2.13466@afrodite.telenet-ops.be>
Organization: pebbels.be
Message-ID: <Xns92FD611D3DD3IIjeffrey@pebbels.be>
User-Agent: Xnews/05.08.12
X-Face: R,6JV<w[\BEmDM3mzdJ9|SGN1";:gXNhn}e>{7bax85RuLh:!)u0&Adqwej<0H&4URx?.E1`mIU#NKE(+Dh7vb}5RcP"zVk)*-Oa&~-ysYfn//>E=PhK
Lines: 29
Date: Tue, 07 Jan 2003 23:35:52 GMT
NNTP-Posting-Host: 213.224.112.249
X-Complaints-To: abuse@telenet.be
X-Trace: afrodite.telenet-ops.be 1041982552 213.224.112.249 (Wed, 08 Jan 2003 00:35:52 MET)
NNTP-Posting-Date: Wed, 08 Jan 2003 00:35:52 MET

Reply to Parent Message