Como definir um parâmetro opcinal no VB6
|
1 2 3 4 5 6 7 |
Sub notifica(ByVal company As String, Optional ByVal office As String = "QJZ") If office = "QJZ" Then Debug.WriteLine("office not supplied -- using Headquarters") office = "Headquarters" End If ' Insert code to notify headquarters or specified office. End Sub |
Abaixo segue uma função de validar CPF com poucas linhas, utilizando Expressão Regular e jQuery.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
/* Valida CPF */ function isCPF(value) { value = jQuery.trim(value); cpf = value.replace(/.|-|//gi,''); // elimina .(ponto), -(hifem) e /(barra) while(cpf.length < 11) cpf = "0"+ cpf; var expReg = /^0+$|^1+$|^2+$|^3+$|^4+$|^5+$|^6+$|^7+$|^8+$|^9+$/; var a = []; var b = new Number; var c = 11; for (i=0; i<11; i++){ a[i] = cpf.charAt(i); if (i < 9) b += (a[i] * --c); } if ((x = b % 11) < 2) { a[9] = 0 } else { a[9] = 11-x } b = 0; c = 11; for (y=0; y<10; y++) b += (a[y] * c--); if ((x = b % 11) < 2) { a[10] = 0; } else { a[10] = 11-x; } if ((cpf.charAt(9) != a[9]) || (cpf.charAt(10) != a[10]) || cpf.match(expReg)) return false; return true; } |
Outra forma que tratar condições na cláusula WHERE no SQL Server 2000 ou 2005, é a seguinte:
Me deparei com um “problema”: Como fazer um CASE (comando SQL) na clausula WHERE. Resolvi o problema e decidi post aqui na sintaxe do SQL Server 2000 ou 2005 Sendo WHERE MUN_EST_CODIGO = o campo da tabela a ser comparado.…
Fiz uma pesquisa sobre os principais Frameworks PHP, no slide abaixo apresento suas principais características com maoir ênfase ao CakePHP.
FPDF é uma classe PHP que permite gerar arquivos PDF com PHP puro, ou seja, sem usar a biblioteca PDFlib.
