<!--
function vRut (r,largo)

    i = largo
    Factor = 2
    Suma = 0

    Do While i > 0
        If Factor > 7 Then Factor = 2
        Suma = Suma + (cint(Mid(r, i, 1)) * Factor)
        Factor = Factor + 1
        i = i - 1
    Loop
    
    DigitoVer = (11 - (Suma Mod 11))
	
	vrut = digitover
	
    if DigitoVer = 11 then
        vrut = "0"
    elseif DigitoVer = 10 then
        vrut = "K"
    else
        vrut = cstr(DigitoVer)
    end if

end function


function vPoliza (r)

    i = 8
    Factor = 2
    Suma = 0

    Do While i > 0
        If Factor > 7 Then Factor = 2
        Suma = Suma + (cint(Mid(r, i, 1)) * Factor)
        Factor = Factor + 1
        i = i - 1
    Loop
    
    DigitoVer = (11 - (Suma Mod 11))
	
	vPoliza = digitover
	
    if DigitoVer = 11 then
        vPoliza = "0"
    elseif DigitoVer = 10 then
        vPoliza = "K"
    else
        vPoliza = cstr(DigitoVer)
    end if

end function

function Upper (KeyCode)

    'Reasigna caracteres.
    if KeyCode = 59 then 
		KeyCode = 58 '(; <=> :)
    elseif KeyCode = 34 or KeyCode = 39 then 
		KeyCode = 180 '(" <=> ´), (' <=> ´)
    elseif KeyCode >= 97 and KeyCode <= 122 then 
		KeyCode = KeyCode - 32
    elseif KeyCode = 124 then 
		KeyCode = 0 '(| <=> Nothing)
    elseif KeyCode = 225 then 
		KeyCode = 65 '(á <=> A)
    elseif KeyCode = 233 then  KeyCode = 69 '(é <=> E)
    elseif KeyCode = 237 then KeyCode = 73 '(í <=> I)
    elseif KeyCode = 241 then KeyCode = 209 '(ñ <=> Ñ)
    elseif KeyCode = 243 then KeyCode = 79 '(ó <=> O)
    elseif KeyCode = 250 then KeyCode = 85 '(ú <=> U)
    end if
    
    upper = KeyCode
    
end function

function fechaescrita (fecha)

    Dim fStr
    
    If Not IsDate(fecha) Then
        fstr = "Error en fecha ...."
    else
    	fStr = Day(fecha) & " de "

    	Select Case Month(fecha)
        	Case 1: fStr = fStr & "Enero"
        	Case 2: fStr = fStr & "Febrero"
        	Case 3: fStr = fStr & "Marzo"
        	Case 4: fStr = fStr & "Abril"
        	Case 5: fStr = fStr & "Mayo"
        	Case 6: fStr = fStr & "Junio"
			Case 7: fStr = fStr & "Julio"
			Case 8: fStr = fStr & "Agosto"
			Case 9: fStr = fStr & "Septiembre"
			Case 10: fStr = fStr & "Octubre"
			Case 11: fStr = fStr & "Noviembre"
			Case 12: fStr = fStr & "Diciembre"
		End Select
    
		fStr = fStr & " de " & Year(fecha)
    end if

    fechaescrita = fStr

end function
-->