Avatar billede morten_s Nybegynder
23. august 2001 - 19:39 Der er 6 kommentarer og
1 løsning

Time

Til brug for datalogning i 5 minutters intervaller
har jeg brug for at konstruere en data felt som stepper med 5 minutters intervaller.

En dag har som bekendt følgende antal minutter
AntalMin := 24*60 = 1440 [min]
og dermed følgende antal 5 minutters intervaller
Antal5MinDogn := 1440/5 = 288.

Jeg kan nu lave en løkke som kører 288 gange

procedure Step5Min
var
  Tid : TTime;
  Cnt : Integer;
Begin
  Tid := 0:00;  <----Dette kan man ikke hvad er den rigtige syntaks ?
  for i := 1 to 288 do
  begin
    Tid := Tid + 5; <-----Og dette går også galt
    Label1.Caption := DateToTime(Tid);
  end;
end;

Håber nogle kan hjælpe med ovenstående syntaks.
Og ja, jeg ved godt at jeg ikke kan nå at aflæse lablen når løkken kører.


Avatar billede nico26 Nybegynder
23. august 2001 - 19:44 #1
Tid := 0;

Tid := Tid + (1 / 288);
Avatar billede nico26 Nybegynder
23. august 2001 - 19:47 #2
TTime er en double, hvor heltalsdelen repræsenterer antal dage siden år 1900, og decimaldelen er så tiden den pågældende dag. når der går 288 5-minnuters intervaller på eet døgn, skal du bare lægge 1/288 del til tiden. Når du har gjort det 288 gange er der gået et døgn
Avatar billede morten_s Nybegynder
23. august 2001 - 19:49 #3
Tak, det var lige det jeg manglede ;-)))
Avatar billede nico26 Nybegynder
23. august 2001 - 19:49 #4
hvis du vil opdatere lablen mens løkken kører:

Label1.Caption := DateToStr(Tid);
Application.ProcessMessages;
Avatar billede morten_s Nybegynder
23. august 2001 - 19:51 #5
Det vil jeg ikke, jeg vil gemme tallet i min DB
Avatar billede martinlind Nybegynder
23. august 2001 - 21:16 #6
Morten >> Du kan finde og \"sakse tid\'s og data inc rutiner fra D6

/Martin
Avatar billede morten_s Nybegynder
23. august 2001 - 21:18 #7
Martin>> det er kun nogle test data jeg skal bruge til at bygge en graf, det blev tilfældigvis en sinuskurve
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester