Chodzi mi o coś takiego :
a : 1410
b : 1520
c=b-a : 110
Ja bym zrobił rekord, wktórym byłyby trzy pola integer (godz,min,sek) i funkcja obliczania różnicy czas wyglądałaby mniej więcej tak.
var temp : czas;
function odejmij(czas pierwszy, czas drugi)
{
temp.sek:=pierwszy.sek-drugi.sek;
if(temp.sek<0)
{
temp.sek:=temp.sek+60;
temp.min:=temp.min-1;
}
temp.min:=pierwszy.min-drugi.min;
if(temp.min<0)
{
temp.min:=temp.min+60;
temp.godz:=temp.godz-1;
}
temp.godz:=pierwszy.godz-drugi.godz;
if(temp.godz<0)
{
temp.godz:=temp.godz * (-1);
}
To był pseudopascalowy kod, w którym będą błędy ale po przeróbce powinien działać.
--
na razie przyszlo mi do glowy tylko jedno rozwiazanie :)
var
TimeA,TimeB: TDateTime;
begin
TimeA := StrToTime('1410');
TimeB := StrToTime('1520');
Edit1.Text := TimeToStr(TimeB-TimeA);
end;
jak wymysle albo znajde cos lepszego to dam znac :)
--
-=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-
Metoda LKS-a jest wystarczająca.
LKS dzięki.
{brawo} {brawo} {brawo} {brawo}