+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : التعامل مع الوقت (/showthread.php?tid=975)
التعامل مع الوقت - saleem1 - 22-06-2009
كيف اعرف وقت ؟
واذا ممكن تزويدنا باي كود للتعامل مع الوقت والمؤقتات:confused:
التعامل مع الوقت - محمد عبد العزيز - 22-06-2009
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 - 24-06-2009
الف شكر عزيزي
كيف انفذ كود معين بحالتين:
1--مرة بعد فترة زمنية معينة ولتكن ساعتين.
2--ومرة بعد فترة يدخلها المستخدم ولكن بصيغة وقت اي: 12:22:24 (اي يتم تنفيذة الساعة 12:22:24)
المطلوب :كيفية التعامل مع الوقت المدخل,ووقت النظام الحالي وintervale في timer
وهل هناك مايمكن الاعتماد عليه غير timerولكم جزيل الاحترام
التعامل مع الوقت - kachwahed - 24-06-2009
قد يفيدك هذا الكود:
(ضع في مشروع جديد 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 - 26-06-2009
مشكور
لكن سؤالي كيف الواحد يتعامل مع المتغير من نوع time ,وكيف يعوض القيمة في intervalل timer
التعامل مع الوقت - kachwahed - 26-06-2009
إقتباس :لكن سؤالي كيف الواحد يتعامل مع المتغير من نوع time ,وكيف يعوض القيمة في intervalل timerلو توضح أكثر أخي لأمكنني مساعدتك.
التعامل مع الوقت - saleem1 - 27-06-2009
يعني مشروعي كالتالي:
تنفذ كود معين بعد ,وقت يتم ادخال الوقت على صيغة 00:00:00
وشكرا
التعامل مع الوقت - kachwahed - 28-06-2009
[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;