Visual Basic - Ayuda con formato fecha

Life is soft - evento anual de software empresarial
 
Vista:

Ayuda con formato fecha

Publicado por Mauricio (13 intervenciones) el 08/05/2001 22:56:19
hola amigos como estan, si alguien puede ayudarme, necesito ingresar en un text una fecha (dd/mm/aaaa) con ese formato, como puedo hacerlo, de ante mano muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda con formato fecha

Publicado por isidroalmaguer (288 intervenciones) el 08/05/2001 23:06:48
hola...

porque no usas un maskeditbox con mask ="##/##/####"

te envio esta rutina
Function pubCapturaFecha(pmskFecha As MaskEdBox) As String
' devuelve una fecha en base a una captura 'visual'

' carga calendario sin mostrar
'cc0030.Hide

' inicializa calendario
If IsDate(pmskFecha) Then
' fecha proporcionada
cc0030.Calendar1.Value = pmskFecha
Else
' primer día del mes por default cuando
' no se ha capturado ninguna fecha en el maskedbox
cc0030.Calendar1.Value = Format(Now, "dd/mm/yyyy")
End If
cc0030.Show vbModal

If cc0030.pb_Aceptar = True Then
pubCapturaFecha = Format(cc0030.Calendar1.Value, "dd/mm/yyyy")
Else
pubCapturaFecha = pmskFecha
End If

End Function

asi la mandas llamar

Private Sub cmdF1_Click()
mebF1 = pubCapturaFecha(mebF1)
End Sub

esta en un comandbutton
mebf1 es un maskeditbox

espero te ayude

saludos
isidroalmaguer
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda con formato fecha

Publicado por Manuel Vazquez (25 intervenciones) el 09/05/2001 02:34:18
Mauricio existen variios tipos de formatos de Fecha, depende para que lo utilices

Si solo quieres que en ese texto te aparezca la fecha actual, puedes decirle en el FROM, Ejmp.

si tu texto se llama Fecha(0)
sintaxis es asi:
Fecha(0) = Date
y te toma del dia.

Pero si quieres darle formato a una fecha que te esta cargando en algun lado puedes hacerlo asi:

Format(Fecha(0), "DD-MM-YYYY")
Format(Fecha(0), "DD-MM-YYYY 00:00:00.000")

Intentalo de estas maneras.
Saludos

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar