EnglishPictToLocal


Volver
'*********************************************************
' Function EnglishPictToLocal(
'          In As String,
'          Out As String) As Boolean
'
' Este método traduce del inglés al idioma local las 
' expresiones de los tipos de formato. 
' Devuelve True si ha tenido éxito
'
' Argumentos:
'   In: Cadena que contiene la expresión a traducir
'   Out: Cadena donde se devuelve el resultado de la
'        traducción
'
Sub wzEnglishPictToLocal()
Dim wzIn(16) As String
Dim wzOut As String
Dim i As Integer

    WizHook.Key = 51488399
    
    sIn(0) = "General Date"
    sIn(1) = "Long Date"
    sIn(2) = "Medium Date"
    sIn(3) = "Short Date"
    sIn(4) = "Long Time"
    sIn(5) = "Medium Time"
    sIn(6) = "Short Time"
    sIn(7) = "General Number"
    sIn(8) = "Currency"
    sIn(9) = "Euro"
    sIn(10) = "Fixed"
    sIn(11) = "Standard"
    sIn(12) = "Percent"
    sIn(13) = "Scientific"
    sIn(14) = "True/False"
    sIn(15) = "Yes/No"
    sIn(16) = "On/Off"
    
    For i = 0 To 16
        WizHook.EnglishPictToLocal sIn(i), sOut
        Debug.Print sIn(i) & ": " & sOut
    Next
        
End Sub
'*********************************************************
Contactar Última actualización 21/9/2003     © Juan M. Afán deRibera