Attribute VB_Name = "public_function"
Public Sub ResetIcon()
Dim i As Integer
For i = 0 To 15
                                                   
frmDIViewer.shpTag.Item(i).BackColor = vbBlack
Next i
End Sub

Public Function Dec2Bin(dblDec As Double) As String

Dim strBin As String
strBin = ""

Do While (dblDec >= 1)
res = dblDec Mod 2
dblDec = Int(dblDec / 2)
strBin = CStr(res) & strBin
Loop

Dec2Bin = "B" & strBin
Debug.Print Dec2Bin

End Function

Public Function UnixTime2Serial(UnixTime As Long) As Double
    
    ' UNIX time begins at UTC 1970/1/1, unit is second
    ' VB time serial begins at UTC 1900/1/1, unit is day
    
    UnixTime2Serial = UnixTime / 60 / 60 / 24 + DateSerial(1970, 1, 1)
End Function

Public Function UnixTimeStr(UnixTime As Long) As String
    
    Dim TimeSerial As Double
    
    TimeSerial = UnixTime2Serial(UnixTime)
    UnixTimeStr = Format(TimeSerial, "yyyy/mm/dd hh:mm:ss")
End Function