Cambiar formato fecha en CHANGELOG

En el archivo changelog de nuestra aplicación la fecha tiene este formato:

* Tue Jul 25 2017 postapase <uno.cero@live.com> 0.6.320

* Mon Jul 17 2017 postapase <uno.cero@live.com> 0.6.319

* Fri Jul 07 2017 postapase <uno.cero@live.com> 0.6.318

* Sun Jun 11 2017 postapase <uno.cero@live.com> 0.6.3

* Tue Jun 11 2017 postapase <uno.cero@live.com> 0.6.3

en mi caso en VisorRV1960 muestro el archivo changelog para que la gente vea la historia o evolución de la aplicación, pero la fecha en ingles no pega y quería dejarla en español y con otro formato, específicamente con este
( "dddd dd mmmm yyyy" = jueves 28 mayo 2015)

Para eso cree un formulario que solo ejecuta esa tarea.

El resultado queda así:

* martes 25 julio 2017 postapase <uno.cero@live.com> 0.6.320

* lunes 17 julio 2017 postapase <uno.cero@live.com> 0.6.319

* viernes 07 julio 2017 postapase <uno.cero@live.com> 0.6.318

* domingo 11 junio 2017 postapase <uno.cero@live.com> 0.6.3

* domingo 11 junio 2017 postapase <uno.cero@live.com> 0.6.3

Aquí les dejo el código para que puedan usarlo y modificarlo a gusto teniendo ya el 70% del trabajo hecho jaja:

Ejemplo de DFree

En mi programa Taller2015 uso un pendrive viejo de 512 megas jajaja, si si es reviejo pero lo uso para los respaldos automáticos del programa y me di cuenta de que era necesario saber cuanto espacio libre quedaba.
Y buscando en gambas encontré el comando DFree perteneciente al grupo Funciones para Archivos y Carpetas , aquí les dejo un ejemplo muy parecido de como lo utilice.

' gambas class file

'Usando DFree by postapase

Public Sub Form_Open()

Me.Title = Application.Name
TextBox1.Text = User.Home
EspacioDisponible(User.Home)

End

Public Sub Button1_Click()

Dialog.Path = User.Home 'Asigna la ruta predeterminada de dialog cuando se abre)

If Dialog.SelectDirectory() Then Return ' si no se selecciona un directorio dialog devuelve true y retorna
' no haciendo nada y no ejecutando las lineas siguientes. (

TextBox1.Text = Dialog.Path 'pega la ruta elegida en textbox1

EspacioDisponible(Dialog.Path) ' llama a la subrutina EspacioDisponible

End


Public Sub EspacioDisponible(dir As String)

TextLabel1.Text = "Espacio disponible: <b>" & Format$(CString(Dfree(dir) / 1000000), "#.#") & " MB</b>"

'dfree retorna un integer en bytes y para saber los MegaBytes dividimos en 1000000
'cstring convierte el intenger en string para poder concatenarlo con el texto y no de error
'format$ le damos un forma de visualizar el resultado a nuestro gusto en este caso yo elegi "#.#"
'que mostrara todos los numeros a la izquierda y solo una cifra a la derecha

End

Descargar código fuente:
https://www.dropbox.com/s/duqudql1xh6da8m/Usando-DFree-0.0.1.tar.gz?dl=0

Asi se ve en el programa Taller2015

Format

Aprendiendo un poco sobre el comando Format y las Constantes predefinidas.

' gambas class file

'by postapase

Public Sub Form_Open()
Me.Center 'centra el formulario
DateBox1.Value = Date 'se coloca la fecha del sistema del dia actual
'a la caja de texto del DateBox1

TextArea1.Text &= Format(DateBox1.Value, gb.LongDate) & gb.NewLine
End

Public Sub Button1_Click()
TextArea1.Clear ' borra todo el TextArea1
ComboBox1.Text = "" ' borra el cuadro de texto del ComboBox1
ComboBox1.SetFocus 'da el foco al ComboBox1 y queda el cursor parpadeando
End

Public Sub RadioButton1_Click()
'& concatena cadenas o string, equivalente a:
' TextArea1.Text = TextArea1.Text & Format(DateBox1.Value, gb.LongDate) & gb.NewLine
'gb.newline equivalente a salto de linea o "\n"
'gb.longdate equivalente a (dddd d mmmm yyy)-(domingo 16 noviembre 2014)
'format como lo dice el nombre del propio comando, da formato en este caso a la fecha
'tomando la fecha de DateBox1.value y dandole el formato elegido en este caso
'con la Constante predefinida de gb.LongDate, se puede optar por otras constantes
'como gb.MediumDate, gb.ShortDate o bien 'definirlo de forma personalizada
' por ejemplo con: "dddd, mmm yyyy" en vez de gb.LongDate
TextArea1.Text &= Format(DateBox1.Value, gb.LongDate) & gb.NewLine

End

Public Sub RadioButton2_Click()
TextArea1.Text &= Format(DateBox1.Value, gb.MediumDate) & gb.NewLine
End

Public Sub RadioButton3_Click()
TextArea1.Text &= Format(DateBox1.Value, gb.ShortDate) & gb.NewLine
End

Public Sub Button2_Click()
TextArea1.Text &= Format(DateBox1.Value, ComboBox1.Text) & gb.NewLine
ComboBox1.Add(ComboBox1.Text)
End

Public Sub Button3_Click()
ComboBox1.Clear
ComboBox1.Text = ""
ComboBox1.SetFocus
End

Código fuente: Fecha-0.0.1.tar.gz