Šī īsa apmācība parādīs, kā VBA pārveidot virkni par datumu.
Datumi programmā Excel tiek saglabāti kā skaitļi un pēc tam formatēti, lai tiktu parādīti kā datums. Pirmā diena Excel pasaulē bija 1900. gada 1. janvāris (Windows noklusējums) vai 1904. gada 1. janvāris (Macintosh noklusējums) - tas nozīmē, ka 2022. gada 5. augusts ir 44413. Diena kopš 1900. gada 1. janvāra. Lai virkni pārvērstu datumā programmā Excel , vispirms virkne jāpārvērš par skaitli un pēc tam jāpārvērš par datumu.
CDate funkcija
Mēs varam izmantot funkciju ar nosaukumu CDate VBA, lai pārvērstu virkni par datumu.
1234567 | Sub ConvertDate ()Dim dte Kā SingleDim strD Kā virknestrD = "05.10.2020"dte = CDate (strD)MsgBox dteBeigu apakš |
Tā kā mēs esam deklarējuši skaitlisku mainīgo (dte kā Single), ziņojumapmaiņa atgriezīs skaitli, kas attiecas uz ievadīto datumu.
Ir svarīgi, lai gads tiktu ievadīts, izmantojot visus 4 gada ciparus (ti, 2022. gads, nevis tikai 20), pretējā gadījumā atgrieztais skaitlis var nebūt tāds, kā gaidīts. Excel neinterpretē datuma gada daļu - to kontrolē mūsu datora vadības panelis.
Tomēr, ja mainīgos mainām kā datuma mainīgo, ziņojumu lodziņā tiks parādīts skaitlis, kas pārveidots par datumu.
1234567 | Sub ConvertDate ()Izvēlēties kā datumuDim strD Kā virknestrD = "05.10.2020"dte = CDate (strD)MsgBox dteBeigu apakš |
Mēs varam spert šo soli tālāk un formatēt datumu tādā datuma formātā, kādu mēs vēlētos redzēt.
1234567 | Sub ConvertDate ()Dim dte kā virkneDim strD Kā virknestrD = "05.10.2020"dte = Formāts (CDate (strD), "dd mmmm gggg")MsgBox dteBeigu apakš |
Šajā piemērā mēs pārveidojam virkni par datumu un pēc tam atkal uz virkni!
Ja gadu pilnībā izlaistu, Excel pieņem pašreizējo gadu.