[Language] Add current culture to language module

src/System Application/App/Language/src/Language.Codeunit.al

@@ -308,6 +308,17 @@ codeunit 43 Language
         exit(LanguageImpl.GetCultureName(LanguageID));
     end;
 
+    /// <summary>
+    /// Retrieves the current culture name for the session.
+    /// </summary>
+    /// <returns>The culture name. For example, 'en-US'.</returns>
+    procedure GetCurrentCultureName(): Text
+    var
+        LanguageImpl: Codeunit "Language Impl.";
+    begin
+        exit(LanguageImpl.GetCurrentCultureName());
+    end;
+
     /// <summary>
     /// Integration event, emitted from <see cref="GetUserLanguageCode"/>.
     /// Subscribe to this event to change the default behavior by changing the provided parameter(s).

src/System Application/App/Language/src/LanguageImpl.Codeunit.al

@@ -342,6 +342,13 @@ codeunit 54 "Language Impl."
         exit(CultureInfo.Name);
     end;
 
+    procedure GetCurrentCultureName(): Text
+    var
+        CultureInfo: DotNet CultureInfo;
+    begin
+        exit(CultureInfo.CurrentCulture.Name);
+    end;
+
     [EventSubscriber(ObjectType::Codeunit, Codeunit::"UI Helper Triggers", GetApplicationLanguage, '', false, false)]
     local procedure SetApplicationLanguageId(var language: Integer)
     begin