22-06-2009, 11:36 AM
22-06-2009, 03:26 PM
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
والسلام عليكم
24-06-2009, 07:23 AM
الف شكر عزيزي
كيف انفذ كود معين بحالتين:
1--مرة بعد فترة زمنية معينة ولتكن ساعتين.
2--ومرة بعد فترة يدخلها المستخدم ولكن بصيغة وقت اي: 12:22:24 (اي يتم تنفيذة الساعة 12:22:24)
المطلوب :كيفية التعامل مع الوقت المدخل,ووقت النظام الحالي وintervale في timer
وهل هناك مايمكن الاعتماد عليه غير timerولكم جزيل الاحترام
كيف انفذ كود معين بحالتين:
1--مرة بعد فترة زمنية معينة ولتكن ساعتين.
2--ومرة بعد فترة يدخلها المستخدم ولكن بصيغة وقت اي: 12:22:24 (اي يتم تنفيذة الساعة 12:22:24)
المطلوب :كيفية التعامل مع الوقت المدخل,ووقت النظام الحالي وintervale في timer
وهل هناك مايمكن الاعتماد عليه غير timerولكم جزيل الاحترام
24-06-2009, 02:27 PM
قد يفيدك هذا الكود:
(ضع في مشروع جديد TTimer وTLabel):
راجع:
http://www.delphi4arab.net/forum/showthread.php?tid=702
(ضع في مشروع جديد 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
26-06-2009, 09:59 AM
مشكور
لكن سؤالي كيف الواحد يتعامل مع المتغير من نوع time ,وكيف يعوض القيمة في intervalل timer
لكن سؤالي كيف الواحد يتعامل مع المتغير من نوع time ,وكيف يعوض القيمة في intervalل timer
26-06-2009, 03:12 PM
إقتباس :لكن سؤالي كيف الواحد يتعامل مع المتغير من نوع time ,وكيف يعوض القيمة في intervalل timerلو توضح أكثر أخي لأمكنني مساعدتك.
27-06-2009, 07:01 PM
يعني مشروعي كالتالي:
تنفذ كود معين بعد ,وقت يتم ادخال الوقت على صيغة 00:00:00
وشكرا
تنفذ كود معين بعد ,وقت يتم ادخال الوقت على صيغة 00:00:00
وشكرا
28-06-2009, 03:51 PM
[COLOR="black"][COLOR="black"]يا أخي لم أفهم من كلامك أنك تريد غير هذا:
[/COLOR][/COLOR]
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;