Identificacion de horario (dia de la semana/hora)

[Randy]

Hola que tal,

soy docente y afortunadamente mis asignaturas llevan una parte practica lo cual hace que tengamos que ingresar a un laboratoria a realizar experimentos.

Actualmente se nos pide registrar el numero de alumnos que ingresan a la clase, para ello hemos (junto con los demas docentes) hacer un contador de personas

Consistira en una caja con 2 botones, uno para hombre y otro para mujer estara conectada a un PC por USB, y bueno, solo se usar dicha conexion con Visual Basic 6.0

para no hacerselas mas larga....


Necesito hacer que el programa sepa que es jueves (todos los jueves)

de lo contrario tendria que "meter" al programa las fechas de las sesiones una por una y si lograrga hacer que el programa sepa que es Jueves( por decir un dia en especifico) entonces practicamente solo introducirla la fecha con el tiempo de la sesion

Ejemplo

Jueves 10:00 am - 12:00 pm

para asi saber cuantos alumnos ingresaron a la clase,

el registro ya lo tengo hecho

He investigado y existen muchas funciones que manejan cuestiones de tiempo, pero aun no encuentro una que haga eso

que reconsca solo los jueves.

Espero haberme explicado.

 

[DOSMETROS]

No hay forma de acceder al reloj y fecha del propio PC ?

 

[miguelus]

Buenos días.

Hace mucho que no utilizo VB6, de hecho, no lo tengo instalado...

Había varias funciones para el manejo de fechas...

WeekDay Devuelve el día de la semana.

WeekDayName Obtiene el nombre de un día de la semana.

Intentaré mirar por si encuentro alguna aclaración, si tienes VB6, lo puedes consultar en la ayuda.

Hay una forma de hacerlo a "Pelo"...

Elijes una fecha que fue jueves, p.e. 1 de enero de 2009.

Cuentas los días que han pasado hasta la fecha actual, tienes que tener en cuenta los años Bisiestos.

Haces una división entre siete, si el resultado es múltiplo de siete será jueves.


Sal U2

 

[papirrin]

Segun recuerdo existe una funcion DOW(date()) day of week
Osea:
if dow(fecha)=4 then
End if



O siiiii es weekday(date())=5

 

[willyfv]

Private Sub Form_Load()

Text1.Text = Format(Date, "dddd")
If Text1.Text = "Martes" Then ' nota aqui cambiar el dia de la semana
MsgBox "SI ES MARTES"
End If

 

[Randy]

Muchas gracias a todos por sus respuestas.
Usé la forma de willi, no sabia que se podía hacer eso.

Se toma unicamente el día con format, de ahí lo convertí a texto y de ahí se comparan las cadenas.

Aquí está el código que usé.

Label1.Caption = Format(Calendar1.Value, "dddd")  ' 

' despues comparo lo que hay en Label1.caption

Select Case Label1.Caption

Case "lunes"

Label2.Caption = "Sergio A"

Case "martes"

Label2.Caption = "Eduardo "

Case "miércoles"

Label2.Caption = "Esteban"

Case "jueves"

Label2.Caption = "C. Mariel "

Case "viernes"

Label2.Caption = "Randy J. "

Case "sábado"

Label2.Caption = " "

Case "domingo"

Label2.Caption = " "

End Select

Por cierto, usé el calendario a pesar de que muchos dicen que no es la mejor opción.

Saludos y de nuevo gracias por las respuestas.

 

[papirrin]

use el calendario a pesar de que muchos dicen que no es la mejor opcion

pues si funciona no hay problema, lo peor que puede pasar es que genere un codigo maquina mas grande, pero en estos tiempos con los megadiscos duros y mega procesadores, es irrelevante.