burada dogum yılı, bu yı, dogum ayı, bu ay, dogum gunu ıle bu gun ayrı ayrı gırılıyo ve program işlemlerı yaparak suankı yasınızı yıl ay gun olarak sıze gosterıyo.. kodların yanında acıklamalarınıda yazdıml Private Sub Command1_Click Dim dy As Integer Dim by As Integer Dim da As Integer Dim ba As Integer Dim gun As Integer Dim ay As Integer Dim yaş As Integer dy = Val(Text1. Text) 'doğum yılı text1 e atanıyo' by = Val(Text2. Text) 'bu yıl text2 ye atanıyo' da = Val(Text3. Text) 'doğum ayı text3 e atanıyo' ba = Val(Text4. Text) 'bu ay text4 e atanıyo' If ba < da Then 'eger bu ay dogum ayından kucuk ıse ' by = by - 1 'bu yıldan 1 eksılt' ba = ba + 12 'bu aya 12 ekle' 'bır yıl 12 ay oldugu için' ay = ba - da 'ayı bulmak için bu aydan dogum ayını cıkar' End If If ba > da Then ay = ba - da End If dg = Val(Text5. Text) 'dogum gununu text5 e ata' bg = Val(Text6. Text) 'bugunu text6 a ata' If bg < dg Then 'eger bu gun dogum gununden kucukse' ba = ba - 1 'bu ayı 1 azalt' bg = bg + 30 'bu gune 30 ekle' gun = bg - dg 'gunu bulmak için bugunden dogum gununu cıkar' End If If bg > dg Then gun = bg - dg End If yaş = by - dy 'yası bulmak için bu yıldan dogum yılını cıkar' Text7. Text = yaş yaş = Val(Text7. Text) Text8. Text = ay ay = Val(Text8. Text) Text9. Text = gun gun = Val(Text9. Text) End Sub alıntıdır

dy = Val(Text1. Text) 'doğum yılı text1 e atanıyo' by = Val(Text2. Text) 'bu yıl text2 ye atanıyo' da = Val(Text3. Text) 'doğum ayı text3 e atanıyo' ba = Val(Text4. Text) 'bu ay text4 e atanıyo' felan demişsin ama :S ters açıklanmış doğum yılı text e atanmıyo text1deki yıl dy ye atanıyo bide bende şuanki yıl ay gun otomatik oalrak alınır. tekrar girilmesi saçma olmuş ama yinede paylaşım için saol EDIT: bide bu kodları kim yazmışsa baya bi acemiymiş ilk programı felanmış galiba

abi kızacaksın ama ben hangi kodun hangi boxa yazılacağını anlamadım bi açıklarsan sevinirim kaçtane text var hangisine hangisi yazılacak?

olabilir kodları alıntı