Servus an die Gemeinde,
jetzt mal was neues.
Ich hab hier mal was angesetzt, und wäre erfreut, wenn Ihr mir helft.
Stundenumrechnung mal als Klasse. lSchalter = .T. für Zeit 00:00:00 bzw. .F. als Stundenzahl
Code: Alles auswählen
CLASS StdUmrechnung
EXPORTED:
VAR cAnfang, cEnde , nAnfang, nEnde, cZeit, nZeit,;
lSchalter
METHOD init, Zeit
ENDCLASS
METHOD StdUmrechnung:init( cAnfang, cEnde, lSchalter )
::cAnfang := IIF( cAnfang == NIL, "00:00:00", cAnfang )
::cEnde := IIF( cEnde == NIL, "00:00:00", cEnde )
::lSchalter := IIF( lSchalter == NIL, .T., lSchalter )
RETURN self
METHOD StdUmrechnung:Zeit
LOCAL nAnfang, nEnde, nZeit
if val(substr(::cAnfang,1,2)) = 0
stuff(::cAnfang,1,0,"00")
elseif val(substr(::cAnfang,4,2)) = 0
stuff(::cAnfang,4,0,"00")
elseif val(substr(::cAnfang,7,2)) = 0
stuff(::cAnfang,7,0,"00")
endif
if Substr(::cAnfang,3,1) <> ":"
stuff(::cAnfang,3,0,":")
elseif substr(::cAnfang,6,1) <> ":"
stuff(::cAnfang,6,0,":")
endif
nAnfang:=TimeToSec(::cAnfang)
nEnde:=TimeToSec(::cEnde)
nZeit:= nEnde - nAnfang
if ::lSchalter = .T.
::cZeit:=SecToTime(Abs(nZeit))
else
::cZeit:=str(abs(nZeit/60/60,8,2))
endif
RETURN self
oTest1:=StdUmrechnung():new("05:00:00","15:30:00",.T.)
oTest1:cAnfang:="08:00:00"
oTest1:Zeit()
Zeitdifferenz:=oTest1:cZeit
Was müßte ich jetzt noch berücksichtigen, wenn ich dieses Objekt für die Stundenberechnung mit einem SLE verknüpfe?
Und was müßte man allgemein ändern um diese Klasse auszubauen etc.
Ihr seid selber Schuld !!!
Ihr habt mich nach Hannover gelockt, und ich hab "Blut geleckt"!
Und ja, daraus wird keine Limousine mit Ladefläche gemacht