/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
dags nr. i delphi3
Fra : Poul-Erik Nielsen


Dato : 26-10-02 14:50

Hej med jer

jeg vil gerne vide hvordan man finder dagens nr. eks. 4 jan. = 4 og 2 feb. =
33 osv. husk skudår.

mvh
pen



 
 
Toke Eskildsen (26-10-2002)
Kommentar
Fra : Toke Eskildsen


Dato : 26-10-02 18:02

Poul-Erik Nielsen says in dk.edb.programmering.pascal:
> jeg vil gerne vide hvordan man finder dagens nr. eks. 4 jan. = 4 og 2 feb. =
> 33 osv. husk skudår.

Hvis man benytter de indbyggede datofunktioner tages der
automatisk hensyn til skudår.

var
countDate, jan1: TDateTime;
year, month, day: Word;
begin
countDate:= Now; // Eller hvilken dag man nu vil
// have dagsnummeret for
DecodeDate(countDate, Year, Month, Day);
Month:= 1; Day:= 1;
jan1:= EncodeDate(Year, Month, Day);
Result:= IntToStr(Trunc(countDate-jan1)+1);
--
Toke Eskildsen <URL:http://www.daimi.au.dk/~darkwing/>

Poul-Erik Nielsen (31-10-2002)
Kommentar
Fra : Poul-Erik Nielsen


Dato : 31-10-02 22:31

TAK

mvh
pen



"Toke Eskildsen" <darkwing@daimi.au.dk> skrev i en meddelelse
news:MPG.1824e9048d4b516898968e@sunsite.auc.dk...
> Poul-Erik Nielsen says in dk.edb.programmering.pascal:
> > jeg vil gerne vide hvordan man finder dagens nr. eks. 4 jan. = 4 og 2
feb. =
> > 33 osv. husk skudår.
>
> Hvis man benytter de indbyggede datofunktioner tages der
> automatisk hensyn til skudår.
>
> var
> countDate, jan1: TDateTime;
> year, month, day: Word;
> begin
> countDate:= Now; // Eller hvilken dag man nu vil
> // have dagsnummeret for
> DecodeDate(countDate, Year, Month, Day);
> Month:= 1; Day:= 1;
> jan1:= EncodeDate(Year, Month, Day);
> Result:= IntToStr(Trunc(countDate-jan1)+1);
> --
> Toke Eskildsen <URL:http://www.daimi.au.dk/~darkwing/>



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408849
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste