Registro De Hotel VB6

[R3Z]

Tengo una duda

Yo Tengo Un Combo Box Con Lo Siguiente

Código (vb) [Seleccionar] Expandir

If Combo1.Text = "Sencilla" Then
precio = 5500

ElseIf Combo1.Text = "Doble" Then
precio = 4200

ElseIf Combo1.Text = "Triple" Then
precio = 3300

 Y Un Label Que dice reservaciones  con dos DTPickers   ahora yo quiero saber como hago lo de reservaciones  ejemplo si yo me registro el 6/8/15 y pienso quedarme  hasta  11/8/15  yo quiero que  suma los dias que yo me eh quedado  segun el tipo de habitacion lo cual son(Sencilla,Doble,Triple)

creo que es dtpicker1.value=


ejemplo si yo elijo Sencilla ($5,500) y pienso quedarme dos dias  quiero que suma los dias   primerdia: $5,500  segundoDia:$5,500    =        $11,000 * habitantes

[pkj]

Esta vez vas a tener que pensar mas
Cuando entras al hotel guardas la fecha en una variable mirando el valor del DTPcker ese.
Cuando sales comparas la fecha actual con la guardada.
Para compararla te puede servir el comando datediff. Investiga un poco. Usa "San Google"

Saludos

[R3Z]

Gracias por contestar

llevo casi 45 min en esto y todavia no se que estoy haciendo

Dim Date1 as interger
dim date 2 as interger

Modificando Un Poco Mas: DateDiff("d", #1/1/2015#, #1/12/2015#)

Actualizando Mas: Dias = DateDiff(dateinterval.Day, DTPicker1.Value, DTPicker2.Value, Now.Date) & "dias"

[pkj]

Pues es bastante simple, pero tienes que usar variables de tipo Date o al menos de tipo String para guardar el valor.

Código (vb) [Seleccionar] Expandir


 Dim Dia1 As String
 Dia1 = "06/06/2015" ' fecha de entrada guardada
 MsgBox DateDiff("d", CDate(Dia1), DTPicker1.Value)  ' diferencia con la fecha actual




Saludos

[R3Z]

Gracias Por Tu Ayuda!