Thanks Erel, i try this solution but, i can't see error.
This is IOS Capture
This is Android Capture
this is my Code for capital name days
Name Day:
Dim days As List = DateUtils.GetDaysNames
For i = Main.PrimerDia To Main.PrimerDia + 6
Dim d As String = days.Get((i-1) Mod 7)
d = d.SubString2(0,1).ToUpperCase & d.SubString2(1,3)
NomDias(i - Main.PrimerDia) = d
Next
SetDateTimeLocale ("es_ES")
Sub SetDateTimeLocale (locale As String)
Dim loc As NativeObject
loc = loc.Initialize("NSLocale").RunMethod("localeWithLocaleIdentifier:", Array(locale))
Dim no As NativeObject = DateTime
no.GetField("dateFormat").SetField("locale", loc)
no.GetField("timeFormat").SetField("locale", loc)
End Sub
An object representing information about linguistic, cultural, and technological conventions that bridges to ; use when you need reference semantics or other Foundation-specific behavior.
Sub GetPreferredLanguage As String
Dim no As NativeObject
Return no.Initialize("NSLocale") _
.RunMethod("preferredLanguages", Null).RunMethod("objectAtIndex:", Array(0)).AsString
End Sub