private Sub Savelog(CardID As ULong, UserName As String)
Dim Buffer() As Byte
If Sd.OpenReadWrite ("log.dat") = True Then
Sd.Position = Sd.CurrentFile .Size
Buffer = BC.StringToBytes(NumberFormat (CardID,10,0))
Sd.Stream.WriteBytes(Buffer,0,Buffer.Length)
Buffer = BC.StringToBytes(",")
Sd.Stream.WriteBytes(Buffer,0,Buffer.Length)
Buffer = BC.StringToBytes(UserName)
Sd.Stream.WriteBytes(Buffer,0,Buffer.Length)
Buffer = BC.StringToBytes(",")
Sd.Stream.WriteBytes(Buffer,0,Buffer.Length)
Buffer = BC.StringToBytes(NumberFormat(Hours,2,0))
Sd.Stream.WriteBytes(Buffer,0,Buffer.Length)
Buffer = BC.StringToBytes(":")
Sd.Stream.WriteBytes(Buffer,0,Buffer.Length)
Buffer = BC.StringToBytes(NumberFormat(Minutes,2,0))
Sd.Stream.WriteBytes(Buffer,0,Buffer.Length)
Buffer = BC.StringToBytes(":")
Sd.Stream.WriteBytes(Buffer,0,Buffer.Length)
Buffer = BC.StringToBytes(NumberFormat(Seconds,2,0))
Sd.Stream.WriteBytes(Buffer,0,Buffer.Length)
Buffer = BC.StringToBytes(NumberFormat(Years,4,0))
Sd.Stream.WriteBytes(Buffer,0,Buffer.Length)
Buffer = BC.StringToBytes("/")
Sd.Stream.WriteBytes(Buffer,0,Buffer.Length)
Buffer = BC.StringToBytes(NumberFormat(Months,2,0))
Sd.Stream.WriteBytes(Buffer,0,Buffer.Length)
Buffer = BC.StringToBytes("/")
Sd.Stream.WriteBytes(Buffer,0,Buffer.Length)
Buffer = BC.StringToBytes(NumberFormat(DayOfMonth,2,0))
Sd.Stream.WriteBytes(Buffer,0,Buffer.Length)
Buffer = BC.StringToBytes(TAB)
Sd.Stream.WriteBytes(Buffer,0,Buffer.Length)
Sd.Close
End If
End Sub