PDA

View Full Version : تابعی برای پیدا کردن تاریخ و ساعت سیستم


بمب منطقی
شنبه 01 اسفند 1383, 00:28 صبح
کدوم توابع این کار رو میکنن. :flower:
vcldeveloper
شنبه 01 اسفند 1383, 02:15 صبح
خب تابع Now در دلفی تاریخ و زمان سیستم رو بر می گردونه دیگه!
بمب منطقی
شنبه 01 اسفند 1383, 02:52 صبح
خوب من منظورم یک تابع برای تاریخ و تابع دیگه برای زمان به طور مجزا بود. و این مورد هم خیلی مهمه که با تغییر Style تاریخ و یا زمان تو Regional... کنترل پنل(منظور مثل yyyy/mm/dd) مقدار بازگشتی اون متناسب با Style تغییر نکنه. چون میخوام این مقدار برگشتی رو تو برنامه به صورت دستی با یه تاریخ و زمان از قبل تعیین شده ای چک کنم .
ولی تابع Now مورد اول رو رعایت نمیکنه (یعنی تاریخ و زمان رو با هم بر میگردونه) و مورد دوم رو هم نمیدونم رعایت میکنه یا نه(یعنی موضوع Syle).
:flower:
saeed_d
شنبه 01 اسفند 1383, 08:33 صبح
سلام
با تابع FormatDateTime می‌تونی کارهایی که خواستی سر تاریخ و ساعت بیاری. مثلا Style رو عوض کنی یا تاریخ رو فقط داشته باشی یا فقط ساعت رو و...
توی Help دلفی می‌تونی توضیح کاملی در مورد این تابع پیدا کنی. :sunglass:
یه مثال هم بزنم. فرض کن فقط ساعت رو به صورت 24 ساعتی می‌خوای:


s:=formatDateTime('hh:mm:ss',Now);
anf-b
شنبه 01 اسفند 1383, 10:46 صبح
ببخشید یک سوال:
من این کد رو در OnClick یک button به صورت Label1.caption گذاشتم ولی ساعتش متحرک نیست یعنی اینکه ثانیه ها رو پشت سر هم نشون نمیده
باید در کدوم Event بزارمش تا ثانیه ها رو پشت سر هم نشون بده؟
ممنون
بمب منطقی
شنبه 01 اسفند 1383, 20:04 عصر
ببخشید یک سوال:
من این کد رو در OnClick یک button به صورت Label1.caption گذاشتم ولی ساعتش متحرک نیست یعنی اینکه ثانیه ها رو پشت سر هم نشون نمیده
باید در کدوم Event بزارمش تا ثانیه ها رو پشت سر هم نشون بده؟
ممنون
باید تو رویداد Timer اونو قرار بدی(یه رویداد بیشتر نداره) بعد interval رو هم 1 بزار Enabled رو هم True

راستی کدوم کد رو میگی.باید تو رویداد مربوط به Timer این عبارت رو بنویسی:

Label.Caption:=Datetostr(Now);

ُآقا سعید و آقای کشاورز، دستتون درد نکنه یکی دیگه از مشکلاتم به یاری شما عزیزان حل شد. :flower:
MOHSEN731
دوشنبه 03 اسفند 1383, 00:25 صبح
لطفا اگه کسی تابع تغییر ساعت و تاریخ سیستم از طریق دلفی را میداند بگوید
vcldeveloper
دوشنبه 03 اسفند 1383, 03:59 صبح
لطفا اگه کسی تابع تغییر ساعت و تاریخ سیستم از طریق دلفی را میداند بگوید



type
TSystemTime = record
wYear,
wMonth,
wDayOfWeek,
wDay,
wHour,
wMinute,
wSecond,
wMilliseconds : WORD ;
end;

var
SystemTime : TSystemTime;
begin
GetLocalTime(_SystemTime(SystemTime));
with SystemTime do
begin
wHour := 5;
wMinute := 30;
end;
SetLocalTime(_SystemTime(SystemTime));
MOHSEN731
سه شنبه 04 اسفند 1383, 09:09 صبح
Very Goood :D
B-Vedadian
سه شنبه 04 اسفند 1383, 11:09 صبح
سلام،

گفتم شاید مفید باشه! اگر خواستین متن برنامه رو تغییر ندین یکسری متغیر هست که باهاش میتونین فرمت تاریخ و ساعت برگردونده شده رو عوض کنین


var
TimeAMStr:String;
TimePMStr:String;
.
.
.