https://foro.gambas-es.org/viewtopic.php?f=1&t=8141&p=49041#p49041
-----------------------------------
gambafeliz
Domingo, 05 Julio 2020, 15:54

Re: Restar Días A Una Fecha
-----------------------------------
[quote user="calcena" post="49040"]
Para mi aplicación lo que me ha funcionado es lo siguiente:

 dTempFecha = DateAdd(mHelpers.getFechaMMDDYYYY(dbFechaAviso.Text), gb.Day, -Val(txtDiasAviso.Text))
 arrAlerta.Add(Format(dTempFecha, "dd/mm/yyyy"))
[/quote]

Voy a intentar entender tú código:
1era. linea:
Guardas en una variable de tipo Date, usas la función sumar Date donde tienes un modulo (mHelpers) con una función (getFecha) y le pasas supongo una fecha almacenada en una base de datos o manual (no se) y tampoco sé el formato, que te devuelve un Date en el formato MMDDYYYY(esto es lo que creía, pero he visto la función y devuelve String cosa que no entiendo porque no te da error por que DateAdd(Date,.....) y no String,  para después  restar x días de una caja de texto.
2a. linea: Guardas una cadena fecha tras convertirla desde un Date.

Opinión: Estas exactamente en los mismos problemas que yo ya tuve con las fechas y sinceramente lo estas resolviendo igual que yo. Incluso creé una clase llamada Fecha para resolver cada formato que tenia y tratarlo como a mi me interesaba. Osea, visualizar Fechas en pantalla con formato DD/MM/YYYY y lidiar con fechas MM/DD/YYYY así como trabajar de forma nativa con SQLite con sus formatos YYYY-MM-DD.

Por cierto esta anotación la tengo en mi código, por si te sirve de algo:
   ' Fecha según España: Día/Mes/Año
   ' Fecha según SQLite: Año-Mes-Día
   ' Fecha según Gambas: Día/Mes/Año pero al pasar a String es: Mes/Día/Año

[quote user="calcena" post="49040"]
La función mHelpersgetFechaMMDDYYY():
Public Function getFechaMMDDYYYY(ByRef sParamInput As String) As String
  
  sParamInput = Mid(sParamInput, 4, 2) & "/" & Mid(sParamInput, 1, 2) & "/" & Mid(sParamInput, 7, 4)  
  Return sParamInput  
End

Saludos.[/quote]


