AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

wochentag berechnen

Ein Thema von tobiasw · begonnen am 4. Dez 2004 · letzter Beitrag vom 6. Mär 2013
Antwort Antwort
Seite 2 von 4     12 34   
Benutzerbild von stina
stina

Registriert seit: 6. Mär 2013
23 Beiträge
 
Delphi 2010 Professional
 
#1

AW: wochentag berechnen

  Alt 6. Mär 2013, 11:10
Hey das is keine Antwort sondern ne Frage!
Also ich soll mit vcl ein programm erstellen in das man name und Geburtsdatum einträgt und wenn man auf den button klickt soll son Satz erscheinen wie: Sie wurden an einem.......geboren oder Der Name und dannSie wurden an einem Sonntag geboren.
Meine Frage ist wie mach ich das???
Beispiel:
Name: Stina Geburtsdatum 6.7.1998
Stina sie wurden an einem Montag geboren.
oder so ähnlich.
Danke im Vorraus
Ps: Die Rechtschreibfehler sind gratis
Ann-Christin
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.851 Beiträge
 
Delphi 11 Alexandria
 
#2

AW: wochentag berechnen

  Alt 6. Mär 2013, 11:14
Und in den Antworten vorher sind genügend Hinweise für die Lösung!
Markus Kinzler
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#3

AW: wochentag berechnen

  Alt 6. Mär 2013, 11:20
So einen thread nach 8 Jahren ausbuddeln...

Du hast es schon einmal mit DayoftheWeek versucht?

Wo klemmt es denn genau?

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
Blup

Registriert seit: 7. Aug 2008
Ort: Brandenburg
1.440 Beiträge
 
Delphi 10.4 Sydney
 
#4

AW: wochentag berechnen

  Alt 6. Mär 2013, 12:04
Für die ganz Faulen: http://www.delphibasics.co.uk/RTL.asp?Name=DayOfWeek
  Mit Zitat antworten Zitat
tobiasw

Registriert seit: 11. Nov 2004
156 Beiträge
 
Delphi 2005 Architect
 
#5

Re: wochentag berechnen

  Alt 4. Dez 2004, 13:23
AYear
  Mit Zitat antworten Zitat
tobiasw

Registriert seit: 11. Nov 2004
156 Beiträge
 
Delphi 2005 Architect
 
#6

Re: wochentag berechnen

  Alt 4. Dez 2004, 13:29
so das Problem wäre gelöst hatte doch tatsächlich vergessen das als Variable zu deklarieren. Wenn ich jetzt aber Tag 1, Monat 2, Jahr 2004 schreibe bekomm ich einen Fehler der heißt invalid argument to date encode
  Mit Zitat antworten Zitat
Benutzerbild von Lantis
Lantis

Registriert seit: 13. Mär 2003
16 Beiträge
 
Delphi 6 Personal
 
#7

Re: wochentag berechnen

  Alt 4. Dez 2004, 13:29
Hi, vielleicht hilft Dir das hier ein wenig.
Delphi-Quellcode:
function Wochentag(Datum:TDateTime):string;
var
  days: array[1..7] of string;
begin
  days[1] := 'Sonntag';
  days[2] := 'Montag';
  days[3] := 'Dienstag';
  days[4] := 'Mittwoch';
  days[5] := 'Donnerstag';
  days[6] := 'Freitag';
  days[7] := 'Samstag';
  Result:=(days[DayOfWeek(Datum)]);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(Wochentag(Date)); //gibt den Wochentag von Heute aus
end;
Gruß Lantis
  Mit Zitat antworten Zitat
tobiasw

Registriert seit: 11. Nov 2004
156 Beiträge
 
Delphi 2005 Architect
 
#8

Re: wochentag berechnen

  Alt 4. Dez 2004, 13:32
@lantis danke das ist aus der Delphi Hilfe da bin ich auch schon drübergestolpert aber ich soll ja den Wochentag von einem belibigen tag,monat und Jahr ausgeben lasssen
  Mit Zitat antworten Zitat
Benutzerbild von Nikolas
Nikolas

Registriert seit: 28. Jul 2003
1.528 Beiträge
 
Delphi 2005 Personal
 
#9

Re: wochentag berechnen

  Alt 4. Dez 2004, 13:40
Hast du die passende Unit eingebunden?
Erwarte das Beste und bereite dich auf das Schlimmste vor.
  Mit Zitat antworten Zitat
Benutzerbild von Pr0g
Pr0g

Registriert seit: 21. Mai 2004
809 Beiträge
 
Delphi 7 Personal
 
#10

Re: wochentag berechnen

  Alt 4. Dez 2004, 13:40
Bei mir geht der Code ohne Probleme:
Delphi-Quellcode:
function WochenTag(AYear, AMonth, ADay: Integer): Integer;
begin
  Result := DayOfWeek(EncodeDate(AYear, AMonth, ADay)) - 1;
  if Result = 0 then
    Result := 7;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := FloatToStr(WochenTag(2004, 12, 4));
end;
Aber warum nutzt du FoatToStr bei einem Integer? Ist doch AFAIK nur langsamer.

MfG Pr0g
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 4     12 34   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:27 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz