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