فرمول نويسي [بایگانی]

majidsoft

شنبه 01 اسفند 1388, 14:13 عصر

با سلام من در گزارشم از اين كد استفاده مي كنم براي اينكه اگر فيلدي يك مقدار را داشت از همان ركورد يك فيلد ديگر را گرفته و جمع كند و اگر نداشت عمل جمع را انجام نداده به ركورد بعدي برود و در آخر مجموع را تقسيم بر 8 كرده نتيجه را نمايش دهد
من از اين كد استفاده مي كنم ولي عددي كه به ن مي دهد درست نيست

numbervar a=0;
if {rest.esteh}=1 then(
a:=a+ ({rest.lenth});
a:=a\8;
)
else
a

sara.f

یک شنبه 09 اسفند 1388, 00:22 صبح

با سلام من در گزارشم از اين كد استفاده مي كنم براي اينكه اگر فيلدي يك مقدار را داشت از همان ركورد يك فيلد ديگر را گرفته و جمع كند و اگر نداشت عمل جمع را انجام نداده به ركورد بعدي برود و در آخر مجموع را تقسيم بر 8 كرده نتيجه را نمايش دهد
من از اين كد استفاده مي كنم ولي عددي كه به ن مي دهد درست نيست

numbervar a=0;
if {rest.esteh}=1 then(
a:=a+ ({rest.lenth});
a:=a\8;
)
else
a

سلام
شما می گید که اگر اون فیلد که در اینجا rest.esteh هست، مقدار نداشت، اون وقت عمل جمع را انجام ندهد و در آخر مقدار بر 8 تقسیم کند، ولی در این کدی که نوشتید جای پرانتز if را اشتباه گذاشتید

majidsoft

چهارشنبه 12 اسفند 1388, 00:39 صبح

با تشکر از شما
ببین دوست عزیز اون فیلد سه تا مقدار می گیره من می خوام وقتی که مقدارش 1 بود یک فیلد از همون رکورد را جمع کنه و در غیر اینصورت همون مقدار قبلی را نگه داره و در پایان حاصلجمع را بر 8 تقسیم کنه
من با کدنویسی در کریستال زیاد وارد نیستم اگه می شه این کد را برام اصلاح کنید

sara.f

چهارشنبه 12 اسفند 1388, 11:56 صبح

با تشکر از شما
ببین دوست عزیز اون فیلد سه تا مقدار می گیره من می خوام وقتی که مقدارش 1 بود یک فیلد از همون رکورد را جمع کنه و در غیر اینصورت همون مقدار قبلی را نگه داره و در پایان حاصلجمع را بر 8 تقسیم کنه
من با کدنویسی در کریستال زیاد وارد نیستم اگه می شه این کد را برام اصلاح کنید

یه مورد دیگه اینکه علامت تقسیم را بر عکس گذاشتید
حالا این کد را امتحان کنید، ببینید جواب میده؟

numbervar a=0;
if {rest.esteh}=1
then
a:= a+({rest.lenth})
else
a;
a:=a/8;

majidsoft

چهارشنبه 12 اسفند 1388, 20:51 عصر

دوست عزیز من این کد را قبلا امتحان کرده بودم ولی جوابش درست نبود

sara.f

پنج شنبه 13 اسفند 1388, 23:00 عصر

دوست عزیز من این کد را قبلا امتحان کرده بودم ولی جوابش درست نبود

یعنی error نمی گیره، درسته؟ فقط اون جوابی که باید باشه را نمی ده؟
حالا من بازم بررسی می کنم، ببینم اشکال از کجاست.

majidsoft

شنبه 15 اسفند 1388, 14:38 عصر

با سلام ايراد نمي گيره ولي جوابش درست نيست

mn_zandy63

چهارشنبه 26 اسفند 1388, 03:33 صبح

سلام دوست من
کدی که اینجاست بر اساس توضیحاتی که دادی باید درست باشه
لطف کن با یه مثال توضیح بده که دقیقا چی میخوای

موفق باشی