Spanish Ayuda con código de fecha [Solucionado]

ebqlabs

Active Member
Licensed User
Hola, tengo el siguiente codigo para las fecha:

B4X:
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
j7dzmf.png


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

2hns861.png



Saludos
 

JoanRPM

Active Member
Licensed User
Longtime User
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

Well-Known Member
Licensed User
Longtime User
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

Well-Known Member
Licensed User
Longtime User
Hola ebqlabs

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

Saludos
 

ebqlabs

Active Member
Licensed User
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.

B4X:
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

Expert
Licensed User
Longtime User
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.
 

rscheel

Well-Known Member
Licensed User
Longtime User
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.


Screenshot_2015-11-27-17-03-29.png
 

rscheel

Well-Known Member
Licensed User
Longtime User
Me gustaría realizar la selección de fecha sencillo, como este

2hns861.png


Saludos

Ocupa este codigo.

B4X:
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

Active Member
Licensed User
Ocupa este codigo.

B4X:
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
 
Top