/ 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
Finde første fredag i en måned(D7)
Fra : Thomas Demant


Dato : 03-01-05 09:30

Jeg har behov for at mit program automatisk kan afgøre hvornår den
første fredag i en måned falder. Altså hvilken dato der er fredag.
Jeg har Googlet lidt frem og tilbage, uden større held.
Jeg havde fat i en simpel rutine med datetime, hvis jeg husker
rigtigt. Men der fandt den først fredagen i den første HELE uge i
måneden. Dvs. at den for f.eks. februar 2005 mente at første fredag
var 11. februar. Jeg ville gerne have 4. februar som resultatet, da
det er det rigtige resultat.

På forhånd tak.

--
Thomas


 
 
Ukendt (03-01-2005)
Kommentar
Fra : Ukendt


Dato : 03-01-05 09:48

Således f.eks:

function førsteFredag(år,måned: word): TdateTime;
var
i: integer;
begin
i:= DayOfTheWeek(encodedate(år,måned,1));
if i in [1..5] then i:= 6-i else i:= 13-i;
result:= encodedate(år,måned,i);
end;


"Thomas Demant" <thomas.demant@adslhome.dk> wrote in message
news:11047411950.254361645553356@dtext.news.tele.dk...
> Jeg har behov for at mit program automatisk kan afgøre hvornår den
> første fredag i en måned falder. Altså hvilken dato der er fredag.
> Jeg har Googlet lidt frem og tilbage, uden større held.
> Jeg havde fat i en simpel rutine med datetime, hvis jeg husker
> rigtigt. Men der fandt den først fredagen i den første HELE uge i
> måneden. Dvs. at den for f.eks. februar 2005 mente at første fredag
> var 11. februar. Jeg ville gerne have 4. februar som resultatet, da
> det er det rigtige resultat.
>
> På forhånd tak.
>
> --
> Thomas
>


Thomas Demant (03-01-2005)
Kommentar
Fra : Thomas Demant


Dato : 03-01-05 10:02

Uffe Kousgaard <look_at_www.routeware.dk> skrev:
>Således f.eks:
>
>function førsteFredag(år,måned: word): TdateTime;
>var
> i: integer;
>begin
> i:= DayOfTheWeek(encodedate(år,måned,1));
> if i in [1..5] then i:= 6-i else i:= 13-i;
> result:= encodedate(år,måned,i);
>end;
Super. Det ser fint ud. Jeg må flette det ind, når jeg kommer hjem.
Mange tak.

--
Thomas


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

Månedens bedste
Årets bedste
Sidste års bedste