Public Function Age(Bdate As Date, DateToday _ As Date) As Integer If Month(DateToday) < Month(Bdate) Or _ (Month(DateToday) = Month(Bdate) And _ Day(DateToday)<Day(Bdate)) Then A...
Se você quiser mostrar um menu popup para um texto, um menu de sistema (default) será mostrado primeiro e o seu menu só aparecerá quando o menu default for fechado. Para contornar este p...
a) Coloque para false a propriedade ShowInTaskbar do Form b) Em um módulo: Public Declare Function ShowWindow Lib "user32" _ Alias "ShowWindow" (ByVal hwnd As Long, _ ByVal nCmdShow...
Private Function Bissexto(Ano as string) Dim Data As String If Ano = "" Then Exit Function Data = ("29-2-" + Ano) Bissexto = IsDate(Data) ' Bissexto = True -> é bissexto ' Bissexto ...
Coloque no gotfocus das textboxes a chamada: SelecionaTudo Sub SelecionaTudo() On Error GoTo Fim If TypeOf Screen.ActiveControl Is TextBox Then Screen.ActiveControl.SelStart = 0 Sc...
Function DiaDaSemana(Data As String) As String If IsDate(Data) Then Select Case Format(Data, "w") Case 1 DiaDaSemana = "Domingo" Case 2 DiaDaSemana = "Segunda-feira" Case 3 DiaDaSema...
Public Function PISPASEP(Fcamp As String) Dim FTAP As String Dim TOT As Integer Dim I As Integer If Val(Fcamp) = 0 Then PISPASEP = False Exit Function End If If Len(Fcamp) <> 11 Then...
Adicione num Form um PictureBox (Picture1) e dois CommandButtons (Command1 q vai capturar a tela e Command2 q vai salvar o conteúdo de Picture1 no arquivo "C:\Vitor.BMP") e coloque este có...
Private Sub Command1_Click() On Error GoTo Repair_Error Dim MDB_Name As String CommonDialog1.Filter = "Access (*.mdb)|*.mdb" CommonDialog1.Flags = &H1000 CommonDialog1.F...
Private Sub Command2_Click() On Error GoTo Compact_Error Dim MDB_Name As String Dim MDB_NewName As String Dim MDB_Local As String Dim MDB_Options As String MDB_NewName = "c:\t...
