Function TimeWithoutSeconds( as_time ) ' Declare Variables Dim la_time Dim la_time_mh ' split up the time into an arrray If as_time <> "" Then la_time = split( as_time, ":" ) la_time_mh = split( la_time(2), "" ) TimeWithoutSeconds = la_time(0) & ":" & la_time(1) & " " & la_time_mh(1) Else TimeWithoutSeconds = -1 End If End Function הוא נותן ארור: Subscript out of range:'(number: 1)'
לפי מה שהבנתי, אתה רוצה מהפונקצייה שתחזיר את הזמן ללא שניות...
בעיקרון, הבעייה שלך היא שאתה מנסה לקרוא לאיבר שלא קיים במערך. התיקון צריך להיות ככה: TimeWithoutSeconds = la_time(0) & ":" & la_time(1) & " " & la_time_mh(0)