Det nye script er lagt i dk.binaer
Husk lige at ændre byen til den rigtige. Den er sat til at vise m/sec.
Function Wind
If checkright = "OK" Then
Wind = GetHTMLValue("<!-- insert wind --> ","</TD>", "")
If mph = false then
spos = instrrev(Wind, "at ")+3
chrs = instrrev(Wind, " ") - spos
speed = Mid(wind, spos, chrs)
nspeed = round(speed * 1.609344 * 0.278) --------- Her er tilføjer "*
0.278" hvilket er udregningen fra km/t til m/sec
Wind = replace(wind, speed, nspeed)
Wind = replace(wind, "mph", "m/sek") -------- Her er "km/h" ændret til
"m/sec" Dette kan ændres som man har lyst til
End If
Else
Win = "N/A"
End If
End Function
SonofonoS
|