hola, quisiera saber como poder comparar 2 fechas mi sistema es de un hotel....
por ejemplo en la base de datos tengo una fecha de entrada (Al hotel) y fecha de salida y tengo un timer (temporizador) donde cada 5 minutos hago una consulta para saber si se llego la hora en que alguno de los cuartos ocupados debe desocuparse y emitir un mensaje.
de que tipo debo declarar los campos en la base de datos? ya sea datetime, no se si con ello traiga algunas complicaciones extras con la confirguracion Regional, puesto qe vivo en mexico, por ahi la respuesta es de otro pais...lo pongo a consideracion.
y de que tipo debo declarar la fecha a comparar ? date.now?
algun ejemplo??
pongo a como lo hago en estos momentos...se aceptan burlas...jejeje
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim f1 As Date = fechahora.Time 'fechahora es un control q me da
'la fecha masomenos asi "#30/03/2006 11:50:00 PM#" en este formato
Try
Dim myCommand As New SqlCommand("SELECT * from ResActuales where FechaSalida >='" & f1.Now & "'", conn)
conn.Close()
conn.Open()
Dim myReader As SqlDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConne ction)
Dim sql As New SqlCommand
While myReader.Read()
Dim id, No, FE, FS As String
id = myReader.Item("IdCliente").ToString
No = myReader.Item("Nombre").ToString
FE = myReader.Item("FechaEntrada").ToString
FS = myReader.Item("FechaSalida").ToString
Dim mensaje As String
mensaje = "El cliente: " + No + " " + "tiene el tiempo cumplido de su reservacion. desea desocuparla ahora mismo ?"
If MsgBox(mensaje, MsgBoxStyle.Information).Yes Then
sqlstring = "Delete from ResActuales Where NoCuarto='" & Me.Name.ToString.Trim & "'"
comando_sql()
Me.Label2.BackColor = Color.SteelBlue
Me.Label2.Text = "Disponible"
Me.PictureEdit1.ToolTip = Nothing
Else
MsgBox("Tons necesita agregar un dia mas al menos")
Dim xx As New Apartado
xx.IdCliente.Text = id.Trim
xx.Nombre.Text = No.Trim
xx.Concepto.Text = "Hospedaje"
xx.Precio.Focus()
xx.ShowDialog()
End If
End While
myReader.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
los campos en la base de datos los tengo declarados como datetime por lo que me esta marcando errores por todos lado
.. de antemano Gracias.