◕ دورة احترافية لربط الإكسل Excel لتحليل البيانات اللحظية والتاريخية ◕ ← إصنع برنامجك

Dim dateYearBefore As Date                  'تاريخ منذ سنة سابقة
            dateYearBefore = DateAdd("yyyy", -1, DATE)
            
            Dim date6MonthsBefore As Date               'تاريخ منذ ستة أشهر
            date6MonthsBefore = DateAdd("m", -6, DATE)
                        
            Dim maxPriceYear As Single                  'أعلى سعر خلال سنة ماضية
            maxPriceYear = 0
            
            Dim minPriceYear As Single                  'أدنى سعر خلال السنة الماضية
            minPriceYear = 1000000
            
            Dim maxPrice6Months As Single               'أعلى سعر خلال ستة أشهر ماضية
            maxPrice6Months = 0
            
            Dim minPrice6Months As Single               'أدنى سعر خلال ستة أشهر ماضية
            minPrice6Months = 1000000
            
            'نمر على جميع الشموع بالعكس من النهاية إلى البداية
            For j = UBound(candles) To 0 Step -1
                'يتم الخروج من التكرار عند الوصول إلى شمعة ما قبل سنة
                If candles(j).DATE < dateYearBefore Then Exit For
                
                'مقارنة أسعار سنة ماضية
                If candles(j).HIGH > maxPriceYear Then maxPriceYear = candles(j).HIGH
                If candles(j).LOW < minPriceYear Then minPriceYear = candles(j).LOW
                
                'في حالة التاريخ أكبر من ستة أشهر ماضية يتم مقارنة أسعار ستة أشهر ماضية
                If candles(j).DATE >= date6MonthsBefore Then
                    If candles(j).HIGH > maxPrice6Months Then maxPrice6Months = candles(j).HIGH
                    If candles(j).LOW < minPrice6Months Then minPrice6Months = candles(j).LOW
                End If
            Next j
            
            'نسخ البيانات إلى الخلايا
            Cells(i + 1, 7) = maxPriceYear
            Cells(i + 1, 8) = minPriceYear
            Cells(i + 1, 9) = maxPrice6Months
            Cells(i + 1, 10) = minPrice6Months