التعامل مع الوقت

[saleem1]

كيف اعرف وقت ؟
واذا ممكن تزويدنا باي كود للتعامل مع الوقت والمؤقتات:confused:

[محمد عبد العزيز]

Time تعطيك الوقف

PHP كود :

ShowMessage('time now = '+TimeToStr(Time)); 


وهذه بعض المتغيرات والدوال المتعلقة بالوقت
Time/Now/TimeAMString/DateTimeToString/TimePMString/DateTimeToString/TimeSeparator/TimeToStr
راجع Help دلفي حولها
اطلع على الوحدة DateUtils

راجع ايضا هذا الموضوع
http://www.delphi4arab.net/forum/showthread.php?tid=9

والسلام عليكم

[saleem1]

الف شكر عزيزي

كيف انفذ كود معين بحالتين:
1--مرة بعد فترة زمنية معينة ولتكن ساعتين.
2--ومرة بعد فترة يدخلها المستخدم ولكن بصيغة وقت اي: 12:22:24 (اي يتم تنفيذة الساعة 12:22:24)
المطلوب :كيفية التعامل مع الوقت المدخل,ووقت النظام الحالي وintervale في timer
وهل هناك مايمكن الاعتماد عليه غير timerولكم جزيل الاحترام

[kachwahed]

قد يفيدك هذا الكود:
(ضع في مشروع جديد TTimer وTLabel):

PHP كود :

var
  TheTime: Integer;

implementation

function GetCounter(Second: Integer): string;
var
  Minute, NewSecond, Hour: Currency;
begin
  Hour       := Int(Second / 3600);
  Minute     := Int((Second - (Hour * 3600)) / 60);
  NewSecond  := Second - int(Hour * 3600 + Minut * 60);
  GetCounter := CurrToStr(Hour) + ':' + CurrToStr(Minut) + ':' + CurrToStr(NewSecond);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  TheTime := GetTickCount;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  label1.Caption := GetCounter(GetTickCount div 1000 - TheTime div 1000);
end; 


راجع:
http://www.delphi4arab.net/forum/showthread.php?tid=702

[saleem1]

مشكور
لكن سؤالي كيف الواحد يتعامل مع المتغير من نوع time ,وكيف يعوض القيمة في intervalل timer

[kachwahed]

لكن سؤالي كيف الواحد يتعامل مع المتغير من نوع time ,وكيف يعوض القيمة في intervalل timer

لو توضح أكثر أخي لأمكنني مساعدتك.

[saleem1]

يعني مشروعي كالتالي:
تنفذ كود معين بعد ,وقت يتم ادخال الوقت على صيغة 00:00:00
وشكرا

[kachwahed]

[COLOR="black"][COLOR="black"]يا أخي لم أفهم من كلامك أنك تريد غير هذا:

PHP كود :

function MSecToTime(mSec: Int64): string;
var
  dt : TDateTime;
begin
   dt := mSec / MSecsPerSec / SecsPerDay;
   Result := Format('%d Day, %s second', [Trunc(dt), FormatDateTime('hh:nn:ss.z', Frac(dt))]) ;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  x, i: Integer;
begin
  x:= GetTickCount;
  for i:= 0 to 1000 do
  Caption := IntToStr(i);
  ShowMessage(MSecToTime(GetTickCount - x));
end; 


[/COLOR][/COLOR]