Dni tygodnia

0

szukałem w archiwum ale nie mogłem nic znaleŹć - może zle szukałem - ale to nic przecie mogę sie zapytać was!!
jak napisać w Delphi (oczywiście) ;) procedure do rozpoznawania dnia
chodzi mi o to żeby program rozpoznał dzięń jaki jest i wykonał przydzieloną mu procedure na ten dzień
pozdrowienia dla wszystkich {hello}

0

uses DateUtils;

case DayOfTheWeek(Now) of

1: ProceduraPoniedzialkowa;
2: ProceduraWtorkowa;

itd (az d0 7=niedziela)

albo (zeby bylo czytelniej)

case DayOfTheWeek(Now) of

DayMonday: ProceduraPoniedzialkowa;
DayTuesday: ProceduraWtorkowa;

Mozna tez uzyc funkcji DayOfWeek(Now), ktora rozni sie tym, ze niedziela=1, poniedzialek 2 az do soboty =7. Jednak sie jej nie zaleca bo jest niezgodna z norma ISO, no i oczywiscie nie mozna uzywac stalych DayMonday itd.

A wszystko to jest w helpie do Delphi!!!!!!
--Pawel {Delphi 6 Personal}

Po pierwsze: naciśnij F1

0

pq wywala mi błąd że nie ma DateUtils.dcu - szukałem go sam czy jest ale nie mam - mam delphi 5

0

pow_pow napisał:
pq wywala mi błąd że nie ma DateUtils.dcu - szukałem go sam czy jest ale nie mam - mam delphi 5

To uzyj DayOfWeek - do niego wystarczy SysUtils, mam nadzieje ze jest w D5. Pamietaj, z DayOfWeek niedziela=1--Pawel {Delphi 6 Personal}

Po pierwsze: naciśnij F1

1 użytkowników online, w tym zalogowanych: 0, gości: 1