Avatar billede compilos Nybegynder
26. januar 2001 - 18:51 Der er 13 kommentarer og
2 løsninger

Datetime

Jeg har DateTimePicker1 og DateTimepicker2, plus edit1 og edit2.

Fra Datepicker1 vælger jeg f.eks. 27/3-2000 -fra DateTimepicker2 29/3-2000. I Edit1 20:00  i Edit2 17:00. Så vil jeg gerne havde regnet ud hvor mange timer der er fra startDato/tid til slutdato/tid. Timeantal vises evt. i edit3

Jeg har store problemer med at konverter frem og tilbage. Hvem kan hjælpe med noget kode.
Avatar billede pstric Nybegynder
26. januar 2001 - 19:16 #1
  Edit3.Text := IntToStr((Trunc(DateTimePicker2.Date) - Trunc(DateTimePicker1.Date)) * 24 +
    (Trunc(StrToTime(Edit2.Text) - StrToTime(Edit1.Text)) * 60) + 1);
Avatar billede dj Nybegynder
26. januar 2001 - 19:25 #2
det var da ikke så lidt point du har sat af til det .. ødelægger jo lidt rankinglisterne når point og sværhedsgrad ikke stemmer overens efter min mening, specielt når der er tale om et overdrevet antal point.
Avatar billede dj Nybegynder
26. januar 2001 - 19:26 #3
nåh.. jeg tror lige jeg opretter et spørgsmål til 6000 point .. så må vi jo se hvem den heldige skal være der skal ind på en 1 plads ..
Avatar billede pstric Nybegynder
26. januar 2001 - 19:27 #4
compilos>> dj har helt ret. Opret et svar og tag selv nogle af pointene.
Avatar billede compilos Nybegynder
26. januar 2001 - 19:29 #5
Det virker umiddelbart ikke. Dette skulle være sådan at edit3 viste 45 (timer).
Avatar billede pstric Nybegynder
26. januar 2001 - 19:46 #6
  Edit3.Text := IntToStr( (Trunc(DateTimePicker2.Date) - Trunc(DateTimePicker1.Date) ) * 24 +
    (Trunc(StrToTime(Edit2.Text) * 24 * 60) - Trunc(StrToTime(Edit1.Text) * 24 * 60)) div 60 );
Avatar billede compilos Nybegynder
26. januar 2001 - 19:54 #7
Nu hjælper det lidt - Men så kan den ikke regne med halve timer
Avatar billede pstric Nybegynder
26. januar 2001 - 19:57 #8
Nej, nu har jeg lige præcist gjort det så det er forskellen i timer, der vises. Vil du have minutterne med?
Avatar billede compilos Nybegynder
26. januar 2001 - 20:02 #9
Det skal være sådan et timeregistreringssystem, Hvor jeg taster startdato, hvilken tid man starter - og derefter slutdatoen og tid. Så skal den regne ud hvor mange timer man ialt har været på arbejde, og det kan godt være over et par dage. Jeg er tilfreds med hvis den kan regne med halve timer, men minutter vil være endnu bedre.
Avatar billede pstric Nybegynder
26. januar 2001 - 20:40 #10
var
  Interval: TDateTime;
begin
  Interval := DateTimePicker2.Date + StrToTime(Edit2.Text) -
    DateTimePicker1.Date - StrToTime(Edit1.Text);
  Edit3.Text := Format(\'%2d:%2.2d\',
    [Trunc(Interval * 24), Trunc(Interval * 24 * 60) mod 60]);
Avatar billede compilos Nybegynder
26. januar 2001 - 20:49 #11
Tak - det ser sgu´ skide godt ud.
Nu skal jeg jo næsten være lidt fræk - Hva´ ska du ha´ af point.

TAK for hjælpen.
Avatar billede pstric Nybegynder
26. januar 2001 - 20:50 #12
Du kan evt. dele dem i to.
Avatar billede compilos Nybegynder
26. januar 2001 - 20:53 #13
Igen TAK
Avatar billede pstric Nybegynder
26. januar 2001 - 20:54 #14
Skulle det være en anden gang...
Avatar billede martinlind Nybegynder
26. januar 2001 - 21:42 #15
Og den nemme :

TimeStampToMSecs(( DateTimeToTimeStamp( DateTimePicker2.DateTime)-DateTimeToTimeStamp(DateTimePicker1.DateTime))


/Martin
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