/ 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
beregn dags nr til dato
Fra : Poul-Erik Nielsen


Dato : 31-10-02 22:44

hej igen

hvordan beregner man eks. dag nr 35 (år 2002) til at være 4 feb

mvh
pen



 
 
Toke Eskildsen (01-11-2002)
Kommentar
Fra : Toke Eskildsen


Dato : 01-11-02 01:58

Poul-Erik Nielsen says in dk.edb.programmering.pascal:
> hvordan beregner man eks. dag nr 35 (år 2002) til at være 4 feb

Prøv at læse lidt om TDateTime, EncodeDate og DecodeDate i
hjælpen. De kan hjælpe dig gennem en del datoberegninger.


var
dayNumber: integer;
jan1: TDateTime;
year, month, day: Word;
begin
jan1:= EncodeDate(2002, 1, 1);
dayNumber:= 35;
DecodeDate(jan1+dayNumber-1, Year, Month, Day);
Result:= IntToStr(Year) + '-' + IntToStr(Month) +
'-' + IntToStr(Day);
--
Toke Eskildsen <URL:http://www.daimi.au.dk/~darkwing/>

Poul-Erik Nielsen (03-11-2002)
Kommentar
Fra : Poul-Erik Nielsen


Dato : 03-11-02 10:37

Tak


mvh
pen



"Toke Eskildsen" <darkwing@daimi.au.dk> skrev i en meddelelse
news:MPG.182befeaa89ad913989690@sunsite.auc.dk...
> Poul-Erik Nielsen says in dk.edb.programmering.pascal:
> > hvordan beregner man eks. dag nr 35 (år 2002) til at være 4 feb
>
> Prøv at læse lidt om TDateTime, EncodeDate og DecodeDate i
> hjælpen. De kan hjælpe dig gennem en del datoberegninger.
>
>
> var
> dayNumber: integer;
> jan1: TDateTime;
> year, month, day: Word;
> begin
> jan1:= EncodeDate(2002, 1, 1);
> dayNumber:= 35;
> DecodeDate(jan1+dayNumber-1, Year, Month, Day);
> Result:= IntToStr(Year) + '-' + IntToStr(Month) +
> '-' + IntToStr(Day);
> --
> Toke Eskildsen <URL:http://www.daimi.au.dk/~darkwing/>



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

Månedens bedste
Årets bedste
Sidste års bedste