Mostrar Mensajes
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Public Function AgeYears(ByVal datBirthDate As Date) As Integer
' Comments: Returns the age in years
' Params : datBirthDate Date to check
' Returns : Number of years
' Source : Total Visual SourceBook
On Error GoTo PROC_ERR
Dim intYears As Integer
intYears = Year(Now) - Year(datBirthDate)
If DateSerial(Year(Now), Month(datBirthDate), Day(datBirthDate)) > Now Then
' Subtract a year if birthday hasn't arrived this year
intYears = intYears - 1
End If
AgeYears = intYears
PROC_EXIT:
Exit Function
PROC_ERR:
MsgBox "Error: " & Err.Number & ". " & Err.Description, , "AgeYears"
Resume PROC_EXIT
End FunctionPrivate Sub Form_Load()
Dim CurrentAge As Integer
CurrentAge = AgeYears(#8/11/1992#)
MsgBox "The current age is: " & vbCrLf & CurrentAge
' Devuelve 22, lo cual es correcto
End Sub
Gente este método no falla nunca y es lo más rápido que hay.Código: [Seleccionar]Public Class Form1
Private Function obtenerNumeros(pTexto As String)
Dim i As Integer = 0
Dim retorno As String = Nothing
While i < pTexto.Length
If pTexto(i) >= "0" And
pTexto(i) <= "9" Then
retorno += pTexto(i)
End If
i += 1
End While
Return retorno
End Function
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
MsgBox(obtenerNumeros(TextBox1.Text))
End Sub
End Class