module_display_date.vb

来自「this system of advanced library」· VB 代码 · 共 19 行

Imports Library_Members_v1.mpeg
Module Module_display_date
    Public D_system As DateTime
    Public display_shamsi_now, display_miladi_now As Date
    Public year, mon, day As Integer
    Public c_date As convert_date = New convert_date
    Public Sub display_date()
        D_system = System.DateTime.Today
        Year = Convert.ToInt32(D_system.Year)
        mon = Convert.ToInt32(D_system.Month)
        Day = Convert.ToInt32(D_system.Day)
        c_date.MiladiToShamsi(mon, Day, Year)
        display_shamsi_now = Year.ToString() & "/" & mon.ToString() & "/" & Day.ToString()
        display_shamsi_now = display_shamsi_now.ToShortDateString()
        display_miladi_now = D_system.Year.ToString() & "/" & D_system.Month.ToString() & "/" & D_system.Day.ToString()
        display_miladi_now = display_miladi_now.ToShortDateString()
    End Sub
End Module