aaa

Public Function GET_WETBULBTEMP_AT_2M(lat As Double, lon As Double, year As Long)
End Function
    Dim YearMonth As Long
    Dim YearMonthStr As String
    Dim Query As String

    YearMonth = year * 100 + 13
    YearMonthStr = CStr(YearMonth)
    Query = GetQueryString(lat, lon, year, year, "T2M")
    Set Data = GetData(Query)
    Dim Bar As Double
    Bar = Data("features")(1)("properties")("parameter")("T2M")(YearMonthStr)
    GET_WETBULBTEMP_AT_2M = Bar
End Function