سلام دوستان
من در یک گزارش می خواهم فیلدهای جدول را به همراه فیلد تاریخ چاپ کنم. ولی فیلد تاریخ بصورت میلادی ذخیره شده است.
البته من ابزارهای لازم را برای تبدیل تاریخ میلادی به شمسی دارم. ولی در یک گزارش نمی دانم چگونه تاریخ میلادی که در جدول ذخیره شده است را بصورت شمسی تبدیل کرده و نمایش دهم.
کدهای که در فرم Datareport استفاده کرده ام بصورت زیر است:
Dim WithEvents dt As StdDataFormat
Dim sdt As String
Private Sub DataReport_Initialize()
' Date
Set dt = New StdDataFormat
Set DR_AsTo.Sections("section1").Controls( "txtdate").DataFormat = dt
End Sub
Private Sub dt_format(ByVal dateval As StdFormat.StdDataValue)
'This Problem
-->str1 = DR_AsTo.Sections("section1").Controls( "txtdate").Text
'Conver Miladi to Shamsi
dateval = Miladi2Shamsi(str1)
End Sub
Public Function Miladi2Shamsi(mdate As String) As String
Dim shms As New ClassShamsi
Miladi2Shamsi = shms.Miladi2Shamsi(mdate)
End Function
لطفا اگه کسی از این مشکل سر در میاره مارو هم فراموش نکنه.