Asignar fecha a Date & Time Picker

23/03/2006 - 17:10 por ADumith | Informe spam
Saludos amigos;

Me gustaría consultarles algo a ver como podrían ayudarme a resolver estre
problema.

Tengo una hoja que tiene incrustada un Date & time Picker Control el cual
utilizo para asignar una fecha a una celda, para ello tengo el siguiente
código:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With DTPicker1
.Visible = Not Intersect(Target, Range("B4:B4")) Is Nothing
.Top = Target.Top - 1: .Left = Target.Left
End With
End Sub
Private Sub DTPicker1_Change()
ActiveCell = CDate(DTPicker1)
End Sub

Ahora bien necesito que el control sugiera al usuario una fecha específia,
es decir, le sugiera al usuario el primer día de cada semana (lunes).
Utilizando la formula eso lo obtengo a traves de:
=HOY()-(DIASEM(HOY();2)-1)

Como transformo esa formula a Código VB y asignarle ese valor al control
como fecha seleccionada?

Gracias mil
 

Leer las respuestas

#1 KL
25/03/2006 - 19:06 | Informe spam
Hola ADumith,

=HOY()-(DIASEM(HOY();2)-1)
Como transformo esa formula a Código VB y asignarle ese valor al control
como fecha seleccionada?



Que tal esto:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With DTPicker1
.Visible = Not Intersect(Target, Range("B4:B4")) Is Nothing
.Top = Target.Top - 1: .Left = Target.Left
.Value = Date - (Weekday(Date, 2) - 1)
End With
End Sub
Private Sub DTPicker1_Change()
ActiveCell = CDate(DTPicker1)
End Sub

Saludos,
KL

Preguntas similares