<script language="vbscript">
     <!--
'==========算世界时间
Function TimeAdd(UTC, t)
Dim PlusMinus, DST, y, tSave
If Left(T, 1) = "-" Then PlusMinus = -1 Else PlusMinus = 1
UTC = Right(UTC, Len(UTC) - 5)
UTC = left(UTC, Len(UTC) - 4)
y = Year(UTC)
TimeAdd = DateAdd("n", (Cint(Mid(T, 2, 2)) * 60 + Cint(Mid(T, 4, 2))) * PlusMinus, UTC)
'美国日光节约期间: 4月第一个星期日00:00 至 10月最后一个星期日00:00'
If Mid(T, 6, 1) = "*" And DateSerial(y, 4, (9 - Weekday(DateSerial(y, 4, 1)) mod 7)) <= TimeAdd And DateSerial(y, 10,31 - Weekday(DateSerial(y, 10, 31))) >= TimeAdd Then
TimeAdd = CStr(DateAdd("h", 1, TimeAdd)) & "<font style='font-size:18pt; font-family: Wingdings; color: red'>R</font>"
Else
End If
TimeAdd = CStr(TimeAdd)
End Function
'-->
    </script>
我当的一个项目中有这么一段vb的脚本,但是火狐浏览器不支持vb脚本,怎么把这段代码改成javascript的?让它在火狐和IE中都能用。