דילוג לתוכן
  • דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
כיווץ
תחומים

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

💡 רוצה לזכור קריאת שמע בזמן? לחץ כאן!
  1. דף הבית
  2. תוכנה
  3. אקסס- עיגול תאריך - עזרה

אקסס- עיגול תאריך - עזרה

מתוזמן נעוץ נעול הועבר תוכנה
4 פוסטים 3 כותבים 240 צפיות 3 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • ל מנותק
    ל מנותק
    לומד ומתלמד
    כתב ב נערך לאחרונה על ידי
    #1

    שלום רב
    אשמח לעזרה כיצד "מעגלים" תאריך מסויים בחודש לתאריך עגול של סוף חודש
    זה נוגע לעניין חישוב תאריך תשלום לספק כאשר הסכם התשלום הוא: שוטף, שוטף +30, שותף + 60.
    "שוטף", היינו היום הראשון בחודש הקרוב,
    לדוגמא:
    אם תאריך חשבונית היא 15/4/21 והסכם התשלום הוא "שוטף", תאריך התשלום הוא: 1/5/21
    אשמח לעזרתכם (ללא קוד)
    אני ניסיתי להשתמש בפונקציה, כדלהלן:
    תאריך תשלום: (m",1",[תאריך])-Day([תאריך]) DateAdd
    אך התוצאות אינם מעגלות את התאאריך

    ל OdedDvirO 2 תגובות תגובה אחרונה
    0
    • ל לומד ומתלמד

      שלום רב
      אשמח לעזרה כיצד "מעגלים" תאריך מסויים בחודש לתאריך עגול של סוף חודש
      זה נוגע לעניין חישוב תאריך תשלום לספק כאשר הסכם התשלום הוא: שוטף, שוטף +30, שותף + 60.
      "שוטף", היינו היום הראשון בחודש הקרוב,
      לדוגמא:
      אם תאריך חשבונית היא 15/4/21 והסכם התשלום הוא "שוטף", תאריך התשלום הוא: 1/5/21
      אשמח לעזרתכם (ללא קוד)
      אני ניסיתי להשתמש בפונקציה, כדלהלן:
      תאריך תשלום: (m",1",[תאריך])-Day([תאריך]) DateAdd
      אך התוצאות אינם מעגלות את התאאריך

      ל מנותק
      ל מנותק
      לומד ומתלמד
      כתב ב נערך לאחרונה על ידי
      #2

      @לומד-ומתלמד
      אחרי חיפוש ארוך מצאתי, אמנם איני מבין את המשמעות
      DateSerial(Year ([OrderDate]), Month([OrderDate])+1, 1)
      אולי מישהו ידע להסביר

      תגובה 1 תגובה אחרונה
      0
      • ל לומד ומתלמד

        שלום רב
        אשמח לעזרה כיצד "מעגלים" תאריך מסויים בחודש לתאריך עגול של סוף חודש
        זה נוגע לעניין חישוב תאריך תשלום לספק כאשר הסכם התשלום הוא: שוטף, שוטף +30, שותף + 60.
        "שוטף", היינו היום הראשון בחודש הקרוב,
        לדוגמא:
        אם תאריך חשבונית היא 15/4/21 והסכם התשלום הוא "שוטף", תאריך התשלום הוא: 1/5/21
        אשמח לעזרתכם (ללא קוד)
        אני ניסיתי להשתמש בפונקציה, כדלהלן:
        תאריך תשלום: (m",1",[תאריך])-Day([תאריך]) DateAdd
        אך התוצאות אינם מעגלות את התאאריך

        OdedDvirO מנותק
        OdedDvirO מנותק
        OdedDvir
        כתב ב נערך לאחרונה על ידי OdedDvir
        #3

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

        הנה פונקציה שעושה את הכל:

        Public Function NextPaymentDay(inDate As Date) As Date
            Dim outputYear As Integer
            Dim outputMonth As Integer
            
            outputYear = Year(inDate)
            outputMonth = Month(inDate) + 1
            
            ' If it is next year, increase year and set month to 1
            If outputMonth = 13 Then
                outputMonth = 1
                outputYear = outputYear + 1
            End If
            NextPaymentDay = DateSerial(outputYear, outputMonth, 1)
        End Function
        

        פלט לדוגמא:

        ?NextPaymentDay(#15/4/2021#)
        01/05/2021 
        
        
        A תגובה 1 תגובה אחרונה
        4
        • OdedDvirO OdedDvir

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

          הנה פונקציה שעושה את הכל:

          Public Function NextPaymentDay(inDate As Date) As Date
              Dim outputYear As Integer
              Dim outputMonth As Integer
              
              outputYear = Year(inDate)
              outputMonth = Month(inDate) + 1
              
              ' If it is next year, increase year and set month to 1
              If outputMonth = 13 Then
                  outputMonth = 1
                  outputYear = outputYear + 1
              End If
              NextPaymentDay = DateSerial(outputYear, outputMonth, 1)
          End Function
          

          פלט לדוגמא:

          ?NextPaymentDay(#15/4/2021#)
          01/05/2021 
          
          
          A מנותק
          A מנותק
          avi rz
          כתב ב נערך לאחרונה על ידי
          #4

          @odeddvir אמר באקסס- עיגול תאריך - עזרה:

          פלט לדוגמא:
          ?NextPaymentDay(#15/4/2021#) 01/05/2021

          אם כבר תביא דוגמא שתמחיש את מה שעשית (בדגש על הדוגמה ש @לומד-ומתלמד מצא - [למי שלא הבין: יש חסרון בדוגמא ההיא, כשהחשבונית היא בחודש ה12 - לפי הדוגמא ההיא התאריך שתקבל זה "01/01/2020"]).

          ?NextPaymentDay(#15/12/2021#)
          01/01/2022
          
          תגובה 1 תגובה אחרונה
          1
          תגובה
          • תגובה כנושא
          התחברו כדי לפרסם תגובה
          • מהישן לחדש
          • מהחדש לישן
          • הכי הרבה הצבעות


          בא תתחבר לדף היומי!
          • התחברות

          • אין לך חשבון עדיין? הרשמה

          • התחברו או הירשמו כדי לחפש.
          • פוסט ראשון
            פוסט אחרון
          0
          • דף הבית
          • קטגוריות
          • פוסטים אחרונים
          • משתמשים
          • חיפוש
          • חוקי הפורום