• format y operaciones mate...
  Foro: General
  Último mensaje por: jguardon
  Hace 4 horas
  » Respuestas: 7
  » Vistas: 105
• Bits
  Foro: Aplicaciones/Fragmentos de Código
  Último mensaje por: tercoide
  Hace 6 horas
  » Respuestas: 5
  » Vistas: 71
• Tablas foráneas referenci...
  Foro: Bases de Datos
  Último mensaje por: tincho
  Ayer, 23:36
  » Respuestas: 3
  » Vistas: 55
• Usercontrol / Options - M...
  Foro: Controles/Librerías/Componentes
  Último mensaje por: tincho
  Ayer, 20:59
  » Respuestas: 4
  » Vistas: 93
• Comet-VideoConverter un F...
  Foro: Aplicaciones/Fragmentos de Código
  Último mensaje por: HenryGuzman
  13-08-2022, 18:11
  » Respuestas: 7
  » Vistas: 360

• Mensajes del foro:4,786
• Temas del foro:879
• Miembros:167
• Último miembro:alfonsoC3

Buenas!.

Repasando un tema que se comentó en su día sobre las ventajas de la programación orientada a objetos frente a la procedimental.
Y viendo de nuevo el vídeo de Julio, en el código hace referencia a otra posibilidad de declarar una propiedad.
Haciendo referencia a la ayuda de gambas.

A ver que os parece la forma de declarar la propiedad.

La propiedad base se declara como hemos estado haciendo hasta una versión de Gambas.
Y la propiedad altura se declara usando una nueva forma. No tiene código de getter y setter.
No se crean automáticamente.

Property base As Integer
Private hbase As Integer
 
Property altura As Integer Use haltura
 
Public Sub _new($ialtura As Integer, $ibase As Integer)
 
  haltura = $ialtura
  hbase = $ibase
 
End
 
Public Function Calculo() As Float
 
  Return (Me.base * Me.altura) / 2
 
End
 
Private Function base_Read() As Integer
 
  Return hbase  
 
End
 
Private Sub base_Write(Value As Integer)
 
  hbase = Value
 
End

Buenas!.

Tengo un árbol de directorios tal como este:
 

Cita:.
├── directorio1
│   └── archivo_dir1
├── directorio2
│   └── archivo_dir2
└── directorio3
    └── archivo_dir3

find . -path ./directorio2 -prune -o -type f

Cita: 
./directorio2
./directorio1/archivo_dir1
./directorio3/archivo_dir3

find .  \( -path ./directorio2 -o -path ./directorio3 \) -prune -o -type f

find . -path ./media -prune -o -type f -newermt $(date -I)

Buenas!.

Cuando queremos buscar los archivos que se han modificados, creados (estos dos atributos supongo que son los que son) del día de hoy.
Podemos usar la opción "-newermt" del comando find.
Y para evitar tener que teclear la fecha en formato iso 8601 (yyyy-mm-dd) podemos usar el comando "date"

Quedando así:

# Comando find. Buscar archivos por la fecha de hoy
 
find . -type f -newermt $(date -I)
 
# Comando find. Buscar archivos por una fecha
 
find . -type f -newermt 2022-03-16

# Buscar los archivos creados hoy y cambiar sus permisos.
 
find -type f -newermt $(date -I) -exec chmod 664 {} \;