ACTForum.de

Code: Alles auswählen

    ' Das Script berechnet das Alter aus einem Geburtstagsdatum.
    ' Erstellt am 27.06.2011 von Robert Schellmann, rs@melville-schellmann.de


    Dim sFieldGeburtstag As String = "Geburtsdatum" ' Feldname, wo der Geburtstag gespeichert ist.
    Dim sFieldAlter As String = "Alter" ' Feldname wohin des berechnete Alter gespeichert werden soll
    Dim lYear As Integer
    Dim lMonth As Integer
    Dim lDay As Integer
    Dim lAge As Integer
    Dim sValue As String
    Dim dBirthday As Date

    sValue = AutoData.getFieldValue(sFieldGeburtstag)
    If sValue.Trim = String.Empty Then
      GoTo Abbruch
    End If
    If Date.TryParse(sValue, dBirthday) = False Then
      MsgBox(String.Format("Aus dem Wert '{0}' aus dem Feld '{1}' konnte kein Datum erkannt werden.", sValue, sFieldGeburtstag), vbInformation)
      GoTo Abbruch
    End If

    lYear = dBirthday.Year
    lMonth = dBirthday.Month
    lDay = dBirthday.Day

    ' Berechnung des Alters
    ' http://www.vb-paradise.de/allgemeines/sourcecode-austausch/43331-alter-durch-geburtsdatum-errechnen/

    lAge = Now.Year - lYear
    If Now.Month = lMonth Then
      If Now.Day < lDay Then
        lAge -= 1 ' Ein Jahr abziehen
      End If
    Else
      If Now.Month < lMonth Then
        lAge -= 1 ' Ein Jahr abziehen
      End If
    End If

    ' Das Alter in das entsprechende Feld schreiben
    AutoData.setFieldValue(sFieldAlter, lAge.ToString)

    'Und noch ein kleiner Refresh der aktuellen Anischt.
    ACTApp.Cursor = Cursors.WaitCursor
    ACTApp.ExecuteCommand("act-ui://com.act/application/menu/view/refresh")
    System.Windows.Forms.Application.DoEvents()
    ACTApp.Cursor = Cursors.Default

Abbruch:
    Return String.Empty