Spanish Ayuda con código de fecha [Solucionado]

[ebqlabs]

Hola, tengo el siguiente codigo para las fecha:

Sub btnDate_Click
    Dim Dd As DateDialog
    Dd.Year = DateTime.GetYear(DateTime.Now)
    Dd.Month = DateTime.GetMonth(DateTime.Now)   
    Dd.DayOfMonth = DateTime.GetDayOfMonth(DateTime.Now)
    Dd.Show("Set the required date", "B4A Date Dialog", "Yes", "No", "Maybe", Bmp)
    ToastMessageShow(ret & " : " & Dd.DayOfMonth & "/" & Dd.Month & "/" & Dd.Year , False)
End Sub

lo que pasa es que me sale con esta imagen

Como podría poner la fecha como en esta imagen ?

Saludos

 

[JoanRPM]

Alguna vez lo he hecho bajando el numero de la versión del manifest:
android:targetSdkVersion="4".
Prueba bajando la versión que tienes ahora, en el maniferst, hasta conseguirlo.

No se si hay otra manera.

Suerte.

 

[bgsoft]

Hola

Alguna vez lo he hecho bajando el numero de la versión del manifest:
android:targetSdkVersion="4".

Si, bajando el targetSdkVersion se consigue un cambio del "look" de la pantalla, el problema es que puedes perder algunas caracteristas que te puedan dar APIs mas avanzadas, por ejemplo, si quieres subir una aplicación al Play Store y que te salga que se pueda emplear en tablets, o pones un SDK por encima de 10 o no te saldrá (Android 3.0 o superior)

Saludos

 

[bgsoft]

Hola ebqlabs

Si te quedó solucionado el problema, podrias añadir a la cabecera [SOLUCIONADO]? asi hacemos mas ágil el foro.
Gracias

Saludos

 

[ebqlabs]

Hola ebqlabs

Si te quedó solucionado el problema, podrias añadir a la cabecera [SOLUCIONADO]? asi hacemos mas ágil el foro.
Gracias

Saludos

Lo he dejado así

<uses-sdk android:minSdkVersion="4" android:targetSdkVersion="14"/>

pero no cambia el diseño sigue mostrando día, mes y el calendario.

Sub btnIngFec_Click
Dim ret As String
Dim Dd As DateDialog
Dd.Year = DateTime.GetYear(DateTime.Now)
Dd.Month = DateTime.GetMonth(DateTime.Now)
Dd.DayOfMonth = DateTime.GetDayOfMonth(DateTime.Now)
ret = Dd.Show("", "Seleccione una Fecha", "Seleccionar", "Cancelar", "",Null)
'ret = Dd.ShowCalendar
'ret = Dd.Version


ToastMessageShow(ret & " : " & Dd.DayOfMonth & "/" & Dd.Month & "/" & Dd.Year , False)
End Sub

no se que podrá ser y no consigo mostrar día, mes, año
Saludos.

 

[JordiCP]

Buenas,

Tal como comentan @JoanRPM y @bgsoft, el que tienes que cambiar es el targetSdkVersion (=4 o el valor minimo que te vaya bien). El que tu has bajado es el minSdkVersion.

 

[ebqlabs]

Buenas,

Tal como comentan @JoanRPM y @bgsoft, el que tienes que cambiar es el targetSdkVersion (=4 o el valor minimo que te vaya bien). El que tu has bajado es el minSdkVersion.

No funciono, lo deje

<uses-sdk android:minSdkVersion="5" android:targetSdkVersion="2"/>

y no :/

 

[rscheel]

Quieres hacer algo como esto, si es así podrías probar cambiando la interfaz de tu aplicación por material design, seria mucho mejor y tendrías mayor compatibilidad pensando en el futuro de la app.

 

[ebqlabs]

Quieres hacer algo como esto, si es así podrías probar cambiando la interfaz de tu aplicación por material design, seria mucho mejor y tendrías mayor compatibilidad pensando en el futuro de la app.


View attachment 39248

Me gustaría realizar la selección de fecha sencillo, como este

Saludos

 

[rscheel]

Me gustaría realizar la selección de fecha sencillo, como este

Saludos

Ocupa este codigo.

Dim Dd As DateDialog
Dd.ShowCalendar = False
Dd.Year = DateTime.GetYear(DateTime.Now)
Dd.Month = DateTime.GetMonth(DateTime.Now)
Dd.DayOfMonth = DateTime.GetDayOfMonth(DateTime.Now)
ret = Dd.Show("Seleccione Fecha", "Fecha", "Cancelar", "Ok", "", Bmp)
'ToastMessageShow(ret & " : " & Dd.DayOfMonth & "/" & Dd.Month & "/" & Dd.Year , False)
If ret == -3 Then
 EditFechaVol.Text =  Dd.Year & "-" & Dd.Month & "-" &  Dd.DayOfMonth  'Lo pasas a un cuadro de texto.
End If

 

[ebqlabs]

Ocupa este codigo.

Dim Dd As DateDialog
Dd.ShowCalendar = False
Dd.Year = DateTime.GetYear(DateTime.Now)
Dd.Month = DateTime.GetMonth(DateTime.Now)
Dd.DayOfMonth = DateTime.GetDayOfMonth(DateTime.Now)
ret = Dd.Show("Seleccione Fecha", "Fecha", "Cancelar", "Ok", "", Bmp)
'ToastMessageShow(ret & " : " & Dd.DayOfMonth & "/" & Dd.Month & "/" & Dd.Year , False)
If ret == -3 Then
EditFechaVol.Text =  Dd.Year & "-" & Dd.Month & "-" &  Dd.DayOfMonth  'Lo pasas a un cuadro de texto.
End If

Perfecto compañero, muchas gracias. funciono

Doy por solucionado el tema. gracias, saludos