TextBox'ta süre hesaplama

[s.savas]

Merhaba arkadaşlar.
İşe başlama tarihi ve işin süresi baz alınarak çalışılacak süreleri hesaplamak istiyorum.
Gerekli açıklamayı ekli dosyada ifade etmeye çalıştım.
İlgilenecek arkadaşlara teşekkür ediyorum.

 

[s.savas]

Arkadaşlar aşağıdaki kod ile sorun çözülmüştür.

If Day(TextBox2.Value) = 1 Then
    TextBox3.Value = Month("31.12." & Year(TextBox2.Value)) - Month(TextBox2.Value) + 1
Else
    TextBox3.Value = Month("31.12." & Year(TextBox2.Value)) - Month(TextBox2.Value)
End If
TextBox4.Value = IIf(TextBox1.Value - TextBox3.Value > 12, 12, TextBox1.Value - TextBox3.Value)
TextBox5.Value = IIf(TextBox1.Value - TextBox3.Value - TextBox4.Value > 12, 12, TextBox1.Value - TextBox3.Value - TextBox4.Value)
TextBox6.Value = TextBox1.Value - TextBox3.Value - TextBox4.Value - TextBox5.Value
If TextBox3.Value < 0 Then TextBox3.Value = 0
If TextBox4.Value < 0 Then TextBox4.Value = 0
If TextBox5.Value < 0 Then TextBox5.Value = 0
If TextBox6.Value < 0 Then TextBox6.Value = 0