Ultimo dia Viernes de cada mes
Alguien conoce alguna funcion o consulta SQL que me regrese la fecha que le corresponde ya sea al Primer o Ultimo Viernes de cada mes utilizando Dephi 5 y SQL Server 2000?
Saludos desde Mexicali, B.C., Mexico. |
En delphi sip, en sql ya es más dificil, no sé si sql server permite la creación de UDFs (funciones definidas por el usuario) si es así, puedes hacer una:
el 1 indica que en la primera semana del mes el d indica el día de la semana (lunes, martes, miercoles, etc) Edito: esto pertenece a Delphi 6 (no sé si está disponible en delphi 5, consulta la ayuda) Saludos |
Gracias
Agradezco tu ayuda, pero lamentablemente esa funcion no esta disponible para Delphi 5 :(
|
No sé si incumplo alguna norma del foro o licencia de Borland, si algún moderador lo sabe, que no dude en eliminar este mensaje e informarme de ello.
El código de la vcl es:
Quizás esta función la tenga ya:
Saludos |
Gracias por publicar el codigo
Gracias por compartir el codigo y aprovechando tu buena disposicion, compile el codigo que me enviaste, pero el compilador de delphi 5 me indica error de declaracion en las siguientes funciones:
YearOf(Fecha) MonthOf(Fecha) SInvalidDayOfWeekInMonth, [AYear, AMonth, ANthDayOfWeek, DayOfWeek]); StartOfAMonth(AYear, AMonth) TryEncodeDate(AYear, AMonth, LDay, AValue) me imagino que estas funciones ya estan declaradas en delphi 6, te agradecere si me envias su codigo. Saludos. |
Edito el mensaje para que quede todo, es una simple constante declarada en otra unidad.
Añade "uses Dateutils", el resto de funciones si deben estar en delphi 5. He mirado pero son llamadas de unas funciones a otras, bastante lioso, es preferible que antes mires si ya las tienes disponibles. Saludos |
Marca error en DateUtils
Añadi al Uses el DateUtils, pero caray, que lastima, creo que esa libreria es de Delphi 6, me marca "File no Found: DateUtils.dcu", bueno gracias por tu ayuda, intentare hacerlo creando alguna rutina.
|
La franja horaria es GMT +2. Ahora son las 23:38:59. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi