FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Crear fecha corta
Hola amigos aqui ando d enuevo consultando a los expertos, resulta que tengo un programa que me pide vigencia de xxxx al xxxx ahi no esta el problema ya que logro que aparesca en el reporte pero en si yo quiero saber como se hace para que aparesca asi:
Vigencia 01/2010 Al 06/2010 ya que para capturar la fecha lo hago con el objeto datetimepicker y lo almaceno en la base de datos pero ya estuvie viendo en las mascaras de access y no encuentro algo que me solucione el problema entonces quisiera pedirles de favor si me pueden decir que puedo hacer y gracias de antemano. |
#2
|
||||
|
||||
#3
|
|||
|
|||
Hola
No soy un experto ni por mucho, pero como me han ayudado tambien en este Foro trato de hacer lo mismo A mi me funciona esta solución: Adapté una función que encontré en Trucosmania. function GetToken(Cadena,Separador:string;Token:integer):string; var Posicion:integer; begin while Token > 1 do begin Delete(Cadena,1,Pos(Separador,Cadena)); Dec(Token); end; Posicion:=Pos(Separador,Cadena); if Posicion=0 then result:=cadena else Result:=Copy(Cadena,1,Posicion-Length(Separador)); end; Luego hice esta solución: Busco la fecha con el formáto que tenga y la almaceno en un label como en este caso label13.Caption:=GetLocalT; //// fecha del Sistema //// for n:=1 to 1 do Combobox28.Items.Add(GetToken(label13.Caption,' ',n)); Combobox28.Items.Delete(2); for n:=1 to 2 do Combobox28.Items.Add(GetToken(label13.Caption,'/',n)); for n:=1 to 3 do sep:=(GetToken(label13.Caption,'/',n));delete(sep,5,20); b:=(GetToken(label13.Caption,'/',n));delete(b,2,20); Al final tengo un combo con varios itens que corresponden a partes de la fecha, solo tienes que usarlos (unirlos) segun necesites y funciona con otros formátos de fecha de la pc, (01/03/2009 o 1/3/09) yo tuve problemas con eso y para no meterme en configuraciones de pc de los usuarios hice esto. No obstante estoy a la caza de soluciones mejores y menos complicadas que algun maestro debe tener por aquí. Saludos |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Se corta el texto mostrado en la StatusBar | Eyewitness | Varios | 0 | 22-08-2008 09:29:36 |
Programa multiusuario, y que pasa si se corta la luz? | Lucciano | Varios | 5 | 13-02-2008 20:53:16 |
Se corta la conexion con la BD Firebird | tulio | Firebird e Interbase | 7 | 01-08-2007 12:25:09 |
Premio novela corta | Investment | Humor | 2 | 24-02-2005 14:23:14 |
|