Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Fecha De Creacion Miprograma.gambas
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Fecha De Creacion Miprograma.gambas 
 
Hola a todos.
Estoy usando el siguiente fragmento de código para poner la fecha del ejecutable de gambas en el formulario "acerca de"
dtFechaCompilacion = Stat(Application.Path &/ Application.Name & ".gambas").LastModified
 

Y funciona en cuando lo ejecuto desde el IDE e inclusive si ejecuto el miprograma.gambas pero cuando instalo el paquete .deb esto deja de funcionar.
Así que la pregunta es: ¿Cual es la forma correcta de poner la fecha de "compilación" del ejecutable de gambas? para poder recuperarlo y mostrar lo en acercad de...?

Saludos.
 



 
tincho - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Fecha De Creacion Miprograma.gambas 
 
Tincho:

Citar:
¿fecha de compilación?

Y no es más interesante la versión?

application.version
 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Fecha De Creacion Miprograma.gambas 
 
jsbsan escribió: [Ver mensaje]
Y no es más interesante la versión?

Si claro, eso también lo incluía en otro renglón, aquí mas abajo esta el código completo.
Pero me gusta poner la fecha que se genero el ejecutable ademas de la versión y creía haber encontrado una forma pero parece que no es del todo correcta.
Public Sub Form_Open()

Dim dtFechaCompilacion As Date
Dim stFechaCompilacion As String

    dtFechaCompilacion = Stat(Application.Path &/ Application.Name & ".gambas").LastModified

    stFechaCompilacion = Year(dtFechaCompilacion) & "-"
    stFechaCompilacion &= FormatStrings.Digito2(Month(dtFechaCompilacion)) & "-"
    stFechaCompilacion &= FormatStrings.Digito2(Day(dtFechaCompilacion)) & ":"
    stFechaCompilacion &= FormatStrings.Digito2(Hour(dtFechaCompilacion)) & ":"
    stFechaCompilacion &= FormatStrings.Digito2(Minute(dtFechaCompilacion)) & ":"
    stFechaCompilacion &= FormatStrings.Digito2(Second(dtFechaCompilacion))
    
    lblName.Text = FLogin.stAppName
    lblDescription.Text = FLogin.stAppDesc
    lblVersion.Text = "v" & Application.Version & " [" & stFechaCompilacion & "]"
    lblCopyright.Text = "Copyright (C) 2014-" & Year(Now)
    lblAutor.Text = "Desarrollador"
    lblLicencia.Text = "GPL v3 "
    Me.Caption = "Acerca de " & FLogin.stAppName
  
End
 

 



 
tincho - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Fecha De Creacion Miprograma.gambas 
 
Mmmmm.... Nunca lo he probado, pero.... mmmmm... como todo: ¿Para qué?
No creo que sea de mucha utilidad. Lo digo porque yo me he encontrado con tener que subir, por bugs de última hora, dos o más versiones de un mismo programa al repositorio el mismo día.
El número de versión cambiaría, la fecha no... entonces ¿Qué utilidad tiene?
En el "Acerca de" siempre muestro la versión, que es lo único fiable para identificar... eso: la versión que el usuario está ejecutando.

Aparte de eso ¿qué es Formatstrings? ¿Por qué no usas la función format? Algo así como

lblVersion.Text = "v" & Application.Version & " [" & format(dtFechaCompilacion,"dd-mm-yyyy hh:nn:ss") & "]"


Te ahorras mogollón de líneas.
 




===================
No podemos regresar
 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Fecha De Creacion Miprograma.gambas 
 
De todas formas, se me olvidaba darte la respuesta a lo que quieres:

Si ejecutas desde el ide:

  dtFechaCompilacion = Stat(Application.Path &/ Application.Name & ".gambas").LastModified


Es correcto, pero si ejecutas desde paquete instalado entonces tienes que eliminar lo de .gambas

  dtFechaCompilacion = Stat(Application.Path &/ Application.Name ).LastModified


Para que te funcione en ambos entornos:
try dtFechaCompilacion = Stat(Application.Path &/ Application.Name & ".gambas").LastModified
if Error then
  dtFechaCompilacion = Stat(Application.Path &/ Application.Name ).LastModified
endif
 

 




===================
No podemos regresar
 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Fecha De Creacion Miprograma.gambas 
 
Shordi:
Bueno, a los efectos del control de versiones, la marca de tiempo no tiene utilidad y es verdad que con la version vale para esto.
Pero al tener la fecha, esto permite dimensionar en la linea de tiempo (mentalmente digamos) para valorar el estado de "desatención" que tiene el programa y el usuario (o el cliente) puede saber cuando se "toco" el código por ultima vez. Si este se encuentra en medio de un proyecto en el cual se "reviso" el programa, tal vez le interese tener controlado este aspecto.
Pero, creo que, esto de poner la fecha, esta mas cerca de un capricho personal que de una utilidad practica.
He cambiado el código para usar "Format", ya que es verdad que es mas simple y usa menos lineas. Eso viene de cuando empece a aprender e iba creando funciones bajo demanda y desconocía estas que ya incorpora gambas.

Gracias por las respuestas, me han sido de utilidad.
Saludos.
 



 
tincho - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Fecha De Creacion Miprograma.gambas 
 
Recuerdo tambien este asunto:

http://foro.gambas-es.org/viewtopic.php?f=1&t=5093
 



 
vuott - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Incluir Comunidad gambas-es en gambas.sour... Capa Sobre Gambas-es 5 Lunes, 19 Julio 2010, 08:52 Ver último mensaje
Emmet
No hay nuevos mensajes Sobre La Creacion De Un Paquete De Instala... jousseph Instalación 10 Lunes, 27 Agosto 2012, 00:08 Ver último mensaje
jousseph
No hay nuevos mensajes Ayuda En Creacion De Clase Cronometro claudito General 1 Sabado, 22 Junio 2013, 23:36 Ver último mensaje
jsbsan
No hay nuevos mensajes Creacion De Usuarios En Linux tincho Shell Scripting 3 Miercoles, 28 Octobre 2015, 12:26 Ver último mensaje
Shell
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 0 invitados
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario



  

 

cron