Luiz Arruda (ICO) Posted October 10, 2008 Report Share Posted October 10, 2008 Pessoal, como faço para pegar o primeiro dia do mes o Day(date()) não serve.. é o seguinte.. [/code] Data Inicial :=("01/10/2008") Data final :=("Data Atual") // Date() [/code] O dia 01/10/2008 já entra na dialog preenchido, mas se eu quiser alterar para 01/01/2007 poderei digitar normalmente o Campo Data p/ emitir um relatório... desde já obrigado.. Agora deixa eu ir lá pro buteco que ninguém é de ferro... O Horário Politico é o momento onde todos os Ladrões entram em CADEIA Nacionalid=blue> Luiz Arruda FWH24-WS-xHB 9950-xDev ico.corumba@gmail.com Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted October 10, 2008 Author Report Share Posted October 10, 2008 Pessoal, como faço para pegar o primeiro dia do mes o Day(date()) não serve.. é o seguinte.. [/code] Data Inicial :=("01/10/2008") Data final :=("Data Atual") // Date() [/code] O dia 01/10/2008 já entra na dialog preenchido, mas se eu quiser alterar para 01/01/2007 poderei digitar normalmente o Campo Data p/ emitir um relatório... desde já obrigado.. Agora deixa eu ir lá pro buteco que ninguém é de ferro... O Horário Politico é o momento onde todos os Ladrões entram em CADEIA Nacionalid=blue> Luiz Arruda FWH24-WS-xHB 9950-xDev ico.corumba@gmail.com Quote Link to comment Share on other sites More sharing options...
marcio1361303176 Posted October 10, 2008 Report Share Posted October 10, 2008 veja se isso te ajuda amigo ************************************************************************************************ ** final de mes *********************************** FUNCTION FIMMES(DATA1) ano= YEAR(DATA1) mes= MONTH(DATA1)+1 DIA= "01" IF MES=13 ANO=ANO+1 MES=1 ENDIF ANO=STR(ANO-2000,4,0) MES=STR(MES,2) FINAL=CTOD((DIA+"/"+MES+"/"+ANO)) RETURN (FINAL-1) ****************************************************** * inicio do mes FUNCTION INIMES(data1) RETURN (data1 - DAY(data1 )+1) ********************************************** * inicio da semana *********************************************** FUNCTION INISEM(data1) IF DOW(data1 )=1 && SE FOR DOMINGO SUBTRAI 6 DIAS final=data1 -6 ELSE final= data1 -(DOW(data1 )-2) ENDIF RETURN (final) **************************************************** * fim da semana ***************************************************** FUNCTION FIMSEM(data1) IF DOW(data1 )=2 final = data1 +4 ELSE final=data1 + (6-DOW(data1 )) ENDIF RETURN (final) informaisvrb@gmail.com FWHX 2.6+ SQLLIB + xDev + rpv + MYSQL 5.0 / fwh808+sqllib(atual) Msn.: mastermarvrb@msn.com Quote Link to comment Share on other sites More sharing options...
vailtom Posted October 10, 2008 Report Share Posted October 10, 2008 id=code>id=code> Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted October 10, 2008 Author Report Share Posted October 10, 2008 Valeu isso resolveu o Problema id=code>id=code>Obrigado.. O Horário Politico é o momento onde todos os Ladrões entram em CADEIA Nacionalid=blue> Luiz Arruda FWH24-WS-xHB 9950-xDev ico.corumba@gmail.com Quote Link to comment Share on other sites More sharing options...
zekasan Posted October 10, 2008 Report Share Posted October 10, 2008 você pode usar também a funçao do (x)harbour: BOM ([]) -> dDateBeginOfMonth retorna o primeiro dia do mes ? BOM(date()) 01/10/2008 obs.: anexe a biblioteca CT.LIB do (x)harbour FWH 8.05 - xHarbour - xDev - VLib Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted October 10, 2008 Author Report Share Posted October 10, 2008 citação:você pode usar também a funçao do (x)harbour: BOM ([]) -> dDateBeginOfMonth retorna o primeiro dia do mes ? BOM(date()) 01/10/2008 obs.: anexe a biblioteca CT.LIB do (x)harbour FWH 8.05 - xHarbour - xDev - VLib id=quote>id=quote>Valeu pela Dica.. eu já havia tentando isso porem sem sucesso.. pois não tinha incorporado a CT.LIB, e a opção acima caiu certinho p/ o que eu queria, mas na Corinthians-Feira no escritorio vou testar esta sua dica, nunca é demais aprender algo novo.. Abraços.. O Horário Politico é o momento onde todos os Ladrões entram em CADEIA Nacionalid=blue> Luiz Arruda FWH24-WS-xHB 9950-xDev ico.corumba@gmail.com Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.