iniciante Postado Março 30, 2004 Denunciar Share Postado Março 30, 2004 <%dia = day(now)mes = month(now)ano = year(now)Data = CStr(dia) + "/" + CStr(mes) + "/" + CStr(ano)idade = DateDiff("yyyy",CDate(RS("dob")),Data) %>vou citar um exemplo , assim fica mais facil , uma pessoa nascida em 1982 ele teria 21 , mas no meu programa ela esta indicando que tem 22anos .alguém poderia arrumar meu programa. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 dark0 Postado Março 30, 2004 Denunciar Share Postado Março 30, 2004 ola mestre fyoda (seu outro nick)eu havia lhe passado esse codigo à uns dias atrasvide tópico: Calcular idadeleia as nossas respostas para seu outro tópico!Para resolver seu problema, você deve basicamente ler os links que eu coloquei sobre a funcao DateDiff, e comparar o mes e o diaE para que criar mais de um usuário?se quiser trocar de nick, é possivel.. não precisa criar outro! Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Reginaldo ASP Postado Março 30, 2004 Denunciar Share Postado Março 30, 2004 Está fyoda suportar isso... If eu = "preguiça de tentar aprender" Then Response.Write "Me passem um código pronto, detalhado, comentado e grátis, mesmo sabendo que eu não vou tentar aprender e não vou fazer perguntas pertinentes"Else Response.Write "Tentarei aprender, pesquisarei, não serei folgado e não vou trocar o nick pra tentar enganar a galera"End IfFrancamente.... Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 mestre fyoda Postado Abril 13, 2004 Denunciar Share Postado Abril 13, 2004 O meu codigo esta dando erro :Erro de compilação do Microsoft VBScript erro '800a03ea' Erro de sintaxe /clanevil/paginacao.asp, line 140 function formatadata(data)^<% dim dataatual, datanascimento, n1, n2 function formatadata(data) dd = day(data) mm = month(data) aa = year(data) if len(dd) = 1 then dd = "0" & dd if len(mm) = 1 then mm = "0" & mm formatadata = cstr(dd & "/" & mm & "/" & aa) end function function idade(dataatual, datanascimento) if (cint(mid(dataatual, 4, 2)))>=(cint(mid(datanascimento, 4, 2))) then if (cint(mid(dataatual, 1, 2)))>=(cint(mid(datanascimento, 1, 2))) then n1 = cint(mid(dataatual, 7, 4)) n2 = cint(mid(datanascimento, 7, 4)) idade = n1-n2 else n1 = cint(mid(dataatual, 7, 4)) n2 = cint(mid(datanascimento, 7, 4)) idade = n1-n2-1 end if else n1 = cint(mid(dataatual, 7, 4)) n2 = cint(mid(datanascimento, 7, 4)) idade = n1-n2-1 end if Response.Write idade end function call idade(formatadata(date),formatadata(rs("dob")) %> Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 dark0 Postado Abril 13, 2004 Denunciar Share Postado Abril 13, 2004 puts.. ainda não arrumou isso? heheBom.. você sabe para que serve aquele monte de ifs?qual é sua linha 140?pois naquele trecho não parece ter 140 linhas.Se o erro dá ao chamar a função, verifique o que a funcao exige de dados, na hora de passar parametros.Pelo que vi, o erro é no ano. Seu ano ali, na hora de chamar a funcao, esta usando apenas 2 caracteres.. mas o normal é 4! Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Victor Postado Abril 13, 2004 Denunciar Share Postado Abril 13, 2004 Se não me engano os problemas são nos IFS, pois ele não coloca a condição enteira!!!if .... then....[]'sVictor Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 mestre fyoda Postado Abril 13, 2004 Denunciar Share Postado Abril 13, 2004 Erro de compilação do Microsoft VBScript erro '800a03ea' Erro de sintaxe /clanevil/paginacao.asp, line 139 function formatadata(data)<% 'Efetuando a conexão com a base de dados criada -----------------------Set Conn = Server.CreateObject("AdoDb.Connection") Conn.provider="Microsoft.Jet.OLEDB.4.0" Conn.connectionstring=Server.Mappath("banco.mdb") Conn.open '--------------------------------------------------------------------------'Vamos criar o objeto Record Set -> neste caso é necessário declará-lo,'pois vamos utilizar algumas funções deste objeto Set RS = Server.CreateObject("adodb.recordset")RS.PageSize = 5 'quantidade de registros por página. Você pode alterar sem conforme precise.'Vamos fazer a busca na tabela contatosSQL = "select * from usuarios" RS.Open SQL,Conn,3,3'Vamos agora verificar exceções do tipo “fim de arquivo” (EOF), se a página atual é menor 'que zero, se é maior que o número total de páginas, etc.IF RS.EOF then Response.Write "nenhum registro encontrado" Response.End 'paramos o programaELSE 'Definindo em qual pagina o visitante está IF Request.QueryString("pagina")="" then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))<1 then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))> RS.PageCount then intpagina=RS.PageCount ELSE intpagina=Request.QueryString("pagina") END IF END IF END IFEND IF'Fim das verificações de exceções'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta RS.AbsolutePage=intpagina' Inicia o contador que vai controlar os registros mostradosintrec=0'Enquanto o contador for menor que a quantidade de registros mostrados ou' não for o final do arquivo %><% While intrec < RS.PageSize and not RS.EOF %><head><style> <!-- a{text-decoration:none}//--> </style></SCRIPT><LINK href="images/padrão.css" rel=stylesheet type=text/css><STYLE type=text/css>#divUpControl { HEIGHT: 13px; LEFT: 518px; POSITION: absolute; TEXT-ALIGN: right; TOP: 340px; WIDTH: 12px; Z-INDEX: 1}#divDownControl { HEIGHT: 12px; LEFT: 519px; POSITION: absolute; TEXT-ALIGN: right; TOP: 573px; WIDTH: 11px; Z-INDEX: 1}#divContainer { CLIP: rect(0px 163px 232px 0px); HEIGHT: 232px; LEFT: 353px; OVERFLOW: hidden; POSITION: absolute; TOP: 346px; VISIBILITY: hidden; WIDTH: 163px}#divContent { LEFT: 0px; POSITION: absolute; TOP: 0px}</STYLE><STYLE type=text/css>.tabela { BACKGROUND: #f5f5f5; BORDER-BOTTOM: #808080 1px solid; BORDER-LEFT: #808080 1px solid; BORDER-RIGHT: #808080 1px solid; BORDER-TOP: #808080 1px solid; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px}.link { COLOR: #000000; TEXT-DECORATION: none}.link:hover { COLOR: #ff8040; TEXT-DECORATION: none}.TD { COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px}.campo { BACKGROUND: #ffffff; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px}.botao { BACKGROUND: #f3f3f3; BORDER-BOTTOM: #808080 1px solid; BORDER-LEFT: #bbbbbd 1px solid; BORDER-RIGHT: #808080 1px solid; BORDER-TOP: #bbbbbd 1px solid; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px}.botao2 { BACKGROUND-COLOR: #e8e8e8; BORDER-BOTTOM-COLOR: #ffffff; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-COLOR: #ffffff; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-COLOR: #ffffff; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-COLOR: #ffffff; BORDER-TOP-WIDTH: 1px; COLOR: black; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt}.Menu:link { BACKGROUND-COLOR: #ffffff; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px}.Menu:visited { BACKGROUND-COLOR: #ffffff; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px}.Menu:unknown { BACKGROUND-COLOR: #ffffff; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px}.Menu:hover { BACKGROUND-COLOR: #f5f5f5; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px}</STYLE></head><table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#C0C0C0" width="32%" id="AutoNumber1" height="17" bgcolor="#C0C0C0" align="center"> <tr> <td width="14%" height="17" bgcolor="#F8F8F8" rowspan="8"> <p align="center"> <img src="<%=RS("icon")%>.gif" width=32 height=32 align="left" ></td> <td width="86%" height="10" bordercolor="#C0C0C0" bgcolor="#F8F8F8"> <font size="1" face="Verdana" class="TD"><b> Nome: <%=RS("nome")%></b></font></td> </tr> <tr> <td width="86%" height="7" bordercolor="#C0C0C0" bgcolor="#F8F8F8"> <font size="1" face="Verdana" class="TD"><b> Sobre Nome: <%=RS("snome")%></b></font></td> </tr> <tr> <td width="86%" height="2" bordercolor="#C0C0C0" bgcolor="#F8F8F8"> <font face="Verdana" size="1" class="TD"><b> Email: <%=RS("email")%></b></font></td> </tr> <tr> <td width="86%" height="17" bordercolor="#C0C0C0" bgcolor="#F8F8F8" valign="top"> <p align="left"> <font face="Verdana" size="1" class="TD"><b> Data Cadastro: <%=RS("data")%></b> </font></p> </td> </tr> <%dim dataatual, datanascimento, n1, n2function formatadata(data)dd = day(data)mm = month(data)aa = year(data)if len(dd) = 1 then dd = "0" & ddif len(mm) = 1 then mm = "0" & mmformatadata = cstr(dd & "/" & mm & "/" & aa)end functionfunction idade(dataatual, datanascimento)if (cint(mid(dataatual, 4, 2)))>=(cint(mid(datanascimento, 4, 2))) thenif (cint(mid(dataatual, 1, 2)))>=(cint(mid(datanascimento, 1, 2))) thenn1 = cint(mid(dataatual, 7, 4))n2 = cint(mid(datanascimento, 7, 4))idade = n1-n2elsen1 = cint(mid(dataatual, 7, 4))n2 = cint(mid(datanascimento, 7, 4))idade = n1-n2-1end ifelse n1 = cint(mid(dataatual, 7, 4))n2 = cint(mid(datanascimento, 7, 4))idade = n1-n2-1end ifResponse.Write idadeend functioncall idade(formatadata(date),formatadata(rs("dob"))%> <tr> <td width="86%" height="17" bordercolor="#C0C0C0" bgcolor="#F8F8F8" valign="top"> <p align="left"> <font face="Verdana" size="1" class="TD"><b> Idade: <%=idade%> anos</b> </font></p> </td> </tr> <tr> <td width="86%" height="17" bordercolor="#C0C0C0" bgcolor="#F8F8F8" valign="top"> <p align="left"> <font face="Verdana" size="1" class="TD"><b> Login: <%=RS("login")%></b> </font></p> </td> </tr> </table><p align="center"><br> <% RS.MoveNext ' Acrescenta +1 ao contador intrec=intrec+1 'Se for EOF (fim de arquivo), imprimir branco na tela IF RS.EOF then response.write " " END IFWend 'fim do loop'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”. IF intpagina > 1 then %> <a href="paginacao.asp?pagina=<%=intpagina-1%>" class="TD">Anterior</a> <a href="paginacao.asp?pagina=<%=intpagina + 1%>" class="TD"> Próxima </a> <% END IF%> Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Victor Postado Abril 13, 2004 Denunciar Share Postado Abril 13, 2004 Erro de compilação do Microsoft VBScript erro '800a03ea' Erro de sintaxe /clanevil/paginacao.asp, line 139 function formatadata(data)<% 'Efetuando a conexão com a base de dados criada -----------------------Set Conn = Server.CreateObject("AdoDb.Connection") Conn.provider="Microsoft.Jet.OLEDB.4.0" Conn.connectionstring=Server.Mappath("banco.mdb") Conn.open '--------------------------------------------------------------------------'Vamos criar o objeto Record Set -> neste caso é necessário declará-lo,'pois vamos utilizar algumas funções deste objeto Set RS = Server.CreateObject("adodb.recordset")RS.PageSize = 5 'quantidade de registros por página. Você pode alterar sem conforme precise.'Vamos fazer a busca na tabela contatosSQL = "select * from usuarios" RS.Open SQL,Conn,3,3'Vamos agora verificar exceções do tipo “fim de arquivo” (EOF), se a página atual é menor 'que zero, se é maior que o número total de páginas, etc.IF RS.EOF then Response.Write "nenhum registro encontrado" Response.End 'paramos o programaELSE 'Definindo em qual pagina o visitante está IF Request.QueryString("pagina")="" then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))<1 then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))> RS.PageCount then intpagina=RS.PageCount ELSE intpagina=Request.QueryString("pagina") END IF END IF END IFEND IF'Fim das verificações de exceções'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta RS.AbsolutePage=intpagina' Inicia o contador que vai controlar os registros mostradosintrec=0'Enquanto o contador for menor que a quantidade de registros mostrados ou' não for o final do arquivo %><% While intrec < RS.PageSize and not RS.EOF %><head><style> <!-- a{text-decoration:none}//--> </style></SCRIPT><LINK href="images/padrão.css" rel=stylesheet type=text/css><STYLE type=text/css>#divUpControl { HEIGHT: 13px; LEFT: 518px; POSITION: absolute; TEXT-ALIGN: right; TOP: 340px; WIDTH: 12px; Z-INDEX: 1}#divDownControl { HEIGHT: 12px; LEFT: 519px; POSITION: absolute; TEXT-ALIGN: right; TOP: 573px; WIDTH: 11px; Z-INDEX: 1}#divContainer { CLIP: rect(0px 163px 232px 0px); HEIGHT: 232px; LEFT: 353px; OVERFLOW: hidden; POSITION: absolute; TOP: 346px; VISIBILITY: hidden; WIDTH: 163px}#divContent { LEFT: 0px; POSITION: absolute; TOP: 0px}</STYLE><STYLE type=text/css>.tabela { BACKGROUND: #f5f5f5; BORDER-BOTTOM: #808080 1px solid; BORDER-LEFT: #808080 1px solid; BORDER-RIGHT: #808080 1px solid; BORDER-TOP: #808080 1px solid; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px}.link { COLOR: #000000; TEXT-DECORATION: none}.link:hover { COLOR: #ff8040; TEXT-DECORATION: none}.TD { COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px}.campo { BACKGROUND: #ffffff; BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px}.botao { BACKGROUND: #f3f3f3; BORDER-BOTTOM: #808080 1px solid; BORDER-LEFT: #bbbbbd 1px solid; BORDER-RIGHT: #808080 1px solid; BORDER-TOP: #bbbbbd 1px solid; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana, Geneva, Arial, Helvetica, sans-serif; FONT-SIZE: 11px}.botao2 { BACKGROUND-COLOR: #e8e8e8; BORDER-BOTTOM-COLOR: #ffffff; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-COLOR: #ffffff; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-COLOR: #ffffff; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-COLOR: #ffffff; BORDER-TOP-WIDTH: 1px; COLOR: black; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 8pt}.Menu:link { BACKGROUND-COLOR: #ffffff; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px}.Menu:visited { BACKGROUND-COLOR: #ffffff; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px}.Menu:unknown { BACKGROUND-COLOR: #ffffff; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px}.Menu:hover { BACKGROUND-COLOR: #f5f5f5; COLOR: #000000; FONT-FAMILY: Tahoma, Verdana; FONT-SIZE: 11px; HEIGHT: 20px; PADDING-TOP: 2px; TEXT-DECORATION: none; WIDTH: 160px}</STYLE></head><table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#C0C0C0" width="32%" id="AutoNumber1" height="17" bgcolor="#C0C0C0" align="center"> <tr> <td width="14%" height="17" bgcolor="#F8F8F8" rowspan="8"> <p align="center"> <img src="<%=RS("icon")%>.gif" width=32 height=32 align="left" ></td> <td width="86%" height="10" bordercolor="#C0C0C0" bgcolor="#F8F8F8"> <font size="1" face="Verdana" class="TD"><b> Nome: <%=RS("nome")%></b></font></td> </tr> <tr> <td width="86%" height="7" bordercolor="#C0C0C0" bgcolor="#F8F8F8"> <font size="1" face="Verdana" class="TD"><b> Sobre Nome: <%=RS("snome")%></b></font></td> </tr> <tr> <td width="86%" height="2" bordercolor="#C0C0C0" bgcolor="#F8F8F8"> <font face="Verdana" size="1" class="TD"><b> Email: <%=RS("email")%></b></font></td> </tr> <tr> <td width="86%" height="17" bordercolor="#C0C0C0" bgcolor="#F8F8F8" valign="top"> <p align="left"> <font face="Verdana" size="1" class="TD"><b> Data Cadastro: <%=RS("data")%></b> </font></p> </td> </tr> <%dim dataatual, datanascimento, n1, n2function formatadata(data)dd = day(data)mm = month(data)aa = year(data)if len(dd) = 1 then dd = "0" & ddif len(mm) = 1 then mm = "0" & mmformatadata = cstr(dd & "/" & mm & "/" & aa)end functionfunction idade(dataatual, datanascimento)if (cint(mid(dataatual, 4, 2)))>=(cint(mid(datanascimento, 4, 2))) thenif (cint(mid(dataatual, 1, 2)))>=(cint(mid(datanascimento, 1, 2))) thenn1 = cint(mid(dataatual, 7, 4))n2 = cint(mid(datanascimento, 7, 4))idade = n1-n2elsen1 = cint(mid(dataatual, 7, 4))n2 = cint(mid(datanascimento, 7, 4))idade = n1-n2-1end ifelse n1 = cint(mid(dataatual, 7, 4))n2 = cint(mid(datanascimento, 7, 4))idade = n1-n2-1end ifResponse.Write idadeend functioncall idade(formatadata(date),formatadata(rs("dob"))%> <tr> <td width="86%" height="17" bordercolor="#C0C0C0" bgcolor="#F8F8F8" valign="top"> <p align="left"> <font face="Verdana" size="1" class="TD"><b> Idade: <%=idade%> anos</b> </font></p> </td> </tr> <tr> <td width="86%" height="17" bordercolor="#C0C0C0" bgcolor="#F8F8F8" valign="top"> <p align="left"> <font face="Verdana" size="1" class="TD"><b> Login: <%=RS("login")%></b> </font></p> </td> </tr> </table><p align="center"><br> <% RS.MoveNext ' Acrescenta +1 ao contador intrec=intrec+1 'Se for EOF (fim de arquivo), imprimir branco na tela IF RS.EOF then response.write " " END IFWend 'fim do loop'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”. IF intpagina > 1 then %> <a href="paginacao.asp?pagina=<%=intpagina-1%>" class="TD">Anterior</a> <a href="paginacao.asp?pagina=<%=intpagina + 1%>" class="TD"> Próxima </a> <% END IF%> Esse é o arquivo que está retornando com o erro?? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 mestre fyoda Postado Abril 13, 2004 Denunciar Share Postado Abril 13, 2004 è sim Vitor Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
iniciante
<%
dia = day(now)
mes = month(now)
ano = year(now)
Data = CStr(dia) + "/" + CStr(mes) + "/" + CStr(ano)
idade = DateDiff("yyyy",CDate(RS("dob")),Data)
%>
vou citar um exemplo , assim fica mais facil , uma pessoa nascida em 1982 ele teria 21 , mas no meu programa ela esta indicando que tem 22anos .
alguém poderia arrumar meu programa.
Link para o comentário
Compartilhar em outros sites
8 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.