Dim sets As Map 'Globals
'In Activity_create
sets.Initialize
sets.Put("thang mot", "January")
sets.Put("tháng hai", "February")
sets.Put("hành khúc", "March")
'rest of map here
File.WriteMap(File.DirRootExternal, "MapMonths", sets)
Log(MyEnglishDate("14/hành khúc/2015")) 'Displays 14/March/2015
Sub MyEnglishDate(MyDate As String) As String
sets = File.ReadMap(File.DirRootExternal, "MapMonths")
Dim D() As String =Regex.Split("/",MyDate)
Return D(0) & "/" & sets.Get(D(1)) & "/" & D(2)
End Sub