DTPicker1 marque fechas

[carnero]

holas,
es posible que un DTPicker marque las fechas que contiene la base de datos?


por ejemplo con plomo, ya que rojo es la fecha actual
grax

[yera2002]

Hola Carnero:

No entendi bien tu pregunta, te refieres a que aparezca todo el calendario y te muestre en color negro las fechas de la base de datos????

[carnero]

claro o en cualquier color, pero que tengan alguna marca las fechas que estan ingresadas en la base de datos

[carnero]

Se puede o no??

[erbuson]

Hola, hasta donde yo se no es posible ya que yo tenía una necesidad similar en una gestión de visitas y al final tuve que 'fabricarme' un simulacro de calendario todo de modo manual.

Saludos

[carnero]

"simulacro de calendario todo de modo manual." como seria eso¿

[erbuson]

Hombre, pues hacer un form con un calendario, formar el calendario con cada mes, ponerle botones de avance, retroceso, etc, todo, todo, o sea que al final de simulacro no tiene nada es un calendario lo que ocurre que adaptado integramente a una aplicación.

El problema para pasar el código aqui es que está tan integrado con la aplicación a la que iba destinado que indivisualmente no sirve de nada.

Saludos

[erbuson]

Hola Carnero, esto podría ser una idea (mejorable por supuesto) si te convence.

Necesitas tan sólo un MsFlexGrid llamado Grid o cambia el nombre donde te convenga, por lo demás creo que el código es suficientemente explicativo con los comentarios que le pongo.

Código vb:

Option Explicit
 
Private Sub Form_Load()
  ' Dimensionamos el Grid/Calendario
  Dim Dia As Integer
  Grid.Cols = 32             ' Porque el mayor día del mes es 31
  Grid.Rows = 1              ' Dejamos sólo la linea de Cabeceras
  Grid.ColWidth(0) = 800     ' Ancho de la Columna 0 yyyy/mm
  For Dia = 1 To 31          ' Ponemos número de día como título
    Grid.TextMatrix(0, Dia) = Dia
    Grid.ColWidth(Dia) = Grid.RowHeight(0)
  Next
End Sub
 
Private Sub CargarCalendario()
  ' Funcion que carga las fechas en el Grid/Calendario
  ' Evidentemente esta función debes codificarla según tus ficheros
  Dim Registro As Single
  Grid.Redraw = False           ' Evitamos el parpadeo del Grid
  Do
    ' Las siguientes lineas están como comentarios porque dependen del aplicativo
    ' Registro = Registro + 1
    ' FicheroDIARIO Registro
    ' If Registro = -1 Then Exit Do
    ' If Not RegistroSuprimido("DIARIO") Then GridAdd CDate(FechaGMD4(RegistroDiario.Fecha))
  Loop
  Grid.Col = 0                  ' Columna 0 yyyy/mm
  Grid.Sort = 1                 ' Ordenamos por Año/Mes
  Grid.Redraw = True            ' Redibujamos el Grid
End Sub
 
Private Sub GridAdd(Fecha As Date)
  ' Marcamos el Grid/Calendario segñun la fecha recibida
  Dim Fila As Single, AñoMes As String, Dia As Integer
  AñoMes = Format(Fecha, " yyyy/mm")    ' Ponemos un espacio en blanco delante centrar y forzar alfanumérico
  Dia = Day(Fecha)
  For Fila = 1 To Grid.Rows - 1
    ' Si Año/Mes está ya creado, salimos a PonerDia
    If Grid.TextMatrix(Fila, 0) = AñoMes Then GoTo PonerDia
  Next
  ' Si Año/Mes no es´aba, añadimos una Fila y lo ponemos ahí
  Grid.Rows = Fila + 1
  Grid.TextMatrix(Fila, 0) = AñoMes
PonerDia:
  ' Si la casilla del día no está marcada, la marcamos
  If Grid.TextMatrix(Fila, Dia) = "" Then
    Grid.Col = Dia
    Grid.Row = Fila
    Grid.CellFontName = "Wingdings 2"
    Grid.CellFontSize = 12
    Grid.Text = "P"
  End If
End Sub
 

De todos modos, si te convence, cualquier duda comentas.

Posibles mejoras, que en vez de la marca de Visto, indique cuantos registros hay en cada fecha, colores segun número de registros, etc.

Saludos