Comunidad Gambas-es
[SOLUCIONADO] Problemas con fecha y hora en un dateBox - Versión para impresión

+- Comunidad Gambas-es (https://gambas-es.org)
+-- Foro: Gambas (https://gambas-es.org/forum-3.html)
+--- Foro: General (https://gambas-es.org/forum-4.html)
+--- Tema: [SOLUCIONADO] Problemas con fecha y hora en un dateBox (/thread-333.html)

Problemas con fecha y hora en un dateBox - gambafeliz - 13-04-2021

Hola, desde luego lo mio no son las fechas en Gambas Smile

Tengo esto:

Una fecha guardada en sqlite en forma de cadena, esta: '2021-03-27 17:49'

Y necesito pasarla a un dateBox pero cuando lo hago de mil y una manera al final recibo en el datebox esto: 27/03/2021 19:49

En fin como lo solucionáis ustedes, ojo, observo que hay 2 horas de diferencia pero la verdad no se porque ya que mi sistema operativo esta en orden. Por otra parte no coincide con la hora que veo ahora mismo.

RE: Problemas con fecha y hora en un dateBox - david - 13-04-2021

Código:
TextBox7.Text = Format(Date, "dd/mm/yyyy")
o este otros
Código:
Dim FechaA As String[]
Dim FechaSql As String
FechaA = Split(TextBox7.Text, "/")
FechaSql = FechaA[1] & "/" & FechaA[0] & "/" & FechaA[2] & " 02:00:00"
espero que te solucione la papeleta

RE: Problemas con fecha y hora en un dateBox - vuott - 14-04-2021

(13-04-2021, 18:59)gambafeliz escribió: observo que hay 2 horas de diferencia

Mira esta pagina:

   http://gambaswiki.org/wiki/comp/gb/system/timezone
(13-04-2021, 18:59)gambafeliz escribió: necesito pasarla a un dateBox pero cuando lo hago de mil y una manera al final recibo en el datebox esto: 27/03/2021 19:49

Confused A mí el DateBox no muestra también el horario.

De todas formas yo propongo este codigo (la representación del horario no habrá pasado a "DateBox"):
Código:
Public Sub Form_Open()

  Dim fecha As String = "2021-03-27 17:49"
  Dim nuevafecha As String
  Dim ss As String[]
 
  ss = Scan(fecha, "*-*-* *")

'  Reconstruye la fecha en el formato americano, para que pueda ser convertida al tipo "Date" por la función "Cdate()".
  nuevafecha = ss[1] &/ ss[2] &/ ss[0]
 
  DateBox1.Value = CDate(nuevafecha)

End


RE: Problemas con fecha y hora en un dateBox - tincho - 14-04-2021

(14-04-2021, 00:05)vuott escribió:   nuevafecha = ss[1] &/ ss[2] &/ ss[0]
  DateBox1.Value = CDate(nuevafecha)
Vuott, tal vez seria mas completo modificar esl código de esta manera para ver correctamente fecha, horas y minutos
Código:
DateBox1.Mode = DateChooser.DateTime
nuevafecha = ss[1] &/ ss[2] &/ ss[0] & " " & ss[3]
Saludos.

RE: Problemas con fecha y hora en un dateBox - gambafeliz - 14-04-2021

Mil gracias a todos, de verdad de la buena Smile

Mirad mientras esperaba vuestra respuesta he solucionado el problema de esta forma:

Nuestro ejemplo: '2021-03-27 17:49'
1. Convierto '2021-03-27' esta parte a '27/03/2021'
2. La Hora la extraigo para después encadenarla
3. Por último hago un Val de la cadena con la fecha. Esto me acuerdo que Shordi me lo metió a fuego en el pasado. Y al final me acordé y lo hice.

Dim sCreado As String = '27/03/2021' & " " & Right(CStr('2021-03-27 17:49', 5) ' Así funciona pero observo que CStr sobra, lo miraré
DateBox1.Value = Val(sCreado)

Gracias de verdad sois muy amables.

RE: Problemas con fecha y hora en un dateBox - vuott - 14-04-2021

(14-04-2021, 09:49)tincho escribió: Vuott, tal vez seria mas completo modificar esl código de esta manera para ver correctamente fecha, horas y minutos

Ah, muy bien, tincho, muchas gracias. Shy