Printable View
سلام من تو كار با تاريخ و زمان فوق العاده مشكل دارم اگه ميشه كمك كنيد دوستان
اوليش اينه كه من چه طوري ميتونم يه تاريخ رو به روز تبديل كنم مثلا تاريخ 2007/3/5 چند روزه.
من اين رو لازم دارم چون ميخوام اختلاف دو تا تاريخ رو بدست بيارم و در يك عدد ضرب كنم
خوهش ميكنم كمكم كنيد دوستان.
البته سعي كنيد به من تابع بديد نه يك تكنيك
اگه مي خواي با تاريخ شمسي كار كني، پيشنهاد من اينه كه از كامپوننت shDate كه نانفورس جان عزيز قبلا معرفي كرده بودن استفاده كني. اين كامپوننت خودش توابعي داره كه مي توني اين كار رو به راحتي انجام بدي. كه البته راهنماي PDF هم همراشه.
در جستجوي انجمن كلمه كليدي shDate رو بزن و پست نانفورس جان رو بخون.
نمي شه گفت كه فلان تاريخ چند روز هست ! مثلا اگه بخوايم روز رو حساب كنيم ، براي همون تاريخي كه گذاشتيد ( 2007/3/5 ) ميشه :نقل قول:
سلام من تو كار با تاريخ و زمان فوق العاده مشكل دارم اگه ميشه كمك كنيد دوستان
اوليش اينه كه من چه طوري ميتونم يه تاريخ رو به روز تبديل كنم مثلا تاريخ 2007/3/5 چند روزه.
من اين رو لازم دارم چون ميخوام اختلاف دو تا تاريخ رو بدست بيارم و در يك عدد ضرب كنم
خوهش ميكنم كمكم كنيد دوستان.
البته سعي كنيد به من تابع بديد نه يك تكنيك
(2007 * 365 ) + ( 30*5) + 3 روز ...
شايد منظور اينه كه مثلا چند روز از سال جاري گذشته ...
در چنين حالتي ، ميتونيد ماه و روز رو جدا كنيد ، ماه ها رو در 30 يا 31 ضرب كنيد و بعد با روز ها جمع كنيد ...
براي جداسازي ماه و روز از يك تاريخ ، از توابع زير استفاده كنيد :
ابتدا يونيت DateUtils رو به قسمت Uses فرم اضافه كنيد ...
براي ماه :
اين تابع تعداد ماه هاي تاريخ رو برميگردونه ( از نوع Word كه به عنوان يك Integer ه ميتونيد ازش استفاده كنيد) .کد:MonthOf(TDateTime);
براي روز :
اين تابع هم مقدار رزهاي يك تاريخ رو برميگردونه ...کد:DayOf(TDateTime);
و همچنين با تابع هاي DaysInMonth و DaysinYear ميتونيد تعداد روزهاي مربوط به يك ماه و يك سال رو بدست بياريد ، مثلا يك ماه 30 روزي هست و يك ماه ديگه 31 يا يك سال 365 و يكي ديگه 366 ...
و نكته آخر اين كه اين توابع براي تاريخهاي ميلادي هستند و عملا براي تاريخهاي شمسي به مشكل برميخوريد و بايد از يك كامپوننت يا ... استفاده كنيد ...
يك كامپوننت قوي و رايگان ( و سازگار با تاريخ ويندوز ويستا ) رو مي تونيد از لينك زير دانلود كنيد :
در اين لينك هم آموزش استفاده از اون هست :کد:http://salarsoft.somee.com/downlist/comp_downloads.htm#farsidate
موفق باشيد ...کد:http://salarsoft.somee.com/magaleh/m_farsi_date_help.htm
سلام ،مثله اينكه درست متوجه سوالم نشديد عيب نداره يه مثال ميزنم.
ببينيد من تو برنامه ام يك تاريخ سفارش كتاب دارم و يك تاريخ بازگشت كتاب .من ميخوام برنامه ببينه اختلاف اين دو تا تاريخ چند روز بعد به نسبت روز ها جريمه بنويسه مثلا براي هر روز 100 تومان.
حالا بهتر شد مگه نه ؟
ولي سئوال اولتون چيز ديگه اي بود :
به هر حال ... ، با تابع DaysBetween مي تونيد مشكلتون رو حل كنيد ؛ اين تابع تعداد روزهاي بين دو تا تاريخ رو برميگردونه ...نقل قول:
اوليش اينه كه من چه طوري ميتونم يه تاريخ رو به روز تبديل كنم مثلا تاريخ 2007/3/5 چند روزه.
توجه كنيد كه بايد يونيت DateUtils رو به قسمت Uses اضافه كنيد ...
موفق باشيد ...
سلامنقل قول:
هميشه وقتي در مورد تاريخ صحبت مي كنيد مشخص كنيد كه منظورتون تاريخ شمسي است يا ميلادي.
فرض كنيد طرف كتاب را در تاريخ 2008/02/11 تحويل گرفته و در تاريخ 2008/03/15 برگدونده.
به كمك تابع DayOfTheYear مي تونيد بفهميد كه تاريخ مورد نظر جندمين روز سال است.
اينو ببينيد :
کد:uses
DateUtils;
var
Date1,Date2 : TDateTime;
begin
Date1 := StrToDate('2008/02/11');
Date2 := StrToDate('2008/03/15');
Edit1.text := inttostr(DayOfTheYear(Date2));
Edit2.text := inttostr(DayOfTheYear(Date1));
Edit3.Text := inttostr(strtoint(edit1.text)-strtoint(edit2.text));