convertir fecha sqllite

International Español
1

Buenos das,
Tengo un control textbox con una fecha ejemplo 15/12/2016. Necesito guardarla en una tabla de una base de datos sqllite.
Como convierto 15/12/2016 en 2016-12-15???

Y luego como me la traigo desde sqllite para que en el textbox aparezca 15/12/2016

Muchas gracias.
Un saludo.

2

Te paso tips para ver si lo solucionas.

El formato AAAA-MM-DD se visualiza si definistes el campo como DATE, y como tu tienes una fecha en formato texto, la forma de transformarlo es:

a) Usar para registrar, utilizar

dim cierre as string = "'" // Comila simple // string de update o Insert Sqlstring = sqlstring + "miFecha = " + cierre + fecha.SQLDate + cierre
// …

b) Para leer, Ejemplo

dim Fecha as New Date // String de lectura // ciclo de recorrido del Recordset (rs) fecha = rs.Field("QueFecha").DateValue // lee en Formato Fecha queList.Cell(queList.LastIndex,n) = fecha.ShortDate // pasa a texto //

c) para verificar que una fecha en texto sea una FECHA VALIDA

dim fecha as new date Dim converted as Boolean converted = ParseDate(TextField_Cl_Vencimiento.text, fecha) If converted = false and len(trim(TextField_Cl_Vencimiento.text))<>0 then ' Salida Fecha con formato incorrecto ' puede ser por ao biciesto, mes superior a 12, o da mayor al usal en ' el mes seleccionado return end if ' Salida Fecha correcta

3

Buenas tardes,
muchas gracias por ayudarme

En el primer apartado como obtengo fecha.SQLDate

Si el textbox es de tipo mm/dd/yyyy

Saludos

4

Hola Angel…

partiendo de un textbox llamado MiFecha para pasarlo al formato fecha, lo hago simple para que lo comprendas, luego puedes simplificarlo.

dim laFechaEnTexto as string
dim FechaNacimiento as New Date
laFechaEnTexto = miFecha.text
// ahora por ejemplo, la pasamos al formato DATE
FechaNacimiento.SQLDate = laFechaEnTexto
5

Te paso mas ejemplos

COMPARAR FECHAS

[code]Sub compareDate (d as date)

Dim currentDate as Date
Dim futureDate as Date
currentDate = new Date
futureDate = new Date(currentDate.Year, currentDate.Month, currentDate.day + 5)
if d < currentDate then
’ Code here
elseif d = currentDate then
’ Code here
elseif d < futureDate then
’ Code here
else
’ Code here
end if
End Sub

[/code]

Calcular Diferencia de dias entre dos fechas

[code] dim diff as double
dim d1 as new date
dim d2 as new date

d1.SQLDate = “5999-12-31”
d2.SQLDate = “1950-12-31”

diff = d1.TotalSeconds - d2.TotalSeconds

diff = diff / 3600.0 / 24.0
MsgBox format( diff, “0” ) + " days"[/code]

vERIFICAR FECHA VALIDA

[code]DIm mybool as boolean
DIM mydate as date
DIM Formatdate as string

mybool= parsedate(GMT FORMAT,mydate)

Formatdate = mydate.short date

[/code]
REGISTRAR FECHA EN UN CAMPO RS

dim d as date if parseDate(txtLastMod.text, d) = true then //if date is good, save it to recordset rs.Field("lastdate").DateValue = d end
Comparar Fechas

[code]Dim Today,XDay As New Date
Dim d1,d2 As Double
Dim Yr,Mo,Dy As Integer
d1=Today.TotalSeconds // Real-time value
XDay.Year=Yr
XDay.Month=Mo
XDay.Day=Dy
d2=XDay.TotalSeconds // Stored value

If d1>d2 Then
Alarm.Play
End if

[/code]
Comparar Fechas EJEMPLO 2

[code]Dim d1 as new date
Dim d2 as new date

Dim dateToCheck as new date

d1.TotalSeconds = self.mCurrentDate.TotalSeconds
d2.TotalSeconds = self.mCurrentDate.TotalSeconds

d2.Year = dateToCheck.Year
d2.Month = dateToCheck.Month
d2.day = dateToCheck.day

msgbox str("Greater than: " + str(d1>d2))
msgbox str("Equals: " + str(d1=d2))
msgbox str("Less than: " + str(d1<d2))[/code]

Comparar Fechas

[code]Dim dateToCheck as new date

Dim d1 as new date(self.mCurrentDate.Year, self.mCurrentDate.Month, self.mCurrentDate.day )
Dim d2 as new date(dateToCheck.Year, dateToCheck.Month, dateToCheck.day )

msgbox str("Greater than: " + str(d1>d2))
msgbox str("Equals: " + str(d1=d2))
msgbox str("Less than: " + str(d1<d2))
[/code]

6

Buenos das
muchas gracias amigo por tu gran ayuda

Un saludo.