Delphi-PRAXiS
Seite 3 von 3     123   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Werkzeuge (https://www.delphipraxis.net/63-sonstige-werkzeuge/)
-   -   Funktionen aus Crystal Reports im Report Builder anwenden (https://www.delphipraxis.net/159387-funktionen-aus-crystal-reports-im-report-builder-anwenden.html)

Metallicwar 13. Apr 2011 11:15

AW: Funktionen aus Crystal Reports im Report Builder anwenden
 
Hallo, ich melde mich mal wieder zurück, komme nun gut vorran, arbeite jetzte mit FormatDateTime.
Habe dazu allerdings noch 2 Fragen:
Delphi-Quellcode:
  Value := FormatDateTime('hh,nn', (dbPipelineAktuellerMonat['Tagesbrutto'] * 60 / 86400); //Tagesbrutto 510
--> Ergebnis : 08:30

Ich möchte mir diese Uhrzeit auch in dezimaler Form anzeigen lassen, also 08:30 => 08:50 oder 08:55 => 8:91


Mein anderes Problem ist, ich möchte mir wieder die Stunden, Minuten eines Wertes berechnen.
ich müsse auf 77,5 Stunden kommen, d.h. ich müsste meine 4650 Minuten / 60 nehmen und käme auf meine hh:nn.
bei
Delphi-Quellcode:
  Value := (FormatDateTime('hh:nn', PipelineMonatsWerte_Tabelle['ISTSTUNDENBRUTTO'] / 60);
liefert er mir jedoch als Ergebnis 12:00 ?!?

Kann mir bitte jemand weiterhelfen?

dataspider 13. Apr 2011 13:54

AW: Funktionen aus Crystal Reports im Report Builder anwenden
 
Es ist eigentlich nicht meine Art.
Aber jetz muss auch ich mich mal "aufregen..."

Beschäftige dich doch mal mit den Typen und Formatfunktionen und experimentiere, bis du es verstanden hast.

zum Üben...:

Delphi-Quellcode:
procedure Uebung;
Var
  ADateValue: TDateTime;
  AFloatValue: Extended;
  s1: string;
  s2: string;
begin
  ADateValue := 510 * 60 / 86400;
  s1 := TimeToStr(ADateValue); // '08:30:00'

  AFloatValue := ADateValue * 24; // 8,5
  s2 := Format('%0.2d:%0.2d', [
      Trunc(AFloatValue),     {Vor dem Komma}
      Trunc((AFloatValue - Trunc(AFloatValue)) * 100) {Nach dem Komma}
      ]); // '08:50'
end;
Es gibt weitere Möglichkeiten. So kann man die Zeit mit DecodeTime in Stunden, Minuten ... zerlegen...
Mit ausreichend Eigeninitiative bkommst du den Rest selbst raus.

Frank


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:16 Uhr.
Seite 3 von 3     123   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz