Afrunde klokkeslet

Hmm...
Du kan jo gøre det på denne måde...

Altså få min. ind i en integer...
Og så skriv den der opdatere uret (muligvis en timer):

if min >= 30 then
min := 30;
if min <= 30 then
min := 00;
label1.caption := time+':'+inttostr(min);


Min er minutterne og time er timerne...

Nu skal du så lige finde ud af at få opdelt uret... det hved jeg ikke hvordan gøre...


Koden over skal nok rettes lidt... Det er ikke rettet og skrevet ud igennem hoved (uden test)


Shafh
Shafh@stofanet.dk
Theis F. Hinz

Behandl nørder godt.
Du ender sandsynligvis
med at arbejde for en

Motto af Bill Gates

Jeg mangler en funktion, så jeg kan oprunde nuværende klokkeslet til nærmeste halve time.
F.eks. nu er klokken 18:44, jeg vil så gerne have at programmet fortæller 19:00. På samme måde hvis den er 18:31 eller 18:59, så skal den skrive 19:00.
Hvordan kan jeg gøre det?

--
Thomas

Tilføj DateUtils til din Uses, og brug flg. kode:

function ClockRound(Time: TDateTime): TDateTime;
var
  S, M, H: Word;
begin
  S := SecondOf(Time);
  M := MinuteOf(Time);
  H := HourOf(Time);

  Result := StrToTime(IntToStr(H));
  if (M*60)+S >= 1800 then
    Result := StrToTime(IntToStr(H+1));
end;

eks.:

var
  T: TDateTime;
begin
  T := ClockRound(StrToTime('18:29:59'));
  ShowMessage(FormatDateTime('hh:mm:ss', T));
end;

MH.

The-Freak

Livet er for kort til at kede sig.

Hmm...
Du kan jo gøre det på denne måde...

Altså få min. ind i en integer...
Og så skriv den der opdatere uret (muligvis en timer):

Hehe. Ja. Selvfølgelig. Og så bare lægge +1 til min 'hour'-integer - det havde jeg slet ikke tænkt på - sad og rodede rundt i DateTimeToStr funktionen og tænkte der måtte være en funktion til det - men det er jo super let. Jeg takker.
Jeg starter med Sharft's ide som udgangspunkt, men også tak til The-Freak for et svar.
Jeg lukker tråden.

--
Thomas