Ayúdame a modificar el código, página web
'====== Calcular hora mundial
Función TimeAdd(UTC,T)
Dim PlusMinus, DST, y,tSave
Si Izquierda(T,1)="-" Entonces MásMinus = -1 De lo contrario MásMinus = 1
UTC=Derecha(UTC, Len(UTC)-5)
UTC=Izquierda(UTC,Len(UTC)-4)
y = Año(UTC)
TimeAdd=DateAdd("n", (Cint(Mid(T , 2 ,2))*60 + Cint(Mid(T,4,2)))* PlusMinus, UTC)
'Horario de verano de EE. UU.: 00:00 el primer domingo de abril hasta el final de octubre a las 00:00 del último domingo de octubre'
If Mid(T,6,1) = "*" And DateSerial(y,4,(9 - Weekday(DateSerial(y,4 , 1)) mod 7) ) <= TimeAdd y DateSerial(y,10,31 - Día de la semana(DateSerial(y,10,31)) >= TimeAdd Entonces
TimeAdd= CStr(DateAdd(" h ", 1, TimeAdd)) &"R"
Más
Finalizar si
TimeAdd = CStr(TimeAdd)
Fin de función
'-->
< / p>
COLOR DE FONDO: aguamarina
}
< META content="MSHTML 6.00.2800.1505" nombre=GENERADOR>