Haz una pregunta
  Foros de Electrónica » Diseño digital » Interfaces y Programación
Foros Registrarse ¿Olvidaste tu contraseña?

Temas similares

04/08/2014 #1

Avatar de Randy

Identificacion de horario (dia de la semana/hora)
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.
04/08/2014 #2
Moderador general

Avatar de DOSMETROS

No hay forma de acceder al reloj y fecha del propio PC ?
05/08/2014 #3

Avatar de 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
05/08/2014 #4

Avatar de papirrin

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

---------- Actualizado después de 5 minutos ----------

O siiiii es weekday(date())=5
05/08/2014 #5


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
06/08/2014 #6

Avatar de 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é.
Código:
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.
06/08/2014 #7

Avatar de 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.
Respuesta
¿Tienes una mejor respuesta a este tema? ¿Quieres hacerle una pregunta a nuestra comunidad y sus expertos? Registrate

Buscar más temas sobre:
Lupa Interfaces y Programación

Lenguajes de programación, gestión y manejo de puertos

Cerrar
Foros de Electrónica » Diseño digital » Interfaces y Programación

Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Search Engine Optimization by vBSEO ©2011, Crawlability, Inc.