anchor.diff:      let private getTimezoneOffset (f:FO) (o:CO) =
         let o = o.CastTo<DO>()
         (-TimeZone.CurrentTimeZone.GetUtcOffset(DateTime.Now).TotalMinutes) |> BV.Box
  +
  +    let private setTime (f:FO) (o:CO) (value:double) =
  +      let o = o.CastTo<DO>()
  +      o.Date <- value |> DateObject.TicksToDateTime
  +      o |> BV.Box
       
       let create (env:Environment) objPrototype =
         let prototype = env.NewDate(invalidDate)
  
positive.code:       proto?getUTCSeconds <- (JsFunc(getUTCSeconds) |> create)
        proto?getMilliseconds <- (JsFunc(getMilliseconds) |> create)
        proto?getUTCMilliseconds <- (JsFunc(getUTCMilliseconds) |> create)
        proto?getTimezoneOffset <- (JsFunc(getTimezoneOffset) |> create)
negative.code: 
      let setup (env:Environment) =
        let proto = env.Prototypes.Date
        let create func = func |> Utils.createHostFunction env
  
        proto?constructor <- env.Constructors.Date
        proto?valueOf <- (JsFunc(valueOf) |> create)
  