Monat abziehen

[JSB]

Gibt es eine Möglichkeit vom "Now" einen Monat abzuziehen (sowas wie : Now-1Monat)???
30/31 ist zu ungenau...

[glkgereon]

pack das ganze mit DateTimeToStr in nen string, lies den monat gesondert aus, mach ihn um eins kleiner, und mit StrToDateTime zurück....

[Sanchez]

Alternativ könntest du

Delphi-Quellcode:

  ZeitPunkt := IncMonth(now, -1);

nehmen. :mrgreen:

[JSB]

danke probiere aus...

[Leuselator]

Was genau willst Du machen?

[JSB]

hatte letzten kommentar nicht gelesen...

ich will einem Query sagen das er datensetze zeigen soll wo das Feld Datum aus diesem Monat stammt

[JSB]

Zitat:

Zitat von Sanchez

Alternativ könntest du

Delphi-Quellcode:

  ZeitPunkt := IncMonth(now, -1);

nehmen. :mrgreen:

berechnet er korrekt alle Tage oder setzt er den Monat einfach nur einen Zurück?

[Sanchez]

Was hat dein Versuch ergeben?

[JSB]

12.12.04
also richtig oder?
(SICHER, is SICHER)

[Leuselator]

wenn Du mit MSSQL oder MSDE abeitest, sollte

SQL-Code:

SELECT * --was auch immer
  FROM Tabelle -- wo auch immer
 WHERE datepart(month,Datumsfeld) = datepart(month,getdate())
   AND datepart(year,Datumsfeld)  = datepart(year,getdate())

das gewünschte Ergebnis erzielen - andere SQL-Dialekte haben ähnliche Funktionen zu bieten.
Gruß

[Sanchez]

Einen Unterschied würds doch IMHO erst machen, wenn du z.B. vom 30.3 einen Monat abziehst.

[glkgereon]

jo

ich hab ne kleine function dras gemacht *ggg*

mit schaltjahr und allem

Delphi-Quellcode:

function Schaltjahr(Year:Integer):Boolean;
begin
  Result:=((Year Mod 4 = 0) or (Year Mod 400 = 0))
          and not (Year Mod 100 = 0);
end;

function ChangeDate(Value:TDateTime; DayChange, MonthChange, YearChange: Integer):TDateTime;
var Temp: String;
    Mon, Year, Day:Integer;
begin
  Temp:=DateTimeToStr(Value);
  Day:=StrToInt(copy(Temp,1,2));
  Mon:=StrToInt(copy(Temp,4,2));
  Year:=StrToInt(copy(Temp,7,4));
  Day:=Day+DayChange;
  Mon:=Mon+MonthChange;
  Year:=Year+YearChange;
  if Day=0 then
    begin
    Dec(Mon);
    Case Mon of
    1,3,5,7,8,10: Day:=31;
    4,6,9,11: Day:=30;
    2:if Schaltjahr(Year)
      then Day:=29
      else Day:=28;
    end;
    end;
  if Mon=0 then
    begin
    Mon:=12;
    Dec(Year);
    end;
  Temp:=IntToStr(Day)+'.'+IntToStr(Mon)+'.'+IntToStr(Year);
  Result:=StrToDateTime(Temp)+(Value-Trunc(Value));
end;

fehler sind möglich, hab aber spontan keine gefunden ;)

übergeben wird ein DateTime-Wert

bei den werten Value,0,2,-1 wird value um 2 moinate nach vorne und 1 jahr nach hinten versetzt und zurückgegeben

aufruf zb so

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Value: TDateTime;
begin
  Value:=DateTimePicker1.DateTime;
  Value:=ChangeDate(Value,0,-1,0);
  ShowMessage(DateTimeToStr(Value));
end;

[Sanchez]

Was gefällt dir den an den Funktionen IncDay, IncMonth, IncYear, ... nicht?
Du erfindest da das Rad nochmals.

[glkgereon]

An denen gefällt mir net das ich net wusste das sie existieren :mrgreen:

aber machen die das mit schaltjahr und so?
alles dabei?