Файлы телепрограммы. В каком формате записана дата? - VB

Формулировка задачи:

Помогите разобраться каким образом закодировано время и дата в файле телепрограммы? Хочу создать свою программу для чтения телепрограммы но наткнулся на то что время и дата написано в битовом формате и не могу понять как.телепрограмма.rar У всех текущих программ существует глюк с часовыми поясами тоесть если в Москве фильм идет 28 в 23.00 то у меня 29 6.00 и если настраивать их на разницу -7 часов то программа будет показывать что будет идти 29 в 23.00.

Не по теме:

Бесит неимоверно.

Решение задачи: «Файлы телепрограммы. В каком формате записана дата?»

textual
                            Листинг программы 
                        
 
                            
                        
Option Explicit
 
Private Type SYSTEMTIME
    wYear As Integer
    wMonth As Integer
    wDayOfWeek As Integer
    wDay As Integer
    wHour As Integer
    wMinute As Integer
    wSecond As Integer
    wMilliseconds As Integer
End Type
Private Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End Type
Private Type Record
    Unknown As Integer
    Time As FILETIME
    Pointer As Integer
End Type
Private Declare Function FileTimeToSystemTime Lib "kernel32" (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As Long
 
Private Sub Form_Load()
    Dim fNum As Integer, r As String, b As Integer, i() As Record, l As Integer, n As Long, st As SYSTEMTIME
    fNum = FreeFile
 
    Open "D:\Temp\AXN_Sci-fi.ndx" For Binary As fNum
    
    Get fNum, , l
    ReDim i(l - 1)
    Get fNum, , i
    
    Close fNum
    
    Open "D:\Temp\AXN_Sci-fi.pdt" For Binary As fNum
 
    For n = 0 To l - 1
        FileTimeToSystemTime i(n).Time, st
        Seek fNum, i(n).Pointer + 1
        Get fNum, , b
        r = Space(b)
        Get fNum, , r
        lstData.AddItem r & "; " & st.wDay & "." & st.wMonth & "." & st.wYear & " " & _
                        st.wHour & ":" & st.wMinute & ":" & st.wSecond
    Next
    
    Close fNum
End Sub