delphi - Dage - Udvikleren.dk - Programmering, webdesign og grafik

Tags: delphi

Bruger #4574 @ 05.09.05 20:26

Hvordan kan jeg få mit program til at gøre ting på forskellige dage? Så den tjekker om det er mandag, tirsdag, onsdag osv.

9 svar postet i denne tråd vises herunder
4 indlæg har modtaget i alt 4 karma

Sorter efter stemmer Sorter efter dato

Bruger #8074 @ 05.09.05 20:30

Hvordan kan jeg få mit program til at gøre ting på forskellige dage? Så den tjekker om det er mandag, tirsdag, onsdag osv.

Ved ikke lige hvordan du får den til at vise det er mandag, men dato og hvad klokken er:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := (TimeToStr(Time)+' '+(DateToStr(Date)));
end;

Bruger #4479 @ 05.09.05 20:47

602

Hvordan kan jeg få mit program til at gøre ting på forskellige dage? Så den tjekker om det er mandag, tirsdag, onsdag osv.

Ved ikke lige hvordan du får den til at vise det er mandag, men dato og hvad klokken er:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := (TimeToStr(Time)+' '+(DateToStr(Date)));
end;

ja det kan jeg også sagtens, men det er det med mandag, tirsdag og sådan der er problemet

FormatDateTime('dddd', Date)

Hilsen Mathias

Bruger #3275 @ 05.09.05 21:25

1.736

ShowMessage(IntToStr(DayOfTheWeek(Date)));

Så får du hvilken dag det er i dag.

Mandag = 1
Tirsdag = 2
Onsdag = 3
Torsdag = 4
Fredag = 5
Lørdag = 6
Søndag = 7

-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GED d- s: a--- C++ U? P L+ E? W++ N? o? K- w
O? M? V? PS PE? Y? PGP++ t 5? X+ R tv+ b+ DI? D+
G e-- h! !r y--
------END GEEK CODE BLOCK------

Bruger #782 @ 07.09.05 15:05

291

så an du også udvide det med

Kode

procedure tform1.button1click(sendet: tobject);
Const
 dage: array[0..6] of string = ('Søndag','Mandag','Tirsdag','Onsdag','Torsdag','Fredag','Lørdag');
begin
edit1.text := dage[DayOfTheWeek(Date)];
end;

ps dayoftheweek ligger i DateUtils og den returnerer 0 på ens søndag

ShowMessage(IntToStr(DayOfTheWeek(Date)));

Så får du hvilken dag det er i dag.

Mandag = 1
Tirsdag = 2
Onsdag = 3
Torsdag = 4
Fredag = 5
Lørdag = 6
Søndag = 7

-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GED d- s: a--- C++ U? P L+ E? W++ N? o? K- w
O? M? V? PS PE? Y? PGP++ t 5? X+ R tv+ b+ DI? D+
G e-- h! !r y--
------END GEEK CODE BLOCK------

Jeppe Johansen
Jeppesoftware@hotmail.com

Bruger #4574 @ 05.09.05 20:38

Hvordan kan jeg få mit program til at gøre ting på forskellige dage? Så den tjekker om det er mandag, tirsdag, onsdag osv.

Ved ikke lige hvordan du får den til at vise det er mandag, men dato og hvad klokken er:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := (TimeToStr(Time)+' '+(DateToStr(Date)));
end;

ja det kan jeg også sagtens, men det er det med mandag, tirsdag og sådan der er problemet

Bruger #8074 @ 05.09.05 20:47

Hvordan kan jeg få mit program til at gøre ting på forskellige dage? Så den tjekker om det er mandag, tirsdag, onsdag osv.

Ved ikke lige hvordan du får den til at vise det er mandag, men dato og hvad klokken er:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := (TimeToStr(Time)+' '+(DateToStr(Date)));
end;

ja det kan jeg også sagtens, men det er det med mandag, tirsdag og sådan der er problemet

Jamen kan du ikke bare bar gøre sårn fx hvis det i dag er fredag d. 12 og programmet skal gøre noget søndag så bare regne 2 dage frem? eller lave et uge array?

Bruger #4574 @ 05.09.05 21:12

nej jeg vil gerne have den læser det fra windows på en eller anden måde

Bruger #3275 @ 07.09.05 18:53

1.736

så an du også udvide det med
Kode
procedure tform1.button1click(sendet: tobject);
Const
 dage: array[0..6] of string = ('Søndag','Mandag','Tirsdag','Onsdag','Torsdag','Fredag','Lørdag');
begin
edit1.text := dage[DayOfTheWeek(Date)];
end;
ps dayoftheweek ligger i DateUtils og den returnerer 0 på ens søndag

ShowMessage(IntToStr(DayOfTheWeek(Date)));

Så får du hvilken dag det er i dag.

Mandag = 1
Tirsdag = 2
Onsdag = 3
Torsdag = 4
Fredag = 5
Lørdag = 6
Søndag = 7

-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GED d- s: a--- C++ U? P L+ E? W++ N? o? K- w
O? M? V? PS PE? Y? PGP++ t 5? X+ R tv+ b+ DI? D+
G e-- h! !r y--
------END GEEK CODE BLOCK------

Jeppe Johansen
Jeppesoftware@hotmail.com

Skal du så ikke sige array[1..7] ??

-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GED d- s: a--- C++ U? P L+ E? W++ N? o? K- w
O? M? V? PS PE? Y? PGP++ t 5? X+ R tv+ b+ DI? D+
G e-- h! !r y--
------END GEEK CODE BLOCK------

Bruger #4479 @ 07.09.05 19:34

602

så an du også udvide det med
Kode
procedure tform1.button1click(sendet: tobject);
Const
 dage: array[0..6] of string = ('Søndag','Mandag','Tirsdag','Onsdag','Torsdag','Fredag','Lørdag');
begin
edit1.text := dage[DayOfTheWeek(Date)];
end;
ps dayoftheweek ligger i DateUtils og den returnerer 0 på ens søndag

ShowMessage(IntToStr(DayOfTheWeek(Date)));

Så får du hvilken dag det er i dag.

Mandag = 1
Tirsdag = 2
Onsdag = 3
Torsdag = 4
Fredag = 5
Lørdag = 6
Søndag = 7

-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GED d- s: a--- C++ U? P L+ E? W++ N? o? K- w
O? M? V? PS PE? Y? PGP++ t 5? X+ R tv+ b+ DI? D+
G e-- h! !r y--
------END GEEK CODE BLOCK------

Jeppe Johansen
Jeppesoftware@hotmail.com

Det kan gøres nemmere med
edit1.text := FormatDateTime('dddd', Date);

Hilsen Mathias

Dage

Karma barometer (30 dage)

Modtaget

Givet

Favorit hos
Forum tråde
Artikler