PDA

View Full Version : استفاده از ساعت ویندوز در دلفی



raha2007
چهارشنبه 27 تیر 1386, 07:59 صبح
با سلام
چطور میتونم ساعت ویندوز رو مثلا توی یه edit نشون بدم؟
با تشکر.

جواد ملاولی
چهارشنبه 27 تیر 1386, 08:13 صبح
سلام

Edit1.Text:=TimeToStr(time());

zman123456
چهارشنبه 27 تیر 1386, 09:11 صبح
سلام


Edit1.Text:=TimeToStr(time());

آقا جواد جان این رو اول به رها جان بگید که component time رو رو فرم قرار بده.

Vahid.Shatery
چهارشنبه 27 تیر 1386, 09:32 صبح
سلام
میتونی از کد زیر هم استفاده کنی.
فقط اول یک Timer قرار می دی و بعد رو Event تایمر(OnTimer) کد زیر را بنویسید.
البته این را هم بگم که من خودم این سوال را داشتم که بچه های عضو این سایت جواب منا دادن و من از تمامی کسانی که کمک کردن تشکر میکنم.
Edit1.Text := TimeToStr(Now) ;

Batman
چهارشنبه 27 تیر 1386, 12:43 عصر
میتونی از کد زیر هم استفاده کنی
var
mytime:systemtime:
begin
getlocaltime(mytime);
label1.caption:=inttostr(mytime.whour) + ':' + inttostr(mytime.wminute) + ':' +
inttostr(mytime.wday);
موفق باشید

Valadi
چهارشنبه 27 تیر 1386, 12:54 عصر
چرا لقمه را جناب Batman می پیچونی
روش آقای Vahid.Shatery راحترین و سریعترین روش است
بهر حال ممنون یک راه حل دیگر پیشنهاد دادی
موفق و موید باشی

Batman
چهارشنبه 27 تیر 1386, 13:00 عصر
جناب valadi عزیز گفتم شاید ب.ظ پس از ساعت براشون جالب نباشه اگه نه حرف شما کاملا متین هستش ثانیا این روش ساعت رو بصورت کلی نشون میده (منظورم بعد از 12 هستش که بصورت 13,14,15,...) نشون میده
بهرحال تسلیم

SYNDROME
چهارشنبه 27 تیر 1386, 15:14 عصر
با سلام

با سلام
چطور میتونم ساعت ویندوز رو مثلا توی یه edit نشون بدم؟
با تشکر.
روشهایی که دوستان گفتند درس است ولی اگر برنامه شما میخ واهد در شبکه اجرا شود بهتر است ساعت را از Server بخوانید.
دستور زیر را با یک ADO اجرا کنید و ADOشما به SQL که در سرور نصب است وصل شده است و ساعت را از آنجا می خواند


Select GetDate() As GD

حالا مقدار GDرا بخوانید.
موفق باشید.

arash_ebrahimi_nk
چهارشنبه 27 تیر 1386, 16:25 عصر
دلفی تنظیمات مربوط به ب. ظ. و تنظیمات زیادی در این زمینه داره از راهنماش میشه کمک گرفت.
ممنون به خاطر کد معادل و جالب از طرف جناب Batman.

ضمناً تابع now هم چیز بدرد بخوریه .

raha2007
شنبه 30 تیر 1386, 08:01 صبح
از تمام دوستای گلم که به من تازه وارد کمک کردن کمال تشکر رو دارم.