AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Vormonat ermitteln

Ein Thema von Walter Landwehr · begonnen am 3. Mai 2023 · letzter Beitrag vom 3. Mai 2023
Antwort Antwort
Walter Landwehr

Registriert seit: 28. Mär 2006
Ort: 32816 Schieder-Schwalenberg
395 Beiträge
 
Delphi 10.4 Sydney
 
#1

Vormonat ermitteln

  Alt 3. Mai 2023, 14:38
Datenbank: Firebird • Version: 2.5 • Zugriff über: IBO
Hallo,
Kann mir jemand kurz helfen. Wie kann ich am einfachsten (wir gehen vom aktuellen Datum aus) den Vormonat ermitteln ?
wir haben den 12.01.2023 und ich benötige somit die 12 als Dezember sowie das Vorjahr also 2022.

Vielleich kann mir auch jemand ein kleines Beispiel machen.

Hintergrund: Ich muss aus einer Firebird Tabelle die ein Datum Feld enthält alle Datensätze des Vormonats ermitteln.

Vielen Dank
Walter Landwehr
Mfg

Walter
  Mit Zitat antworten Zitat
Rollo62
Online

Registriert seit: 15. Mär 2007
4.062 Beiträge
 
Delphi 12 Athens
 
#2

AW: Vormonat ermitteln

  Alt 3. Mai 2023, 14:46
Vielleicht ist das eine Möglichkeit ?
https://entwickler-ecke.de/viewtopic...b1da599aa8a398

Delphi-Quellcode:
function Vormonat(aDatum: TDateTime): String;
var J, M, T : word;
begin
  DecodeDate(aDatum,J,M,T);
  aDatum := EncodeDate(J,M,1);
  Result := FormatDateTime('MMMM',aDatum-1);
end;
  Mit Zitat antworten Zitat
Benutzerbild von MyRealName
MyRealName

Registriert seit: 19. Okt 2003
Ort: Heilbronn
675 Beiträge
 
Delphi 10.4 Sydney
 
#3

AW: Vormonat ermitteln

  Alt 3. Mai 2023, 15:06
Das geht bei Direbird im SQL mit DATEADD
Da sagts halt monat -1 und bist im Vormonat. Würde dann noch auf ersten und letzten des Monats mit BETWEEN gehen... das kannst auch alles mit DATEADD berechnen

Eventuell so :

Code:
WHERE DATE BETWEEN dateadd(month, -1, CURRENT_DATE - EXTRACT(DAY FROM CURRENT_DATE) + 1)
        AND CURRENT_DATE - EXTRACT(DAY FROM CURRENT_DATE)
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.993 Beiträge
 
Delphi 12 Athens
 
#4

AW: Vormonat ermitteln

  Alt 3. Mai 2023, 15:28
Delphi-Quellcode:
EinMonatFrüher := IncMonth(Now, -1);

AnfangDesVormonats := IncMonth(StartOfAMonth(Now), -1);
Delphi-Referenz durchsuchenStartOfAMonth
Delphi-Referenz durchsuchenIncMonth Delphi-Referenz durchsuchenIncDay
Delphi-Referenz durchsuchenYearOf Delphi-Referenz durchsuchenMonthOf

Aber ja, als DB-Funktion, direkt im SQL, ist es natürlich "optimaler".


  Result := FormatDateTime('MMMM',aDatum-1);
Ihhh, ein nichtssagendes -1 ... dafür gibt es doch IncDay(xxx, -1) (letzter Tag im Vormonat), bzw. eigentlich IncMonth(xxx, -1) (erster Tag des Vormonat).

Genau genommen ist deine -1 "ein Tag vorher" und nicht "ein Monat vorher", aber da du dir vorher den Monatsanfang zusammenbaust und zum Schluß die Tage ignorierst, passt es schon.
Funktional richtig, aber "eigentlich" er will ja den "Vormonat" und nicht den "Vortag" (vom Anfang des aktuellen Monat).

Und nein, ein DecMonth(xxx) gibt es natürlich nicht.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests

Geändert von himitsu ( 3. Mai 2023 um 15:37 Uhr)
  Mit Zitat antworten Zitat
Rollo62
Online

Registriert seit: 15. Mär 2007
4.062 Beiträge
 
Delphi 12 Athens
 
#5

AW: Vormonat ermitteln

  Alt 3. Mai 2023, 15:32
[DELPHI]Genau genommen ist deine -1 "ein Tag vorher" ...
Naja, das ist aus dem Beispiel von dem Link, den ich dazugepackt hatte.
Es wird auch mit -1 = einen Tag vorher funktionieren, weil ein das Datum zerlegt wird und daraus neues Datum gebaut wird, immer auf den 01.mm.yy gesetzt.
Ein Tag vorher ist halt auch zwangsweise immer einen Monat vorher.
Diese Idee finde ich ganz nett.

Es ist aber nicht ganz klar, ob es jetzt überhaupt um Delphi oder um SQL geht.
Beides wäre ja möglich.

Geändert von Rollo62 ( 3. Mai 2023 um 15:35 Uhr)
  Mit Zitat antworten Zitat
Antwort Antwort


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 23:52 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