Subrotinas

Subrotinas servem basicamente para poupar a repetição de tarefas. O exemplo abaixo ilustra uma simples subrotina para formatar uma string. Lembrando que as subrotinas também podem ficar nos arquivos tipo Include.

1    <%response.buffer=false%>
2    <html><head>
3    <title>subs.asp</title></head>
4    <body bgcolor="#FFFFFF">
5    <br><br>
6    Fazer uma conexão com o banco de dados de contratado, por exemplo.
7    Montar um recordset com o nro do contratado e outras informações quaisquer.
8    Dim NroContratado
9    Nrocontratado = RS("NroContratado")
10   ZerosAEsquerda NroContratado, 8
11   Response.write NroContratado
12
13   ' Acrescenta zeros a esquerda da string até um tamanho máximo para a string
14   '
15   Public Sub ZerosAEsquerda (ByRef strString, intTamString)
16   If IsNull(strString) Then
17    strString = String(intTamString, "0")
18   Else
19    strString = String(intTamString - Len(strString), "0") & strString
20   End If
21   End Sub
22   </body></html>

Voltar

Copyright (c) 1998 - Alexandre Barreto