ይዞታዎች

# FormatDateTime Function [VBA]

ቀን እና/ወይንም ሰአት አቀራረብ ለ ቀን መግለጫ እና ውጤት እንደ ሀረግ ይመልሳል

This constant, function or object is enabled with the statement Option VBASupport 1 placed before the executable program code in a module.

### አገባብ:

            FormatDateTime (Date As Date [, NamedFormat As Integer])

### ዋጋ ይመልሳል:

String

### ደንቦች:

Date: The date expression to be formatted.

NamedFormat: An optional vbDateTimeFormat enumeration specifying the format that is to be applied to the date and time expression. If omitted, the value vbGeneralDate is used.

### የ ቀን እና ሰአት አቀራረብ (vbDateTimeFormat enumeration)

የ ተሰየመ የማያቋርጥ | ዋጋ | መግለጫ
--- | --- | ---
vbGeneralDate | 0 | ቀን እና/ወይንም ሰአት ማሳያ እንደ ተገለጸው በ እርስዎ ኮምፒዩተር ስርአት: ባጠቃላይ ቀን ማሰናጃ: ቀን ብቻ ከሆነ: ሰአት አይታይም: ሰአት ብቻ ከሆነ: ቀን አይታይም
vbLongDate | 1 | ቀን ማሳያ ረጅም የ ቀን አቀራረብ በ መጠቀም የ ተወሰነውን በ እርስዎ ኮምፒዩተር አካባቢ ማሰናጃ
vbShortDate | 2 | ቀን ማሳያ አጭር የ ቀን አቀራረብ በ መጠቀም የ ተወሰነውን በ እርስዎ ኮምፒዩተር አካባቢ ማሰናጃ
vbLongTime | 3 | ሰአት ማሳያ እንደ ተወሰነው በ እርስዎ ስርአት የ ረጅም ሰአት ማሰናጃ
vbShortTime | 4 | ሰአት ማሳያ በ መጠቀም የ 24=ሰአት አቀራረብ (ሰሰ:ደደ)

### የ ስህተት ኮዶች:

13 የ ዳታ አይነት አለመስማማት

### ለምሳሌ:

            REM  *****  BASIC  *****
            Option VBASupport 1
            Sub DateFormat
             Dim d as Date
             d = ("1958-01-29 00:25")
             msgbox("General date format : " & FormatDateTime(d))
             msgbox("Long date format : " & FormatDateTime(d,vbLongDate))
             msgbox("Short date format : " & FormatDateTime(d,vbShortDate))
             msgbox("Long time format : " & FormatDateTime(d,3))
             msgbox("Short time format : " & FormatDateTime(d,vbShortTime))
            End Sub

የ ተዛመዱ አርእስቶች

የ VBA ሰአት እና ተግባሮች