Hvilken uge er vi i?

Jeg har noget gammel noget... dog C#, men du skulle kunne fange ideen... skifter dog til ny uge søndag.. og ikke mandag, men det er bare ligge en til "dagen" så får du mandag ..


(((System.Convert.ToInt32(DateTime.Now.DayOfYear)-System.Convert.ToInt32(DateTime.Now.DayOfWeek))/7)+1)


Med venlig hilsen
/Jokke Jensen
www.jj-multimediedesign.dk

Hey Allan,
At finde ugedagen er slet ikke så svært.. du kan bruge følgende:

begin
case DayOfWeek(now) of
1: Label2.Caption:='Søndag';
2: Label2.Caption:='Mandag';
3: Label2.Caption:='Tirsdag';
4: Label2.Caption:='Onesdag';
5: Label2.Caption:='Torsdag';
6: Label2.Caption:='Fredag';
7: Label2.Caption:='Lørdag'
end;

bare husk at den første dag er SØNDAG og ikke mandag som "normalt"

Hvis du vil bruge "systemets" "sprog" ... for dagene, kan du bruge:
LongDayNames(DayOfWeek(now)); så henter den navnet på dagen, efter det sprog man har bruger i windows.

For at finde dagens dato, kan du bruge:
DayOfTheMonth(now);

og tror nok der også findes en der hedder WeekOfYear(); eller noget i den stil, som også kræver en TDateTime som parameter.

Håber du kan bruge det

En god lille side om Delphi generelt inklusiv TDateTime er
http://www.delphibasics.co.uk

den har et lille kapitel om TDateTime på følgende url:
http://www.delphibasics.co.uk/Article.asp?Name=Dates

Med venlig hilsen
Ken Christensen

[Redigeret d. 08/03-05 13:09:21 af Ken Christensen]