Bruno Oliveira
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 05/08/2008 08:01 hs
Olá amigos. Será que alguem poderia me ajudar a desenvolver uma rotina para que a licença do meu sistema em VB6 expire de 30 em 30 dias? Desde já agradeço. |
|
|
|
|
|
|
|
Postada em 05/08/2008 08:09 hs
bruno é so vc colocar um if no form principal if day(date) =10 then msgbox "expire" frmDigiteSenha.show if frmDigiteSenha.txtSenha <> Senha then end endif endif quando der o dia 10 de cada mes ele ja pede a senha ok |
|
|
|
Bruno Oliveira
não registrado
|
|
Postada em 05/08/2008 10:03 hs
Obrigado Alexandre... Agradeço a força. Sem querer abusar da boa vontade, gostaria de pedir outra dica... Como fazer o sistema avisar que a licença esta expirando, uma semana antes de vencer.? Desde ja agrade o amigo pela ajuda. |
|
|
|
|
|
Postada em 05/08/2008 10:05 hs
Se o dia 10 expira a licença, uma semana antes é a partir do dia 3, seguindo a mesma lógica pode utilizar o dia 3 para "lembrar o usuário"...
|
|
|
|
|
|
Postada em 05/08/2008 10:11 hs
if day(date) =3 then msgbox "lincença expirando daqui a uma semana" endif |
|
|
|
Bruno Oliveira
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 05/08/2008 10:22 hs
Obrigado Amigos pela ajuda. |
|
|
|
