Como programar dia semana en Visualchart

[soyjuma]

Muy buenas a todos los foreros.
Estaba estudiando una problemática y me preguntaba si hay posibilidad de programar, para un sistema automático, el día de la semana en el que estamos, por ejemplo para no operar determinado día (viernes). Estoy utilizando a día de hoy Visualchart.
Gracias por vuestra inestimable ayuda.
Un saludo
Soyjuma

[smassax]

si,
por ejemplo si pones

if Weekday(fecha) = vbFriday then

estas preguntando si la fecha es viernes

saludos

[soyjuma]

Gracias smassax por la pronta respuesta. Voy a probar si me sale.
Eso supongo sera para visualbasic y yo no sé. Probaré hacerlo en la plataforma visual (diagrama de flujos) que lleva incorporado VC.
Un saludo
Soyjuma

[Galax]

Creo que el indicador que pongo aquí te servirá.

ten en cuenta que el domingo=1 Lunes=2 etc..

suerte!

Galax!

[soyjuma]

Gracias Galax. Lo pruebo
Un saludo
Soyjuma

[soyjuma]

Galax lo acabo de probar y cumple al 100% con mis espectativas. Mil gracias.
Un saludo
Soyjuma

[Podemos?]

Hoal soyjuma. ¿Cómo lo has puesto para que te funcione?. He hecho unas cuantas pruebas y no consigo hacerlo para que sólo me compute el sistema un día determinado, en este caso el viernes. Una de las muchas pruebas es la que pongo abajo. ¿Dónde está el error?

Dim mydate As integer 'vbfriday

If weekday(mydate) = vbFriday Then

[soyjuma]

Hola pm.
Decirte que lo tengo funcionando y programado en PDV. Pero copio y pego ahora aqui lo que extraigo de la version de VB, esperando sea de tu utilidad. Esto es lo que sale en el codigo y que interpreto usa para el tema de dias de la semana. Si no te queda claro, por lo menos para el pdv si sirve el fichero de más arriba. He eliminado cosas de mi propio sistema logicamente.

'¡¡ Parameters
'Parameters !!
'¡¡ PDV parameters
'PDV parameters !!
'¡¡ PDV declarations
Dim Auxdate As Double 'Double
Dim Day As Double 'Double
Dim Month As Double 'Double
Dim Year As Double 'Double
Dim Dateformat As String 'String
Dim Diasemana As Double 'Double
'PDV declarations !!
Option Explicit
Public APP As SysUserApp
Implements System
Public Sub System_OnInitCalculate()
With APP
'¡¡ PDV initializations
Auxdate = 0
Day = 0
Month = 0
Year = 0
Dateformat = 0
Diasemana = 0
'PDV initializations !!
End With
End Sub
Public Sub System_OnCalculateBar(ByVal Bar As Long)
With APP
'¡¡ PDV code
Auxdate = .Date
Day = Auxdate Mod 100
Auxdate = (Auxdate - Day) / 100
Month = Auxdate Mod 100
Auxdate = (Auxdate - Month) / 100
Year = Auxdate
Dateformat = ""
Dateformat = Dateformat & Str(Day) & "/" & Str(Month) & "/" & Str(Year)
If .Time < Hora_tope_inicial Then
If (Weekday(Dateformat) <> 6 And ........
End If
Else
............
If (And Weekday(Dateformat) <>tratos
End If
....................
If Weekday(Dateformat) = 6 Then
If .GetMarketPosition(0) <> 0.............
End If
End If
'¡¡ Parameters initialization
'Parameters initialization !!
End Sub
..................

Un saludo
Soyjuma

[Podemos?]

Lo estoy intentando en Visual no en PDV, pero sigo sin conseguirlo. Gracias de todos modos.