|
|
|
'البايت الخاصة بالحرف الذي يمثل الفترة '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
الكلمات الدلالية (Tags) |
لتحليل, لربط, إصنع, والتاريخية, اللحظية, الإكسل, البيانات, احترافية, excel, برنامجك, دورة |
أدوات الموضوع | |
تعليمات المشاركة |
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك
BB code is متاحة
الابتسامات متاحة
كود [IMG] متاحة
كود HTML معطلة
|