Bruge funktion i app_code mappen

Du har lavet en klase med funktionen, så du skal instantiere et objekt

  Dim a as new AgeScript()
  a.GetAge(...)

Eller ... i dette tilfælde lave funktionen shared (static) da den ikke behøver at være i et objekt:

  Public Shared Sub GetAge(ByVal BirthDate As DateTime)

og så

  AgeScript.GetAge(...)

Men, men, men. Når parameteren er erklæret som en DateTime, så kan du ikke sende en streng med.

Funktionen ligger inde i AgeScript klassen og derfor skal du have fat på sådan en først.

Og glemte lige, at du ikke får noget tilbage fra din Sub - måske mener du at det skal være en Function?

Og endnu en ting. Altid i VB.NET sæt den til

  option explicit on
  option strict on

som de første to linier. Det får VB.NET til at opføre sig som et rigtigt programmeringssprog, der vil give dig rigtige informationer om fejl. Uden de to linier kan man få rodet sig ud i noget værre kode, uden at vide af det. De betyder at der kommer stærkt typetjek på, og at variabler skal erklæres.

Okay, nu er jeg så kommet videre med Public Shared Sub og AgeScript.GetAge...

Men som du siger så retunere den ingenting..

Det den skal at den får en en datatime fra databasen, og så skal retunere et enkelt tal fek. 21..

Så kan det se sådan her ud:

i din klasse AgeScript.vb:

Public Class AgeScript

    Public Function GetAge(ByVal BirthDate As DateTime) As Integer   
        Dim Age As Integer = DateTime.Now.Year - BirthDate.Year   
        If DateTime.Now.Month < BirthDate.Month Or (DateTime.Now.Month = BirthDate.Month And DateTime.Now.Day < BirthDate.Day) Then
            GetAge = Age - 1
        End If
        Return Age
    End Function
End Class

På en af dine sider smider du en label ud på din form for at få vist outputtet. I koden her kalder du din Function sådan her, f.eks. i dit Page_Load-event:

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim a As New AgeScript
        Dim result As Integer = a.GetAge("19-08-1987 00:00:00")
        Label1.Text = result
    End Sub

Så får du udskrevet 20 i din label.

Hvis du sætter

option explicit on
option strict on

Som erikjacobsen anbefaler er du nødt til at tilføje lidt i kaldet af din Function
af hensyn til dine variabler:

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim a As New AgeScript
        Dim result As Integer = a.GetAge(CDate("19-08-1987 00:00:00"))
        Label1.Text = CType(result, String)
    End Sub

Fantastisk.. Smider i et svar??

Kan man lave sådan at f.eks. et login check ligger i en class og så på de sider man vil beskytte har LoginCheck() i sin page_load?

Kan man lave noget ala det?

Svar herfra.

- Det kan du godt, men det optimale vil være at kigge på Forms Authentication, membership og profiles. Her definere du f.eks. i din web.config hvilke sider og mapper du vil have beskyttet af login alt efter hvilke rettigheder du har givet den der er logget ind. 

Se evt her:
http://weblogs.asp.net/scottgu/archive/2006/02/24/ASP.NET-2.0-Membership_2C00_-Roles_2C00_-Forms-Authentication_2C00_-and-Security-Resources-.aspx

Hov. Svar :-)