Como convertir mm/dd/yyyy a dd/mm/yyyy en este codigo?
Hola les cuento que me ha surgido un problema con el codigo de access que tengo. Es simple pero que me dificulta todas las cuentas ya que los vencimientos se reacionan con las fechas. Concretamente la fecha esta en dd/mm/yyyy... Y se pasa a mm/dd/yyyy en la exportacion.
Les dejo el codigo haber si me pueden ayudar. Lo que si se que esto sucede por que VBA solo entiende el ingles. Espero su ayuda y gracias
Private Sub ComCLick()
Dim rst As Recordset, rst1 As Recordset, dbs As DAO.Database, j As Long, n As Integer, namesuscripcion As String, nameiva As String, nameseguro As String, namefondo As String, namefecha As String
Dim namemonto As String
Dim elmonto As Double
Dim eliva As Double
Dim lasuscripcion As Double
Dim elseguro As Double
Dim elfondo As Double
Dim elmonto1 As Double
Dim eliva1 As Double
Dim lasuscripcion1 As Double
Dim elseguro1 As Double
Dim elfondo1 As Double
On Error Resume Next
DoCmd.RunSQL "DROP TABLE tblpagoslineal;"
DoCmd.RunSQL "CREATE TABLE tblpagoslineal ([ID] COUNTER CONSTRAINT ndxID PRIMARY KEY, [contrato] long, [ayn] string(50),[valor nominal] double,[fecha contable] datetime, [monto1] double,[suscripcion1] double,[iva1] double,[seguro1] double,[fondo1] double,[fecha1]datetime);"
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("conimputacionmaxima")
rst.MoveFirst
n = rst!sumadeconta
rst.Close
DoCmd.SetWarnings off
For j = 2 To n
namemonto = "monto" & Trim(j)
nameseguro = "seguro" & Trim(j)
namesuscripcion = "suscripcion" & Trim(j)
namefondo = "fondo" & Trim(j)
nameiva = "iva" & Trim(j)
namefecha = "fecha" & Trim(j)
DoCmd.RunSQL "ALTER TABLE tblpagoslineal ADD COLUMN " & namemonto & " double;"
DoCmd.RunSQL "ALTER TABLE tblpagoslineal ADD COLUMN " & namesuscripcion & " double;"
DoCmd.RunSQL "ALTER TABLE tblpagoslineal ADD COLUMN " & nameiva & " double;"
DoCmd.RunSQL "ALTER TABLE tblpagoslineal ADD COLUMN " & nameseguro & " double;"
DoCmd.RunSQL "ALTER TABLE tblpagoslineal ADD COLUMN " & namefondo & " double;"
DoCmd.RunSQL "ALTER TABLE tblpagoslineal ADD COLUMN " & namefecha & " datetime;"
Next j
Set rst = dbs.OpenRecordset("cuentas de los clientes")
Set rst1 = dbs.OpenRecordset("tblpagoslineal")
rst.MoveLast
rst.MoveFirst
elcontrato = 0
For j = 1 To rst.RecordCount
elmonto1 = 0
elmonto = CLng(rst!Monto * 100) / 100
If elmonto - Int(elmonto) <> 0 Then
elmonto1 = Int((elmonto - Int(elmonto)) * 100)
End If
lasuscripcion1 = 0
lasuscripcion = CLng(rst!suscripcion * 100) / 100
If lasuscripcion - Int(lasuscripcion) <> 0 Then
lasuscripcion1 = Int((lasuscripcion - Int(lasuscripcion)) * 100)
End If
eliva1 = 0
eliva = CLng(rst!iva * 100) / 100
If eliva - Int(eliva) <> 0 Then
eliva1 = Int((eliva - Int(eliva)) * 100)
End If
elseguro1 = 0
elseguro = CLng(rst!seguro * 100) / 100
If elseguro - Int(elseguro) <> 0 Then
elseguro1 = Int((elseguro - Int(elseguro)) * 100)
End If
elfondo1 = 0
elfondo = CLng(rst!fondo * 100) / 100
If elfondo - Int(elfondo) <> 0 Then
elfondo1 = Int((elfondo - Int(elfondo)) * 100)
End If
If elcontrato = 0 Then
rst1.AddNew
rst1!Contrato = rst!Contrato
rst1!ayn = Left(rst!ayn, 50)
rst1![Valor Nominal] = rst![Valor Nominal]
rst1![Fecha contable] = rst![Fecha contable]
rst1!monto1 = elmonto
rst1!fecha1 = rst!fecha
rst1!suscripcion1 = lasuscripcion
rst1!iva1 = eliva
rst1!seguro1 = elseguro
rst1!fondo1 = elfondo
rst1.Update
elcontrato = rst!Contrato
n = 1
GoTo otroj
End If
If rst!Contrato = elcontrato Then
n = n + 1
namemonto = "monto" & Trim(n)
nameseguro = "seguro" & Trim(n)
namesuscripcion = "suscripcion" & Trim(n)
namefondo = "fondo" & Trim(n)
nameiva = "iva" & Trim(n)
namefecha = "fecha" & Trim(n)
DoCmd.RunSQL "update tblpagoslineal set " & namefecha & "= #" & rst!fecha & "#, " & _
namemonto & "=" & Int(elmonto) & "." & elmonto1 & ", " & _
nameseguro & "=" & Int(elseguro) & "." & elseguro1 & ", " & _
namesuscripcion & "=" & Int(lasuscripcion) & "." & lasuscripcion1 & ", " & _
namefondo & "=" & Int(elfondo) & "." & elfondo1 & ", " & _
nameiva & "=" & Int(eliva) & "." & eliva1 & " where contrato like " & Chr(34) & rst!Contrato & Chr(34) & ";"
