תחומים - פורום חרדי מקצועי

שבוע טוב.
אני מנסה לכתוב קוד שבו יכניסו שתי מספרים, לדוג' 20 ו600, והוא יחזיר חשבון של 600 פחות 20 אחוז.
בשביל זה אני צריך דבר ראשון להמיר את ה20 ל0.8 ואז להכפיל 600 ב0.8 (תוצאה של 480).
הקוד שניסיתי הוא כך:

Public Function test()
Dim a As Single, b As Single
a = 20
b = 600

a = (100 - a)
a = a \ 100

Debug.Print b * a
End Function

אבל הוא מחזיר 0.
מה הבעיה כאן?
תודה!

הטבלה ששלחת היא טבלה של אספקת מוצרים?
כי לכאו' כדאי לך לעשות טבלה נפרדת של המוצרים (קוד מוצר, שם, מחיר וכדו'), ולקשר אותה באמצעות קוד המוצר לטבלת האספקה.

תודה לכל המעוררים.

יש לי קצת סתירה באתר שם, מצד אחד כמו שנאמר לעיל החיוב אמור להיות מקצה התחום של היישוב, ולכן היה אפשר להסביר את ההפרשים שהיו לי.
מצד שני, אם אני עושה הסעה מביתר לירושלים לדוג' הוא כותב שהם באותו תחום ולכן זה בחינם, אבל בכל זאת יש הבדל במחיר בין הסעה מירושלים לתל אביב או מביתר. ואם הם באותו תחום לכאו' לא אמור להיות הבדל, לא?
כך שאיך שלא יהיה החישוב שלהם לא ברור לפי מה הוא נעשה.
דבר נוסף, כמו שכתבתי בהסעה מקריית שמונה לאילת יש הבדל של כ70 ק"מ בין החישובים, ואם מחשבים מקצה התחום ההבדל אמור להיות שלפי החישוב שלה יהיה פחות מרחק מה שלא קרה.
וזה בלי לדון לפי מה הם מחשבים מרחקים, ודאי לא לפי מרחק אווירי אז לפי איזה כביש הם מחשבנים.

היוצא מכל הנ"ל, שלכאו' גם אם באמת המגבלה שלהם מחייבת גם לפי ההלכה, מ"מ זה לא על המחיר אלא על אופן החישוב (לפי מרחק ולא לפי מה שבא לי), ואם כך נראה שהחישוב שלהם הוא די מקרי, ולענ"ד החישוב על פי הנתונים של מדינת ישראל הרשמית אמור להיות בסדר גם מבחינת החוק וגם ההלכה להבדיל.

ודאי שכל זה הוא לפלפול בעלמא, וכשנגיע למעשה אעשה שאלת רב.

שוב תודה לכל המגיבים.

@OdedDvir קצת מסובך, צריך בשביל זה המון תחכום כדי לגלות מה הצומת הכי בקצה התחום לפי האזור אליו אני צריך לנסוע.

@mekev
א. אני לא רואה כאן בעיה מוסרית כלל, אני מספק הסעות נפטרים לבית הקברות ורשאי לגבות על זה כסף, אמנם אני מוגבל ע"י הביטוח בסכום אבל מקס' אני יגבה יותר או פחות (כן יש גם פחות) על ההסעה שאני מבצע.

ב. לדעתי שתי הדברים לא פשוטים כלל, גם למצוא את הנ.צ. המדויק של כל בתי הקברות בארץ ואז לחשב מרחק לפי"ז. וגם למצוא את הקצת של כל יישוב שזה תלוי לאיזה כיון אני צריך לנסוע.

עריכה: הנ"ל הוא במיוחד שהמרחק יכול להיות תלוי גם בצורת הנסיעה, איזה כביש וכו'. וכמובן זה לא שאני ממציא סכומים אלא מחשב את המרחק בצורה קצת שונה.

@mekev כנראה.
אם ככה לכאו' אין לי שום דרך להגיע לאותו מרחק שלהם.
אמנם אם אני משתמש בנתונים של מפ"י כבר פחות אכפת לי שיהיה נתונים קצת אחרים, גם אם יעלו על זה יש לי תירוץ טוב...

@OdedDvir מה עושים שזה לא אותם מרחקים
לדוג' מקריית שמונה לאילת, לפי הביטוח הלאומי זה 524 ק"מ, ולפי מפ"י זה 458 ק"מ....
לא ברור לי איך כל אחד מהם מודד (כביש 6 או 90...)

@OdedDvir תודה!
אני מכיר את האתר אבל לא ידעתי שיש שם נתונים כאלו.
זה בדיוק מה שחיפשתי!
תודה!!!

@dovid תודה!!
הבעיה היא שאני צריך שיצא לי את אותו המרחק שלהם בדיוק, אחרת יסבכו אותי שאני גובה יותר ממה שמותר.
אולי יש לך רעיון כלשהו? כמה גרוע יהיה לשלוח את כל הhtml שלהם? להשתמש בטקסט שיש באתר ורק לשנות את הנתונים שמכניסים.
שוב תודה.

ערב טוב.
בקישור הזה יש מחשבון לחישוב דמי קבורה שמותר לחברה קדישא לגבות לפי מספר קריטריונים.
עקב כך שאני בונה תוכנה (אקסס) לחברה קדישא, אני מעוניין לעשות את החשבון ההוא ישר בתוכנה.
בשביל זה אני צריך למצוא בעיקר איך האתר מחשב את המרחק בין הערים שמכניסים לו (לדוג' 63 ק"מ בין בני ברק לירושלים).
ניסיתי לחפור שם בHTML ולא הצלחתי למצוא את הקוד שעושה את החישוב הזה.
האם מישהו יכול לעזור לי בזה? או שיודע דרך למצוא דברים כאלו?
אציין שניסיתי דרך הקלטת תעבורת אינטרנט של נטפרי ולא מצאתי שם כלום (לענ"ד כמובן, ייתכן שאני טועה).
תודה רבה!

@ivrtikshoret מאקרו בקובץ וורד או באקסס?

צהריים טובים.
יש לי קוד למיזוג דואר שעבד טוב.
ולאחרונה התקנתי אופיס נוסף על המחשב ולאחמ"כ הסרתי אותו.
ומאז הוא מקפיץ לי שגיאה על הקוד.
האם מישהו יודע למה זה קרה?
תודה.

השגיאה:

@OdedDvir עובד!
תודה רבה!!!

@dovid הקפצה.
תודה.

זה מידרדר....
עכשיו ניסיתי שוב עם הקוד הבא שרק מדפיס את הקובץ. והוא הדפיס אותו עם השדות למיזוג...
זה הקוד:

Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Add()
 
objWord.PrintOut , , , , , , , , , , , , "C:\Users\1\מכתב.doc"
 
objWord.Quit

וזו התוצאה (דוגמא מתוך הקובץ PDF):

@OdedDvir למיטב זכרוני כן.
אני יבדוק מחר שוב.

@OdedDvir גם לי זה נשמע פשוט.
אבל כשניסיתי לעשות קוד שרק מדפיס הוא לא עדכן את הנתונים, אלא הדפיס את הנתונים שהיו בפעם האחרונה שפתחו את הקובץ.

אני לא מצליח
@OdedDvir אני לא אוהב לבקש קודים, כי אני אוהב ללמוד לבד. אבל במקרה זה אולי יש מצב לדוגמת קוד בבקשה?
ממש תודה על הכל!

@OdedDvir אמר במיזוג דואר מטבלת אקסס:

אם יש צורך לקשר את הוורד באופן דינמי, הכי פשוט הוא לפתוח את הוורד בלי לקשר לבסיס הנתונים, ולשמור אותו כך (רק עם הסימניות של השדות). לאחר מכן הקוד יוכל לעבוד כצפוי.

מיזוג דואר תמיד זה דינאמי. לא?
איך אני מכניס רק סימניות בלי לקשר לקובץ אקסס, כשאני לא בוחר קובץ למיזוג השורת כותרת נראית כך:

אין אפשרות להכניס שדות למיזוג.
תודה רבה!

עריכה: אני מצרף כאן את קבצי האקסס והוורד, תודה.
מינהל_האוכלוסין.doc
‏‏למיזוג - עותק.accdb

@OdedDvir אוקיי.
כשאני פותח את הוורד ואקסס סגור הוא עובד מצוין.
גם אם אקסס פתוח הוא עובד.
רק בקוד יש בעיה.