[Delphi]Datum Rekenen, 40 dagen terug rekenen

[Dala]

Delphi:

procedure TForm1.FormCreate(Sender: TObject);
var t,s:string;
begin
 memo1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'db\check.txt'); //laad txt naar memo
 if memo1.Lines.Count > 0 then begin //is ie nie leeg?
  s:=memo1.Lines.Strings[1];
  t :=copy(s,pos('datum=',s)+length('datum='),length('18-12-2002')); //copieer de datum
  delete(t,pos(' ',t),1); //haal spaties weg
  if (strtodate(formatdatetime('DD-MM-YYYY',now-40))) <= (strtodate(t)) then begin
   showmessage('a');
  end;
 end;
end;

dat txt bestandje heeft de volgende inhoud:

code:

id=1 datum=18-12-2002
id=2 datum=09-12-2002

Nu wil ik dus als de datum langer dan 40 dagen geleden is een bericht /actie uitvoeren.

dus bij memo1.lines.strings[0] zou hij niks moeten doen
want 40 dagen terug is 9-12-2002
en bij memo1.lines.strings[1] zou hij dus berichtje moeten geven.

maar op een of andere manier, geeft hij bij ze allebei een bericht?

[ Voor 27% gewijzigd door Dala op 18-01-2003 16:49 ]

[Anoniem: 25556]

misschien ook even die formatdatetime gebruiken bij je strtodate(t) aanroep?

[ Voor 85% gewijzigd door Anoniem: 25556 op 18-01-2003 16:52 ]

[Dala]

Delphi:

strtodate(formatdatetime('DD-MM-YYYY',strtodate(t)))

da bedoel je?


.. is geen verschil

[Janoz]

Komop, een beetje debuggen.. Weet je toevallig al wat dat oplevert?

[Dala]

ja hoor...


ik heb alles al bekeken..

Delphi:

showmessage(formatdatetime('DD-MM-YYYY',now-40));
showmessage(datetostr(strtodate(t)));
showmessage(formatdatetime('DD-MM-YYYY',strtodate(t)));

de datums kloppen, maar er zit iets fout met dat vergelijken?

maar wat ik er ook aan verander? het wil niet wa ik wil..

ik was aan het denken dat het misschien met datums anders gaat? dus iets dat ik mis?

[ Voor 8% gewijzigd door Dala op 18-01-2003 17:08 ]

[LordLarry]

Gewoon datums met elkaar vergelijken en geen strings. Datums zijn gewone getallen met achter de komma eventueel een tijd.

Delphi:

Trunc(Now-40) <= strtodate(t)

[Dala]

LordLarry schreef op 18 januari 2003 @ 17:31:
Gewoon datums met elkaar vergelijken en geen strings. Datums zijn gewone getallen met achter de komma eventueel een tijd.

Delphi:

Trunc(Now-40) <= strtodate(t)

het is inderdaad een stuk korter, maar het heeft nog steeds het zelfde effect

ik heb al eens gekeken, als ik zegt

Trunc(Now-40) = strtodate(t)

dan reageert hij wel, dus het doet het inprincipe , maar als ik < erbij zet reageert ie op alles?

[LordLarry]

Je wilt kijken of de datum langer als 40 dagen geleden is? Dan zou ik van de <= >= maken gekkie!

[Dala]

LordLarry schreef op 18 januari 2003 @ 19:37:
Je wilt kijken of de datum langer als 40 dagen geleden is? Dan zou ik van de <= >= maken gekkie!

da had ik ook al geprobeert, dat werkt, maar maak ik van de 40, 41 dan doet hij het nie meer, dus reageert ie eigenlijk op de =

ik vind het ram wazig

kan het misschien aan me Delphi Ligge? da ik es opnieuw moet opstarte (de pc?)

wil iemand me even helpe door het stukje source in zijn delphi te plakke?

alvast bedankt

[Just_a_Gamer]

nee dat klopt wat 9 -12 - 2002 Is precies 41 dagen geleden ( toen ) De if statement wilt zeggen: Wanneer de datum precies 40 dagen of ouder is dan zal hij een message geven. Er is helemaal niks fout aan je delphi of je pc. Volgens mij heb je de if statement niet goed begrepen

[Dala]

.... maar bij optie nummer 0 is het niet 40 dagen geleden.. en toch reageert ie..

ik vat dat If statument wel...

en gisteren was 9-12-2002 40 dagen geleden.

[LordLarry]

Nee, het is niet Delphi en opnieuw opstarten zal geen ruk helpen met het rekenen met data.

Ik heb mezelf uitgesloofd voor jouw om het voor eens en altijd duidelijk te maken dat er iets mis is jouw manier van denken of de overige code, maar iig niet aan

Delphi:

var Vandaag: TDateTime;
    DagenGeleden30: TDateTime;
    DagenGeleden39: TDateTime;
    DagenGeleden40: TDateTime;
    DagenGeleden41: TDateTime;
    DagenGeleden50: TDateTime;
begin
  Vandaag := Date;
  DagenGeleden30 := Vandaag - 30;
  DagenGeleden39 := Vandaag - 39;
  DagenGeleden40 := Vandaag - 40;
  DagenGeleden41 := Vandaag - 41;
  DagenGeleden50 := Vandaag - 50;

  if Trunc(Date - 40) >= Trunc(DagenGeleden40) then
    ShowMessage('40 of meer dagen geleden');
end;

Speel er eens mee en trek je conclusies, maar houd aub op met je rare spook verhalen over Delphi en dat ie geen getallen kan vergelijken.

Houd er rekening mee dat een TDateTime ook een tijd deel kan bevatten die heel soms roet in het eten kan gooien van een vergelijking. Vandaar dat er in mijn code Trunc staat bij de vergelijkig.

[Dala]

LordLarry schreef op 19 January 2003 @ 12:45:
Nee, het is niet Delphi en opnieuw opstarten zal geen ruk helpen met het rekenen met data.

Ik heb mezelf uitgesloofd voor jouw om het voor eens en altijd duidelijk te maken dat er iets mis is jouw manier van denken of de overige code, maar iig niet aan

Delphi:

var Vandaag: TDateTime;
    DagenGeleden30: TDateTime;
    DagenGeleden39: TDateTime;
    DagenGeleden40: TDateTime;
    DagenGeleden41: TDateTime;
    DagenGeleden50: TDateTime;
begin
  Vandaag := Date;
  DagenGeleden30 := Vandaag - 30;
  DagenGeleden39 := Vandaag - 39;
  DagenGeleden40 := Vandaag - 40;
  DagenGeleden41 := Vandaag - 41;
  DagenGeleden50 := Vandaag - 50;

  if Trunc(Date - 40) >= Trunc(DagenGeleden40) then
    ShowMessage('40 of meer dagen geleden');
end;

Speel er eens mee en trek je conclusies, maar houd aub op met je rare spook verhalen over Delphi en dat ie geen getallen kan vergelijken.

Houd er rekening mee dat een TDateTime ook een tijd deel kan bevatten die heel soms roet in het eten kan gooien van een vergelijking. Vandaar dat er in mijn code Trunc staat bij de vergelijkig.

toon volledige bericht

bedankt voor je hulp alvast, mijn theorie over da delphi gaar was leek me al wazig.. maar soms sla ik wel eens wartaal uit ..

ik ga es teste

Delphi:

procedure TForm1.FormCreate(Sender: TObject);
var Dag: TDateTime;
    s,t:string;
begin
  memo1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'db\check.txt');
   if memo1.Lines.Count > 0 then begin
    s:=memo1.Lines.Strings[1];
    t :=copy(s,pos('datum=',s)+length('datum='),length('18-12-2002'));
    delete(t,pos(' ',t),1);
    Dag := strtodate(t);
  if Trunc(Date - 40) >= Trunc(Dag) then
    ShowMessage('40 of meer dagen geleden');
end;
end;

edit:

Erg bedankt dit werkt

ik denk dat het kwam doordat ik niet goed trunc gebruikt (ik heb die functie nu eens even opgezocht in me dik delphi boek)

in iedergeval, bedankt

[ Voor 29% gewijzigd door Dala op 19-01-2003 12:58 ]

[FendtVario]

Of als je delphi >= 6 hebt (komt uit de help):

Returns the number of whole days between two specified TDateTime values.

Unit: DateUtils

Category: date/time routines

function DaysBetween(const ANow, AThen: TDateTime): Integer;

Description: Call DaysBetween to obtain the difference, in days, between two TDateTime values.

DaysBetween counts only whole days that have elapsed. Thus, DaysBetween reports the difference between Dec 31, 1999 11:59 PM and Jan 1, 2000 11:58 PM as 0 because the difference is one minute short of an entire day.

[Dala]

hey, das leuk, ik heb inderdaad delphi 6.

bedankt voor je hulp nog

[FendtVario]

Dan heb je vandaag als het goed is twee dingen geleerd:
1) deze funtie
2) kijk eerst in de help

en misschien deze als je eerdere versies van delphi hebt gebruikt:
3) kijk voordat je stomweg een nieuwe versie gebruikt eerst even in de help bij What's New. Dit kan belangrijk zijn, het gebeurt niet zo vaak, maar bepaalde functionaliteit kan veranderen.

[Dala]

FendtVario schreef op 19 januari 2003 @ 22:09:
Dan heb je vandaag als het goed is twee dingen geleerd:
1) deze funtie
2) kijk eerst in de help

en misschien deze als je eerdere versies van delphi hebt gebruikt:
3) kijk voordat je stomweg een nieuwe versie gebruikt eerst even in de help bij What's New. Dit kan belangrijk zijn, het gebeurt niet zo vaak, maar bepaalde functionaliteit kan veranderen.

optie 3 is het.......


ik kijk veel in de help hoor

maar ik heb hier een dik delphi 4 boek liggen a 1200 pagina's

en daar stond idd nog nie die functie in

maar, dan kan ik weer verder bedankt