ISLanguageUtils.TranslateByDictToEN

Description

This function translates the specified text from the user interface language to English.

Syntax

object.TranslateByDictToEN(aDictionaryId, aText)

Part	Attribute	Type	Description
`object`	Required	ISLanguageUtils	The `object` always implements the ISLanguageUtils interface
`aDictionaryId`	In, Required	int	ID of the dictionary
`aText`	In, Required	string	The text that should be translated

Return Value

string

Returns the translation of the specified text from the user interface language to English.

Example

Display the French text translated to English.

sub Main()
  Dim aLanguageUtils
  Dim aPatient
  Dim aMessage

  Set aLanguageUtils = Profile.LanguageUtils
  set aPatient = Profile.SelectPatient
  
  aMessage = t("Âge") & ": " & aPatient.Age & vbNewLine &_
    t("DDN") & ": " & aPatient.DOB & vbNewLine &_
    t("N°fichier") & ": " & aPatient.FileNum & vbNewLine      
   
  Profile.MsgBox(aMessage)
end Sub

function t(aText)
  
  t =  Profile.LanguageUtils.TranslateByDictToEN(1, aText)
end function

Note:

The user interface language should be French.

Version information

Added in v7.9.0