<%
Function BinaryToHex(Binary)
Dim c1, Out, OneByte
For c1 = 1 To LenB(Binary)
OneByte = Hex(AscB(MidB(Binary, c1, 1)))
If Len(OneByte) = 1 Then OneByte = "0" & OneByte
Out = Out & OneByte
Next
BinaryToHex = Out
End Function
%>
Function นี้ใช้ได้ ไหม แล้ว ถ้า เรา เอามา ใช้ เราต้อง เอา มา ใช้ ยัง ไง
<%
Function HexToDecimal(Hex As String) As Double
Dim i As Integer
Dim Dec As Double
Dim Hex2Dec As Byte
Dim HexWeight As Byte
HexWeight = 0
For i = Len(Hex) To 1 Step -1
Select Case Mid$(Hex, i, 1)
Case "A"
Hex2Dec = 10
Case "B"
Hex2Dec = 11
Case "C"
Hex2Dec = 12
Case "D"
Hex2Dec = 13
Case "E"
Hex2Dec = 14
Case "F"
Hex2Dec = 15
Case Else
Hex2Dec = Mid$(Hex, i, 1)
End Select
If Hex2Dec <> 0 Then Dec = Dec + ((16 ^ HexWeight) * Hex2Dec)
HexWeight = HexWeight + 1
Next
HexToDecimal = Dec
End Function
%>
Function แปลง เลขฐาน 10 วานผู้รู้ ช่วย ดู ให้ ที่ ครับ มัน ผิดตรงไหน ERROR
Microsoft VBScript compilation error '800a03ee'
Expected ')'
/8888888888.asp, line 51
Function HexToDecimal(Hex As String) As Double
--------------------------^