como colocar fecha del sistema en un formulario de vb

[elbano66]

hola veran ando metido en un proyecto de una planillita de evaluacion y en esa planilla necesito poner la fecha actual del sistema y es informacion enviarla a una base de datos, alguien sabra??

[juanutcm]

Hola lo que puedes hacer es:

Dim MiFecha
MiFecha = Date ' MiFecha contiene la fecha del sistema actual

...y ya la variable puedes pasarla a la base de datos.

[elbano66]

coye gracias hermano entiendo esa parte y si ya tengo la base de dato creada en access como lo seria en todo caso, esa fecha se mostraria en el formulario pero con que control con untexto una etiqueta o qu??

[juanutcm]

Iniciado por elbano66

coye gracias hermano entiendo esa parte y si ya tengo la base de dato creada en access como lo seria en todo caso, esa fecha se mostraria en el formulario pero con que control con untexto una etiqueta o qu??

Si lo que quieres es mostrar una fecha que ya tienes guardada en tu base de datos lo que puedes hacer es asignarla a un control de fecha como el dtPicker:

dtpFecha = FechaGuardadaEnBaseDeDatos

o lo puedes hacer en un textBox

txtFecha.Text = FechaGuardadaEnBaseDeDatos

Suerte...

[elbano66]

Perdonen por no explicarme bien que pena, Finjence debo hacer una planilla de evaluacion que contengan la fecha y hora en que un analista va hacer la evaluacion, una vez culminada la evaluacion y el analista le de enviar ea fecha y esa hora debe cargrce conjuntamente con otros datos en una base de datos bien sea excel o access.

[boluart]

y donde esta el problema???...
como lo dijo juanutcm lo puedes hacer asi:

Código:

 
MiFecha = Date

claro que esto justo en el monento que le de enviar (Lo mas seguro es que estes usando un Command) asi que en el evento click de ese Command capturas la fecha

[juanutcm]

Iniciado por elbano66

Perdonen por no explicarme bien que pena, Finjence debo hacer una planilla de evaluacion que contengan la fecha y hora en que un analista va hacer la evaluacion, una vez culminada la evaluacion y el analista le de enviar ea fecha y esa hora debe cargrce conjuntamente con otros datos en una base de datos bien sea excel o access.

esta bien a todos nospasa hay algo que no entiendo la fecha y hora es de cuando se carga el formulario o cuando ya se va a enviar la base de datos?

De cualquier modo pongo ambos posibles casos


Dim MiFecha
Dim MiHora

Private sub Form_Load()
MiFecha=Date
MiHora=Time

End Sub

[elbano66]

exacto lo que deseao es que la fecha y la hora se muestre en el formulario y que esa fecha y esa hora sea del sistema y que una vez que yo le de a un boton guardar esa fecha y ea hora se cacture y sea emviad a una base de datos que en todo caso es un recipiente de datos.

[juanutcm]

ok te paso como podria ser:

Private sub Form_Load()
Dim MiFecha
Dim MiHora

MiFecha=Date
MiHora=Time

'Aqui lo puedes hacer de dos formas
'Con etiquetas

lblFecha.Caption=MiFecha
lblHora.Caption=MiHora

'O con TextBox

txtFecha.Text=MiFecha
txtHora.Text=MiHora
End Sub

'Ahora en el evento click del boton
Private Sub Command1_Click()
'Aqui tambien tienes dos formas depasarlo a la base de datos puedes hacer que la fecha y la hora se guarden en un campo distinto osea cada dato es un campo o bien en un solo campo lo puedes hacer todo abajo se ejemplifica mejor

'Aqui se hace cada dato por separado
CampoBaseDatosFecha=txtFecha.Text'O la etiqueta como lo prefieras
CampoBaseDatosHora=txtFecha.Text

'Aqui se hace junto todo
CampoBaseDatosFechaHora=txtFecha.Text & " " &txtHora.Text
End Sub

Bien espero te ayude... suerte

[elbano66]

Coye muchas gracias hermano si me funciono de verdad muchas gracias

[oky_memo]

Oye será que me puedes hacer un favor con ese código

Tengo el mismo problema estoy haciendo una pagina de envió de encomiendas de la ciudad A a la ciudad B pero quiero colocar que cuando la ciudad B reciba la encomienda registre la fecha y hora del PC en la base de datos mediante un botón y la envié a un campo especifico (fecha_recepcion) en el registro de la base de datos ya creada en la ciudad A

Le doy vueltas y no doy con el chiste a ver si ustedes me pueden ayudar

muchas gracias

[juanutcm]

hola oky_memo doy por hecho que la solucion la tienes instalada en la ciudad B y que tanto la ciudad A y B trabajan con la misma base de datos... bien lo que puedes primero de todo es que la ciudad A genere un numero de folio o algun numero que identifique la encomienda dirigida a la ciudad B para que asi la ciudad B pueda modificar en base a ese numero que identifica la encomienda.... bien cuando la ciudad B vea los datos correspondientes a la encomienda entonces viene aqui tu boton de Fecha y Hora de recepcion.... ahora esto ultimo lo puedes hacer de la siguiente manera...


Private sub cmdFechaRecepcion_click()
'Obtener la fecha de la pc
dim MiFechaRecepcion =Date
'Obtener el numero de folio de la encomienda, esto depende de donde hayas mostrado tus datos de la encomienda
dim folio = txtFolioEncomienda

'Aqui tienes que generar una consulta para guardar la fecha de recepcion basandote en el numero de folio o lo que sea... esta linea te la pongo como pseudocodigo para que tu traduzcas tu consulta

campoBaseDatos <- MiFechaRecepcion DONDE campoBaseDatosFolioEncomienda = folio

End Sub

espero te sirva ... si no es asi... mandanos tu codigo para poder ayudarte de una mejor manera...saludos

[TheChobe]

Iniciado por juanutcm

ok te paso como podria ser:

Private sub Form_Load()
Dim MiFecha
Dim MiHora

MiFecha=Date
MiHora=Time

'Aqui lo puedes hacer de dos formas
'Con etiquetas

lblFecha.Caption=MiFecha
lblHora.Caption=MiHora

'O con TextBox

txtFecha.Text=MiFecha
txtHora.Text=MiHora
End Sub

'Ahora en el evento click del boton
Private Sub Command1_Click()
'Aqui tambien tienes dos formas depasarlo a la base de datos puedes hacer que la fecha y la hora se guarden en un campo distinto osea cada dato es un campo o bien en un solo campo lo puedes hacer todo abajo se ejemplifica mejor

'Aqui se hace cada dato por separado
CampoBaseDatosFecha=txtFecha.Text'O la etiqueta como lo prefieras
CampoBaseDatosHora=txtFecha.Text

'Aqui se hace junto todo
CampoBaseDatosFechaHora=txtFecha.Text & " " &txtHora.Text
End Sub

Bien espero te ayude... suerte

[TheChobe]

amigos tengo un problema: necesito crear una base de datos con acces que registre la hora y la fecha de activación de un sensor de movimiento, no se como hacerla podrian ayudarme?