'BUS. Para averiguar la configuración del Panel de Control. Inicio.
'Const LOCALE_SYSTEM_DEFAULT = &H800
'Const LOCALE_USER_DEFAULT = &H400
'Const LOCALE_SDECIMAL = &HE
'Const LOCALE_STHOUSAND = &HF
'Const LOCALE_STIMEFORMAT = &H1003
'Const ERROR_INSUFFICIENT_BUFFER = 122
'Const ERROR_INVALID_FLAGS = 1004
'BUS. Para averiguar la configuración del Panel de Control. Final.

function fsDeterminar_Nombre_Archivo_Version(sNombre, sVersion, iTipo)
	dim sAuxiliar
	
	if iTipo then
		sAuxiliar = sNombre
	else
		sAuxiliar = trim(StripFileExtension(sNombre)) & "(" & trim(sVersion) & ")." & trim(GetFileExtension(sNombre))
	end if
		fsDeterminar_Nombre_Archivo_Version = sAuxiliar
end function 'fsDeterminar_Nombre_Archivo_Version(sNombre, sVersion, iTipo)

Function StripFileExtension(strFileName)
	On Error Resume Next

    StripFileExtension = EverythingBeforeTheLast(strFileName, ".")
End Function

Function EverythingBeforeTheLast(strSearching, strSearchFor)
	On Error Resume Next

    Dim iLastOccurrance
    iLastOccurrance = InStrRev(strSearching, strSearchFor)

    If iLastOccurrance > 0 Then
        EverythingBeforeTheLast = Left(strSearching, iLastOccurrance - 1)
    Else
        EverythingBeforeTheLast = strSearching
    End If
End Function

Function GetFileExtension(strFileName)
	On Error Resume Next

    GetFileExtension = EverythingAfterTheLast(strFileName, ".")
End Function

Function EverythingAfterTheLast(strSearching, strSearchFor)
	On Error Resume Next

    Dim iLastOccurrance
    iLastOccurrance = InStrRev(strSearching, strSearchFor)

    If iLastOccurrance > 0 Then
        EverythingAfterTheLast = Mid(strSearching, iLastOccurrance + Len(strSearchFor))
    Else
        EverythingAfterTheLast = ""
    End If
End Function

'''amaya 11/6/02
Function G_LeerNumero(Data) 
Dim L_Indice , L_Caracter , L_CadenaResultado 
	G_LeerNumero = data
	
    L_CadenaResultado = ""
    For L_Indice = 1 To Len(Data)
        L_Caracter = Mid(Data, L_Indice, 1)
        If G_CaracterDecimal = "," Then
            Select Case L_Caracter
                Case ",", "."
                    L_CadenaResultado = L_CadenaResultado & ","
                Case Else
                    L_CadenaResultado = L_CadenaResultado & L_Caracter
            End Select
        Else
            Select Case L_Caracter
                Case ".", ","
                    L_CadenaResultado = L_CadenaResultado & "."
                Case Else
                    L_CadenaResultado = L_CadenaResultado & L_Caracter
            End Select
        End If

    Next 
    G_LeerNumero = L_CadenaResultado
    Exit Function
   
End Function

Public Function G_CaracterDecimal() 
	G_CaracterDecimal = ","
'Dim LastError 
'Dim Valor 
'Dim Longitud 
'dim jj
    
  '  Valor = Space(255)
 '   Longitud = Len(Valor)
    
'    GetLocale LOCALE_USER_DEFAULT, LOCALE_SDECIMAL, Valor, Longitud

    'LastError = GetLastError()
    'If LastError = ERROR_INSUFFICIENT_BUFFER _
    'Or LastError = ERROR_INVALID_FLAGS _
    'Or LastError = ERROR_INVALID_PARAMETER _
    'Then
    '    G_CaracterDecimal = ""
    '    G_Decimal = ""
    'Else
        'G_CaracterDecimal = Left(Valor, InStr(1, Trim(Valor), Chr(0)) - 1)
        'G_Decimal = Left(Valor, InStr(1, Trim(Valor), Chr(0)) - 1)
    'End If

'BUS. Para averiguar la configuración del Panel de Control. Fin.
End Function


function filtrarNombre(dominioNombre)
'A partir de una cadena devuelve desde la primera \ hasta el final
	filtrarNombre = mid(dominioNombre, instr(dominioNombre,"\") + 1)
end function



Sub PintarFechas(oFecha, Cod1, Cod2, Cod3)

	with oFecha
		.ForeColor = RGB(Cod1,Cod2,Cod3)

	end with
end sub

function disennoModal(ancho, alto)
	''Devuelve el string que formatea una ventana modal
	''La devuelve de forma que salga centrada
	dim cadena
	
	cadena = "edge: sunken; scroll: no; center: no; help: no; resizable: no; status: no;" & _
			"dialogHeight:" & alto & "px;" & _
			"dialogWidth:" & ancho & "px;" & _
			"dialogTop:" & cstr(cint((screen.height/2) - (alto/2))) & "px;" & _
			"dialogLeft:" & cstr(cint((screen.width/2) - (ancho/2))) & "px;"
	
	disennoModal = cadena
end function