codigo de barras en VB para la web

[robytony]

Para el que me pueda ayudar les mando el codigo en VB que tengo que pasar a PHP, se me pueden dar una mano, desde ya agradecido


Option Compare Database
Public Function Importe(data As String) As Variant
Import = Format(data, "000000.00")
For i = 1 To Len(Import)
If IsNumeric(Mid(Import, i, 1)) Then OnlyCorrectData = OnlyCorrectData & Mid(Import, i, 1)
Next
Importe = OnlyCorrectData
End Function
Public Function juliano(DataToEncode As Date) As String
DataToEncode = RTrim(LTrim(DataToEncode))
dteyear = Year(DataToEncode)
Añoact = Year(Now)

If dteyear > Añoact Then
toma = "01/01/" & dteyear
julianday = DateDiff("d", toma, DataToEncode + 1)
julianday = Format(julianday, "000")
DataToprint = Right(dteyear, 2) & julianday
Else
If dteyear < Añoact Then
toma = "01/01/" & dteyear
julianday = DateDiff("d", toma, DataToEncode + 1)
julianday = Format(julianday, "000")
DataToprint = Right(dteyear, 2) & julianday
Else
curyear = "01/01/" & Year(Now)
julianday = DateDiff("d", curyear, DataToEncode + 1)
julianday = Format(julianday, "000")
DataToprint = Right(dteyear, 2) & julianday
End If
End If
juliano = DataToprint
End Function

Function DV(Strx As String) As String
Dim OnlyNum As String
For i = 1 To Len(Strx)
If IsNumeric(Mid(Strx, i, 1)) Then OnlyNum = OnlyNum + Mid(Strx, i, 1)
Next
suma = Mid(OnlyNum, 1, 1)
caso = 3
For i = 2 To Len(OnlyNum)
suma = suma + Mid(OnlyNum, i, 1) * caso
If caso = 9 Then
caso = 3
Else
caso = caso + 2
End If
Next
DV = OnlyNum & Int(suma / 2) Mod 10
End Function
Function Unidades(data As String)
Unidades = Format(data, "0000")
End Function

Function barcode(chain As String)
For i = 1 To Len(chain) Step 2
If Mid(chain, i, 2) <= 89 Then
barra = barra + Chr(Mid(chain, i, 2) + 33)
Else
barra = barra + Chr(Mid(chain, i, 2) + 71)
End If

Next
barcode = Chr(123) + barra + Chr(125)
End Function

Public Function CostoPago(data As String) As Variant

CostoPago = 1
If data > 1 Then
CostoPago = data * 1.5 / 100

End If
End Function