Feedback by UserVoice

Yama

My feedback

  1. 6 votes
    Vote

    We're glad you're here

    Please sign in to leave feedback

    Signed in as (Sign out)
    You have left! (?) (thinking…)
    3 comments  ·  Access (Desktop Application) » Other  ·  Flag idea as inappropriate…  ·  Admin →
    An error occurred while saving the comment
    Yama commented  · 

    'Dates in Gregorian Calendar
    Calendar = vbCalGreg
    Dim Sample As Date
    'Create sample date of 2021-02-14
    Sample = DateSerial(2021, 2, 14)

    'Debug.Print "Current Calendar : " & Calendar
    'Debug.Print "SampleDate = " & Format$(Sample, "yyyy-mm-dd")
    Me.labelDateGreg.Caption = "Current Calendar : " & Calendar
    Me.labelDateGreg = "SampleDate = " & Format$(Sample, "yyyy-mm-dd")

    ' Date in Hijri Calendar
    Calendar = vbCalHijri
    Me.labelDateHijri.Caption = "Current Calendar : " & Calendar
    Me.labelDateHijri.Caption = "SampleDate = " & Format$(Sample, "yyyy-mm-dd")

    'Reset VBA to cached value.
    Cached = Calendar
    End Sub

Feedback and Knowledge Base