record ændring = dato + sammenlign dbedit med pc ur

Hvis du kan finde ud af at opdatere en record, kan du sikkert også finde ud af, at sætte et felt = now() - evt. hvja. FormatDateTime().

D7 har i DateUtils en funktion, der hedder MonthsBetween(Now,Then) - tag et kig på den.

jeg har D5 og derfor ikke DateUtils

Hvad bruger du, BDE og TTable eller hvad?

ja en table uden bde det er en 3 parts database

hvis jeg skriver nedenstående får jeg 30-12-1899

var
  date : TDateTime;
  str : string;
begin
  Date := Time;
  str := dateToStr(Date);
  Rettelse.Text := str;
end;

ups kan da bare skrive:

  Rettelse.Text := DateToStr(Date);

så virker det

så er det stadig spørgsmål 2 jeg ikke kan finde ud af

Nu kender jeg ikke dit program men kunne du bruge en function der retunere en alder når den gives en fødselsdag?

Nå, nu har jeg lige lavet den så får du den uanset om du kan bruge den eller ej :-)

function GetAlder(fDato : TDate) : integer;
var
  fYear,fMonth,fDay,
  Year,Month,Day : word;
begin
  DecodeDate(fDato,fYear,fMonth,fDay);
  DecodeDate(Date,Year,Month,Day);
  Result:=Year-fYear;
  if ((fMonth=Month) and (fDay>Day)) or (fMonth>Month) then
    Dec(Result);
end;

jo den kunne godt bruges - men hvordan kaldes den funktion og hvordan indsættes resultatet i en dbedit - result kunne det være min dbedit? undskyld hvis jeg spørger "dumt"

Den gang jeg brugte dbedit og andre db komponenter (hvilken jer er holdt op med da jeg syntes de er noget skrammel) satte jeg aldrig en værdi ved at ændre på dbedit men ændrede i stedet i tabellen, f.eks.:
Du har en dbedit der er linket til feltet "Alder" i din Table, feltet alder er af typen integer:

Table.FieldByName('Alder').AsInteger:=GetAlder(dbedit12.text);

Hov, jeg mener:
Table.FieldByName('Alder').AsInteger:=GetAlder(strtodate(dbedit12.text));

eller hvis datoen skal sendes til GetAlder funktionen så skal der rettes lidt i den.

Damn, der skulle stå:
eller hvis datoen skal sendes til GetAlder funktionen som en streng så skal der rettes lidt i den.

hmm synes ikke jeg kan få det til at virke datoen(forskellen) skal vel laves om til integer for at kunne sætte den ind i tabellen (alder)

Funktionen GetAlder retunere en integer så hvis feltet i din tabel er en integer så burde den lige være til at sætte ind.

jo men bruger jeg koden får jeg en fejl på at 48 ikke er et datoformat min 2 felter
hedder:
dbedit11(alder hvor der står 48)
dbedit12(dato/år)

Hvordan ser din kode ud?

Table1.FieldByName('alder').AsInteger:=GetAlder(strtodate(dbedit11.text));

Var det ikke dbedit12 der indeholdt datoen?

jo

Table1.FieldByName('alder').AsInteger:=GetAlder(strtodate(dbedit12.text));

ingen her når koden kører kan bare ikke se at der sker noget i feltet alder hvor der skulle lægges 1 48 hvis der er 12 måneder i forskel

functionen GetAlder giver dig en alder ud fra en fødselsdato, der bliver ikke regnet på noget med 12 måneder eller lagt 1 til nogen steder.

ok

hvordan får jeg så resultatet fra (getalder) i feltet dbedit11

Sådan:
Table1.FieldByName('alder').AsInteger:=GetAlder(strtodate(dbedit12.text));

jeg går ud fra at dbedit11 er linket til feltet alder i databasen så når du ændre på alder i databasen så ændres dbedit11 automatisk.

undskyld kroning jeg havde helt misfrostået, det er sgu da indlysende når jeg ændre i datoen eller laver en ny record at resultatet "alder" bliver tilført feltet alder.

det er en god ide og en som jeg kan bruge, jeg har sikkert ikke formuleret mig korrekt ----er det ikke muligt at at automatisere den funktion så hele datasettet bliver rettet automatisk uden at man skal kalde funktionen seperat for hver record.

prøver lige at formulere mig bedre..... hvis man har mange personer i endatabase som er tilføjet over en årrække, så er det besværligt at rette alle record "alder" det som jeg var ude efter var en automation - jeg ved ikke lige hvordan det skal gøres og om hvis man laver det ved start af programmet ville det ikke tage en del tid - eller er der en smartere måde at gøre det på?

skal lige sige at funktionen er tilføjet mit program og det virker fortrinligt.

Du kunne droppe alder i din database og i stedet lave en Calculated field. Eller (næsten det samme), du kunne droppe alder i din database og ændre dbedit11 til en alm. TEdit, i f.eks. OnDataChange kunne du så udfylde TEdit´en med alder vha. GetAlder funktionen.

oki smid lige et svar så tråden kan lukkes

ok