% Function fncFmtDate( _ byVal strDate, _ byRef strFormat _ ) ' Accepts strDate as a valid date/time, ' strFormat as the output template. ' The function finds each item in the ' template and replaces it with the ' relevant information extracted from strDate ' Template items (example) ' %B Full month name (February) ' %Y Year with century (1998) On Error Resume Next Dim intPosItem Dim int12HourPart Dim str24HourPart Dim strMinutePart Dim strSecondPart Dim strAMPM ' Insert non-Abbreviated Month Names strFormat = Replace(strFormat, "%B", _ MonthName(DatePart("m", strDate), _ False), 1, -1, vbBinaryCompare) ' Insert Long Year (4 digit) strFormat = Replace(strFormat, "%Y", _ DatePart("yyyy",strDate), 1, -1, vbBinaryCompare) strFormat = Replace(strFormat, "%P", strAMPM, 1, _ -1, vbBinaryCompare) fncFmtDate = strFormat 'If there is an error output its value If err.Number <> 0 then Response.Clear Response.Write "ERROR " & err.Number & _ ": fmcFmtDate - " & err.Description Response.Flush Response.End End if End Function ' fncFmtDate %>


Judge William S. Kieser taking the oath of office from President Judge Clinton W. Smith on January 2, 2002. Observing - mother Rena Kieser and wife Ginny Kieser. Joining Judge Smith on the bench, from left, Judge Nancy L. Butts, Judge Dudley N. Anderson and Judge Kenneth D. Brown. Judge Brown had earlier given the oath of office to Judge Smith, now in his third term.

(Left) Judge William S. Kieser administering the oath of office to new President Judge Kenneth D. Brown on January 5, 2004. (Right) Newly elected Judge Richard A. Gray taking the oath from Judge Brown. Looking on - his wife Letty.

Lycoming County welcomed two new judges at a ceremony on Monday, January 4, 2010. Judges Joy McCoy and Marc Lovecchio were sworn in by President Judge Nancy Butts at the Community Theater League before a crowd that included county government leaders, as well as members of the bar, family members and the general public.