tincho 28-02-2024, 12:36
Hola, a raíz de una pregunta de un compañero del foro, sobre la obtención de fechas a partir de cadenas de texto, hice una función que creo que resuelve el problema.
Espero que se diviertan mejorandola como me divertí yo creándola.
Espero que se diviertan mejorandola como me divertí yo creándola.
Código:
'' Returns the date from a string, if mode is not pased the deafult values is DMY
Public Function toDate(s As String, Optional sMode As String = "DMY") As Date
Dim p As Integer '' position of the year 0 or 2
Dim a As String[]
Dim dt As Date
Dim ix As Integer
If InStr(s, " ") Then
s = Split(s, " ")[0]
Endif
If InStr(s, "/") > 0 Or InStr(s, "-") > 0 Then
If InStr(s, "/") > 0 Then
a = Split(s, "/")
Else
a = Split(s, "-")
Endif
For ix = 0 To a.Max
If Len(a[ix]) = 1 Then
a[ix] = "0" & a
Endif
Next
If Len(a[0]) = 4 Then
dt = Date(CInt(a[0]), CInt(a[1]), CInt(a[2])) ' ISO
Else
If Len(a[0]) = 2 And Len(a[1]) = 2 And Len(a[2]) = 2 Then
' Acá esta el problema pues la fecha puede ser MM/DD/YY (EEUU), DD/MM/YY (Europa), YY/MM/DD (Japón)
Select Upper(sMode)
Case "DMY" ' Europe
dt = Date(CInt(a[2]), CInt(a[1]), CInt(a[0]))
Case "MDY" ' EEUU
dt = Date(CInt(a[2]), CInt(a[0]), CInt(a[1]))
Case "YMD" ' Japón
dt = Date(CInt(a[0]), CInt(a[1]), CInt(a[0]))
End Select
Endif
Endif
Endif
Return dt
End
Shell 24-02-2024, 11:28
Buenas!.
Últimamente no funciona Gambas PlayGround y da este error al ejecutar cualquier código u ejemplo
Espero que sea algo temporal.
Docker. Wikipedia
Docker. Página principal
Saludos
Últimamente no funciona Gambas PlayGround y da este error al ejecutar cualquier código u ejemplo
Cita:
"docker start" requires at least 1 argument.
See 'docker start --help'.
Usage: docker start [OPTIONS] CONTAINER [CONTAINER...]
Start one or more stopped containers
Espero que sea algo temporal.
Docker. Wikipedia
Docker. Página principal
Saludos
Shell 23-02-2024, 01:40
Buenas!.
Lo único que cambia es que el antiguo es:
https://foro.gambas-es.org y el nuevo es como se llamaba anteriormente. www.gambas-es.org.
Supongamos que encuentro un enlace antiguo y espera encontrar www.gambas-es.org/viewtopic.php?
lo que sea. Pero pertenece en la actualidad ese mensaje antiguo pertenece a https://foro.gambas-es.org/viewtopic.php?
Y da error 404. ¿ No sería posible que si no no se encuentra en un foro buscarse en el otro ?. Llevando al usuario allí.
En los dos no va a estar, supongo.
Es como si antes de que el usuario reciba la página de 404, el servidor intente comprobar si existe en el anterior,
que no existe, entonces dar error 404.
Saludos
Lo único que cambia es que el antiguo es:
https://foro.gambas-es.org y el nuevo es como se llamaba anteriormente. www.gambas-es.org.
Supongamos que encuentro un enlace antiguo y espera encontrar www.gambas-es.org/viewtopic.php?
lo que sea. Pero pertenece en la actualidad ese mensaje antiguo pertenece a https://foro.gambas-es.org/viewtopic.php?
Y da error 404. ¿ No sería posible que si no no se encuentra en un foro buscarse en el otro ?. Llevando al usuario allí.
En los dos no va a estar, supongo.
Es como si antes de que el usuario reciba la página de 404, el servidor intente comprobar si existe en el anterior,
que no existe, entonces dar error 404.
Saludos
Bienvenido, Invitado
Últimos temas
Ordenar en un TableView
Foro: GeneralÚltimo mensaje por: guizans, Ayer, 23:26
Respuestas: 4 - Vistas: 131
Odio a gb.Report
Foro: GeneralÚltimo mensaje por: guizans, 02-11-2025, 13:36
Respuestas: 9 - Vistas: 1,571
Reportes de Gambas
Foro: Aplicaciones/Fragmentos de CódigoÚltimo mensaje por: Alberto59, 27-10-2025, 16:34
Respuestas: 2 - Vistas: 1,336
FACTURA POR REPORT GAMBAS...
Foro: Aplicaciones/Fragmentos de CódigoÚltimo mensaje por: Alberto59, 27-10-2025, 15:03
Respuestas: 0 - Vistas: 88
Ordenando las carpetas
Foro: Programación en otros lenguajesÚltimo mensaje por: tercoide, 22-10-2025, 15:57
Respuestas: 0 - Vistas: 117