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

'البايت الخاصة بالحرف الذي يمثل الفترة
    'I - D - W - M
    Dim bytePeriodLetter As Byte
    bytePeriodLetter = bytes(192 + 60)
    
    'البايت الخاصة بعدد دقائق الفترات أقل من اليومية
    Dim bytePeriodMinutes As Byte
    bytePeriodMinutes = bytes(192 + 62)
    
    'متغير لتخزين الفترة من النوع النصي
    Dim period As String
    
    'نبحث عن الحرف
    Select Case bytePeriodLetter
        Case 73 'ASCII Table -> I (Intraday)
            period = "M" + CStr(bytePeriodMinutes)    'إضافة بايت الدقيقة
        Case 68 'ASCII Table -> D (Daily)
            period = "Daily"
        Case 87 'ASCII Table -> W (Weekly)
            period = "Weekly"
        Case 77 'ASCII Table -> M (Monthly)
            period = "Monthly"
    End Select
    
    'نعيد تسمية إسم السهم لوضع الفترة بجواره
    Cells(1, 2) = "إسم السهم (" + period + ")"
    
    'نبحث عن قيمة خطوة البايتس المطلوبة لقراءة ملف أسعار الفترة
    Dim step As Integer
    Select Case bytePeriodLetter
        Case 73         'ASCII Table -> I (Intraday)
            step = 32
        Case Else       'لأي بيانات أخرى
            step = 28
    End Select