Minus rechnen VBS

Computer: Software & Programmierung Visual Basic
#1

Ich möchte gerne die Zahlen der Eingabebox 1 minus die der 2 rechnen aber wie? kann mir da jemand helfen ??

Inputbox(„Gib dein Geburtsjahr ein“)
Inputbox(„Gib das heutige jahr ein“)

#2

http://www.office-loesung.de/ftopic95743_0_0_asc.php

#3

Ich möchte gerne die Zahlen der Eingabebox 1 minus die der 2
rechnen aber wie? kann mir da jemand helfen ??
Inputbox(„Gib dein Geburtsjahr ein“)
Inputbox(„Gib das heutige jahr ein“)

Hallo xmwxy, Sub Alter()
Dim Dif, Geburtstag
Geburtstag = InputBox(„Gib dein Geburtsdatum ein“)
Geburtstag = CDate(Geburtstag)
Dif = DateDiff(„yyyy“, Geburtstag, Now())
If Month(Geburtstag) > Month(Now) Then
Dif = Dif - 1
ElseIf Month(Geburtstag) = Month(Now) Then
If Day(Geburtstag) > Day(Now) Then Dif = Dif - 1
End If
MsgBox Dif
End Sub

Gruß

#4

Hallo,

Du suchst das:

Dim a,b,e
a = Inputbox("Gib dein Geburtsjahr ein")
b = Inputbox("Gib das heutige jahr ein")
e = b - a
MsgBox "Du bist " & e & " Jahre alt."

Gruß Rainer

#5

VBS Alter ausrechnen
Hallo,

so klappt es:

Dim Dif, Geburtstag
Geburtstag = InputBox("Gib dein Geburtsdatum ein")
Geburtstag = CDate(Geburtstag)
Dif = DateDiff("yyyy", Geburtstag, Now())
If Month(Geburtstag) \> Month(Now) Then
 Dif = Dif - 1
ElseIf Month(Geburtstag) = Month(Now) Then
 If Day(Geburtstag) \> Day(Now) Then Dif = Dif - 1
End If
MsgBox Dif

Gruß
Reinhard