Roma rakamına çeviri

[DeadGhost]

Dim a As Data
Dim b As Data
Private Sub command2_click()
If Text1 = "" Then
MsgBox "Bir Tarih Girin"
Exit Sub
End If
a = Text1
b = Text2
Text3 = Val(DateDiff("d", a, b)) 'Burada Kaç Gün Yaşadığınız Hesaplanıyor.
End Sub
Private Sub form_load()
Text2.Enabled = False 'Şimdi Tarih değeri soluk yapılıyor
Text2 = Date 'Bilgi sayar tarihi yazdırılıyor
End Sub

 

[OptiMistics]

Teşekkürler.

 

[kutlucan1]

Teşekkürler.

 

[Yenidenben]

Bunu butona mı kodlayacaz ???

 

[DeadGhost]

Private sub comand diyen 2.ci yaratığın butona