Delphi-PRAXiS
Seite 4 von 4   « Erste     234   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Datenbanken (https://www.delphipraxis.net/15-datenbanken/)
-   -   Delphi Monate berechnen zwischen zwei datums (https://www.delphipraxis.net/45108-monate-berechnen-zwischen-zwei-datums.html)

marabu 30. Apr 2005 19:49

Re: Monate berechnen zwischen zwei datums
 
Zitat:

Zitat von peter12
Sie würden es in eine SELECT Statement machen?

Oui mon ami - du kannst das Geburtsdatum des Rindes als geb_tag = Trunc(geb_datum) speichern und mit
SQL-Code:
SELECT ((:aktueller_tag - geb_tag) / 30.4375) AS monate FROM rinder ...
das Alter in Monaten abfragen. Dazu musst du nur Trunc(now) als Parameterwert in deiner Query-Komponente verwenden. Bei der Darstellung könntest du eine Nachkommastelle dran lassen - als kleine Zusatzinformation.

Grüße vom marabu

3_of_8 30. Apr 2005 19:58

Re: Monate berechnen zwischen zwei datums
 
@peter:

Quellcode-Tags sind das:

Man schreibt
Code:
[Delphi]
Hier der Delphi-Programmcode
[/Delphi]
.

Dann wird der Code schön formatiert, ungefähr so:
Delphi-Quellcode:
procedure formcreate(Sender: TObject);
var I: Integer;
    StrLst: TStringList;
begin
strlst:=TStringList.create;
for I:=1 to 5 do
begin
if trim(paramstr(I)='') then break;
strlst.add(paramstr(I));
end;
showmessage('Es wurden '+inttostr(I)+' Parameter übergeben.';
strlst.free;
end;
Ist übersichtlicher.

Robert_G 30. Apr 2005 20:02

Re: Monate berechnen zwischen zwei datums
 
Ein anonymer Erbsenzähler würde fast behaupten, dass die Systemzeit eines Clients als nicht vertrauenswürdig eingestuft werden muss. ;)
Dafür bekommt man in Firebird das aktuelle Datum per Current_Date auf dem Silbertablett. ;)
SQL-Code:
SELECT ((Current_Date - Geb_Tag) / 30.4375) as AlterInMonaten
FROM  Rinder
WHERE Miep = :Mööp
btw:...
@Peter
Du solltest dir enrsthaft überlegen brauchbare Spaltennamen zu suchen. ;)
Unterstriche sind bei DB'lern seltsamerweise beliebt. Sie sind bei Programmierern verhasst, da sie den Lesefluss kaputtmachen und im Allgemeinen enfach nur hässlich aussehen. ;)
Firebird gibt dir doch genug Zeichen für deine Bezeichner um es Geburtsdatum oder Birthdate zu nennen.
Mit einer IDE wie IbExpert bekommst du auch noch code completion, wodurch der Tippaufwand als Ausrede ausgedient hat. :P

DP-Maintenance 1. Mai 2005 07:12

DP-Maintenance
 
Dieses Thema wurde von "Sharky" von "VCL / WinForms / Controls" nach "Datenbanken" verschoben.
Das ganze hat sich jetzt ja zu einem DB-Thread entwickelt ;-)


Alle Zeitangaben in WEZ +1. Es ist jetzt 09:33 Uhr.
Seite 4 von 4   « Erste     234   

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 by Thomas Breitkreuz