Como trabajar con comas?
Publicado por Elizabeth (71 intervenciones) el 07/01/2005 16:27:49
Hola amigos, estoy elaborando un programa que crea un documento de texto de esta forma
DNumeroDeCuenta = rstSantanderEmpleados.Fields("CuentaBancaria").Value
Cuenta = Mid(DNumeroDeCuenta & Space(16), 1, 16)
DImporte = rstSantanderQuincena.Fields("CantidadTotal").Value 'Verificar Importe
Importe = Format(DImporte, "0000000000000000.00")
sSQL3 = DTipoDeRegistro & DNumeroDeSecuencia & NumeroEmp & APaterno & AMaterno & Nombre & Cuenta & Importe
Print #2, sSQL3
pero como puedo hacer para que cuando lo pase a un txt me lo separe con comas, otra cosa mas como doy formato de 16 enteros, dos decimales sin punto bueno gracias por su ayuda
DNumeroDeCuenta = rstSantanderEmpleados.Fields("CuentaBancaria").Value
Cuenta = Mid(DNumeroDeCuenta & Space(16), 1, 16)
DImporte = rstSantanderQuincena.Fields("CantidadTotal").Value 'Verificar Importe
Importe = Format(DImporte, "0000000000000000.00")
sSQL3 = DTipoDeRegistro & DNumeroDeSecuencia & NumeroEmp & APaterno & AMaterno & Nombre & Cuenta & Importe
Print #2, sSQL3
pero como puedo hacer para que cuando lo pase a un txt me lo separe con comas, otra cosa mas como doy formato de 16 enteros, dos decimales sin punto bueno gracias por su ayuda
Valora esta pregunta


0