 Dim yoom As Integer
 Dim sheher As Integer
 Dim snaa As Integer
 Dim MyDate As Date
 '---------------------------
 yoom = Me.cmdYoom.Column(0)
 sheher = Me.cmdShaher.Column(0)
 snaa = Me.cmdSanh.Column(0)
'================================
Dim TheDate As Date    ' Declare variables.

TheDate = snaa / yoom / sheher
'Me.compDate = TheDate
Me.compDate = yoom & "/" & sheher & "/" & snaa
