AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Delphi Datum aus DB Datensatz in dieser Woche / Monat
Thema durchsuchen
Ansicht
Themen-Optionen

Datum aus DB Datensatz in dieser Woche / Monat

Ein Thema von Salomon · begonnen am 26. Apr 2007 · letzter Beitrag vom 27. Apr 2007
 
Benutzerbild von Sharky
Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.259 Beiträge
 
Delphi 2006 Professional
 
#6

Re: Datum aus DB Datensatz in dieser Woche / Monat

  Alt 27. Apr 2007, 08:58
Zitat von Salomon:
@hoika: kannst du mir ein paar tipps geben wie du ermittelst ob ein Datum in dieser Woche / Monat liegt? Mir fällt da gerade gar kein Ansatz ein wie ich ran gehen soll....
Hai Salomon,

versuche es mal so:
Delphi-Quellcode:
uses
  DateUtils;

procedure TDemo_Form.btn_ThisWeekClick(Sender: TObject);
var
  first_date_of_the_week: TDate;
  last_date_of_the_week: TDate;
begin
  first_date_of_the_week := StartOfTheWeek(date);
  last_date_of_the_week := EndOfTheWeek(date);
  ShowMessageFmt('Diese Woche geht vom %s bis zum %s',
    [DateToStr(first_date_of_the_week), DateToStr(last_date_of_the_week)]);
end;
Für den Monat dann mit Delphi-Referenz durchsuchenStartOfTheMonth und Delphi-Referenz durchsuchenEndOfTheMonth arbeiten.
Stephan B.
"Lasst den Gänsen ihre Füßchen"
  Mit Zitat antworten Zitat
 


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 19:16 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz