Funktionen aus Crystal Reports im Report Builder anwenden

[dataspider]

Zitat von Metallicwar:

Versteh ich nicht, hast du's mal bei dir getestet, habe deinen Code 1 zu 1 übernommen und bekommen trotzdem eine Fehlermeldung:

Ne, sorry - hab es jetzt unter D2010 getestet mit dem selben Fehler...sollte zu finden sein...

Frank

[dataspider]

Sorry,

bei der Signatur fehlte das Semikolon:

  Result := 'function RoundTo(AValue: Extended; ADigit: Integer): Extended;';
[Edit]
Seh gerade, dass ich das Const vor den Paramtern entfert habe. Kannst du wieder rein nehmen, spielt IMHO keine Rolle...[/EDIT]


Frank

[Metallicwar]

Vielen Dank Frank.

Letzte Frage bis dahin:

Delphi-Quellcode:

begin
  Value := RoundTo(Trunc(dbPipelineAktuellerMonat['Tagesbrutto'] div 60), 2) 
          + ':'
          + Roundto((-1) * (dbPipelineAktuellerMonat['Tagesbrutto'] mod 60),2);

Fehler: Inkompatible Typen..

Erwartet ja Extended und das Datenfeld ist ein Integer... IntTo???

[Metallicwar]

ehm, ich kriegs nicht hin -.-
Kann mir bitte nochmal jmd bei der Typumwandlung helfen?

[dataspider]

Ich nehme an, gleich gibt es was auf die Mütze!
Denn Pushen ist hier nicht gerade beliebt.

Und ich klink mich hier jetzt auch erst mal aus.

Du kommst so nicht weiter. Das nächste Problem ist mod und div und so weiter.

Und es geht wohl nur um die Formatierung eines Wertes (wurde ja schon erwähnt).

Vergiss einfach, die Funktionen 1 zu 1 nachbilden zu wollen.
Schau die den Wert an und die Ausgabe und mach eine Formatfunktion, die nur den Wert bekommt und den String zurückgibt.

Frank

[Metallicwar]

Hallo, ich melde mich mal wieder zurück, komme nun gut vorran, arbeite jetzte mit FormatDateTime.
Habe dazu allerdings noch 2 Fragen:
  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   Value := (FormatDateTime('hh:nn', PipelineMonatsWerte_Tabelle['ISTSTUNDENBRUTTO'] / 60); liefert er mir jedoch als Ergebnis 12:00 ?!?

Kann mir bitte jemand weiterhelfen?

[dataspider]

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