CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2012 05 27 06:25:25

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

DATES HEURES ET LANGUES

Information sur la source

Note :
Aucune note

Catégorie :Date/Heure

Niveau :Débutant Date de création :09/10/2003 Date de mise à jour :03/12/2003 08:23:05 Vu :13 939

Auteur : captainmagic

Ecrire un message privé

Site perso

Commentaire sur cette source (1)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Les visiteurs de site Web indiquent la langue qu il utilise dans leur nagivateur.
Nous pouvons la connaître avec Request.ServerVariables("HTTP_ACCEPT_LANGUAGE").

Entre les tables windows langue et culture les valeurs sont presques communes.
Pourtant il faut indiquer des culture non neutre aux instructions:
Thread.CurrentThread.CurrentCulture
Thread.CurrentThread.CurrentUICulture

Et les langages inclut des cultures neutres.
Exemple:
Fr Français neutre
Fr-Be français belge non-neutre

Description du résultat:
La premiere ligne indique l'heure sur le poste client, l'heure de Greenwish (GMT), et leur d'un serveur
à fuseau horaire GMT-7. C'est un javascript, donc il est mis à jour coté client.

Sur la deuxieme ligne, une liste déroulante permet de choisir la langue d'affichage du premier tableau.

La langue d'affichage du deuxième tableau est celle indiquée en premier dans la liste
des préférences de langage de votre navigateur(outils/options/langues).

Source

1) créer une Webform nommée "Webform1.aspx"
2) dans sa page HTML remplacer tout le code sauf la premiere ligne par:
------------------------------------
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//FR">
<HTML>
<HEAD>
<TITLE>Francois Rossello</TITLE>
<META http-equiv="content-language" content="fr">
<META http-equiv="Content-Type" content="text/html;charset=window-1252">
<META http-equiv="Pragma" content="no-cache">
<META http-equiv="Expires" content="0">
<META name="LANGUAGE" content="fr">
<META name="HTTP.LANGUAGE" content="FRENCH">
<META name="description" content="">
<META name="KEYWORDS" content="">
<META name="AUTHOR" content="Francois Rossello">
<META name="reply-to" content="frossello@frossello.Com">
<META name="publisher" content="Francois Rossello">
<META name="copyright" content="Francois Rossello">
<META content="JavaScript" name="vs_defaultClientScript">
<META content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
<META name="robots" content="index,follow">
<META name="revisit-after" content="10">
</HEAD>
<body bgColor="#ffffff" MS_POSITIONING="GridLayout" topMargin="0" rightMargin="0">
<FONT face='Trebuchet MS' size='2'>
<div align="center">
Dates et heures
<form id="Form1" method="post" runat="server">
<table>
<TBODY>
<tr>
<td>
Client  <INPUT id="txtClientTime" size="10" name="txtClientTime"> GMT <INPUT id="txtGMTTime" type="text" size="10" name="Text1">
Server <INPUT id="txtServerTime" type="text" size="10" name="Text2">
</td>
</tr>
</TBODY>
</table>
<br>
<asp:Label id="Label1" runat="server">Langue affichage</asp:Label>
<asp:DropDownList id="cbo_Culture" runat="server" AutoPostBack="True"></asp:DropDownList>
<a HREF='#' onclick="JavaScript:window.open('DateHeure_culture.aspx','Logo','width=790,height=540,top=0,left=0,scrollbars=yes,resizable=yes');return(false)">
<INPUT type="submit" id="Btn_Culture" name="Button1" runat="server" value="Table des cultures">
</a>
<%Show_Date%>
</form>
</div>
<script language="javascript">
function clock() {
cTime= new Date();
cHours = cTime.getHours();
cMinutes = cTime.getMinutes();
cSecondes = cTime.getSeconds();
cUTCHours = cTime.getUTCHours();
cUTCMinutes = cTime.getUTCMinutes();
cUTCSecondes = cTime.getUTCSeconds();
cTime.setHours(cTime.getUTCHours()-7)
cServerHours = cTime.getHours();
cServerMinutes = cTime.getMinutes();
cServerSecondes = cTime.getSeconds();
document.Form1.txtClientTime.value=((cHours<10)?'0':'') + cHours + ':' + ((cMinutes<10)?'0':'') + cMinutes + ':' + ((cSecondes<10)?'0':'') + cSecondes;
document.Form1.txtGMTTime.value=((cUTCHours<10)?'0':'') + cUTCHours + ':' + ((cUTCMinutes<10)?'0':'') + cUTCMinutes + ':' + ((cUTCSecondes<10)?'0':'') + cUTCSecondes;
document.Form1.txtServerTime.value=((cServerHours<10)?'0':'') + cServerHours + ':' + ((cServerMinutes<10)?'0':'') + cServerMinutes + ':' + ((cServerSecondes<10)?'0':'') + cServerSecondes;
setTimeout('clock()',1000);
}
clock();
</script>
</FONT>
</body>
</HTML>
------------------------------------
3) dans son fichier .vb replacer tout le code par:
------------------------------------
Imports System.Threading
Imports System.Globalization
Public Class DateHeure_LCID
Inherits System.Web.UI.Page
Protected WithEvents Label1 As System.Web.UI.WebControls.Label
Protected WithEvents Btn_Culture As System.Web.UI.HtmlControls.HtmlInputButton
Protected WithEvents Form1 As System.Web.UI.HtmlControls.HtmlForm
Protected WithEvents cbo_Culture As System.Web.UI.WebControls.DropDownList
#Region " Code généré par le Concepteur Web Form "
'Cet appel est requis par le Concepteur Web Form.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN : cet appel de méthode est requis par le Concepteur Web Form
'Ne le modifiez pas en utilisant l'éditeur de code.
InitializeComponent()
End Sub
#End Region
Public Sub Show_Date()
Dim cFR As New System.Globalization.CultureInfo("fr-FR")
' DATE ET HEURE : GMT, SERVEUR,, VISITEUR, FRANCE
Response.Write("<TABLE CELLPADDING=4 CELLSPACING=4 BORDER=2 NOWRAP>")
Response.Write("<TR>")
Response.Write("<TD >Libellé</TD>")
Response.Write("<TD>LCID</TD>")
Response.Write("<TD>")
Response.Write("Valeur")
Response.Write("</TD>")
Response.Write("</TR>")
Response.Write("<TR>")
Response.Write("<TD >GMT Maintenant</TD>")
Response.Write("<TD>" & Session.LCID & "</TD>")
Response.Write("<TD>")
Response.Write(System.DateTime.UtcNow.ToString("D") & " à " & System.DateTime.UtcNow.ToString("t"))
Response.Write("</TD>")
Response.Write("</TR>")
Response.Write("<TR>")
Response.Write("<TD>Serveur Maintenant</TD>")
Response.Write("<TD>" & Session.LCID & "</TD>")
Response.Write("<TD>" & Format(System.DateTime.Now, "D") & " à " & Format(System.DateTime.Now, "t"))
Response.Write("</TD>")
Response.Write("</TR>")
Response.Write("<TR>")
Response.Write("<TD>Serveur Fuseau</TD>")
Response.Write("<TD>" & Session.LCID & "</TD>")
Response.Write("<TD>GMT " & System.DateTime.Now.ToLocalTime.Subtract(System.DateTime.Now).Hours)
Response.Write("</TD>")
Response.Write("</TR>")
'Session.LCID = 1036
'Response.Write("<TR>")
'Response.Write("<TD>France court</TD>")
'Response.Write("<TD>" & Session.LCID & "</TD>")
'Response.Write("<TD>" & System.DateTime.Now.ToUniversalTime.AddHours(2).ToString)
'Response.Write("</TD>")
'Response.Write("</TR>")
'Session.LCID = 1033
Session.LCID = 1036
Response.Write("<TR>")
Response.Write("<TD>Français date longue</TD>")
Response.Write("<TD>" & Session.LCID & "</TD>")
Response.Write("<TD>" & System.DateTime.Now.ToUniversalTime.AddHours(2).ToString("f"))
Response.Write("</TD>")
Response.Write("</TR>")
Session.LCID = 1033
Response.Write("<TR>")
Response.Write("<TD>")
Response.Write("Région courante")
Response.Write("</TD>")
Response.Write("<TD>")
Response.Write(" ")
Response.Write("</TD>")
Response.Write("<TD>")
Response.Write(System.Globalization.RegionInfo.CurrentRegion())
Response.Write("</TD>")
Response.Write("</TR>")
Response.Write("<TR>")
Response.Write("<TD>")
Response.Write("Culture courante")
Response.Write("</TD>")
Response.Write("<TD>")
Response.Write(" ")
Response.Write("</TD>")
Response.Write("<TD>")
Response.Write(Thread.CurrentThread.CurrentUICulture)
Response.Write("</TD>")
Response.Write("</TR>")
Response.Write("</TABLE>")
Set_Language()
Response.Write("Culture configurée par défaut sur le serveur : " & Thread.CurrentThread.CurrentUICulture.ToString & "")
' DATE ET HEURE : GMT, SERVEUR,, VISITEUR, FRANCE
Response.Write("<TABLE CELLPADDING=4 CELLSPACING=4 BORDER=2 NOWRAP>")
Response.Write("<TR>")
Response.Write("<TD >GMT Maintenant</TD>")
Response.Write("<TD>" & Session.LCID & "</TD>")
Response.Write("<TD>")
Response.Write(System.DateTime.UtcNow.ToString("D") & " à " & System.DateTime.UtcNow.ToString("t"))
Response.Write("</TD>")
Response.Write("</TR>")
Response.Write("<TR>")
Response.Write("<TD>Serveur Maintenant</TD>")
Response.Write("<TD>" & Session.LCID & "</TD>")
Response.Write("<TD>" & Format(System.DateTime.Now, "D") & " à " & Format(System.DateTime.Now, "t"))
Response.Write("</TD>")
Response.Write("</TR>")
Response.Write("<TR>")
Response.Write("<TD>Serveur Fuseau</TD>")
Response.Write("<TD>" & Session.LCID & "</TD>")
Response.Write("<TD>GMT " & System.DateTime.Now.ToLocalTime.Subtract(System.DateTime.Now).Hours)
Response.Write("</TD>")
Response.Write("</TR>")
'Session.LCID = 1036
'Response.Write("<TR>")
'Response.Write("<TD>France court</TD>")
'Response.Write("<TD>" & Session.LCID & "</TD>")
'Response.Write("<TD>" & System.DateTime.Now.ToUniversalTime.AddHours(2).ToString)
'Response.Write("</TD>")
'Response.Write("</TR>")
'Session.LCID = 1033
Session.LCID = 1036
Response.Write("<TR>")
Response.Write("<TD>Français date longue</TD>")
Response.Write("<TD>" & Session.LCID & "</TD>")
Response.Write("<TD>" & System.DateTime.Now.ToUniversalTime.AddHours(2).ToString("f"))
Response.Write("</TD>")
Response.Write("</TR>")
Session.LCID = 1033
Response.Write("<TR>")
Response.Write("<TD>")
Response.Write("Région courante")
Response.Write("</TD>")
Response.Write("<TD>")
Response.Write(" ")
Response.Write("</TD>")
Response.Write("<TD>")
Response.Write(System.Globalization.RegionInfo.CurrentRegion())
Response.Write("</TD>")
Response.Write("</TR>")
Response.Write("<TR>")
Response.Write("<TD>")
Response.Write("Culture courante")
Response.Write("</TD>")
Response.Write("<TD>")
Response.Write(" ")
Response.Write("</TD>")
Response.Write("<TD>")
Response.Write(Thread.CurrentThread.CurrentUICulture)
Response.Write("</TD>")
Response.Write("</TR>")
Response.Write("</TABLE>")
'Response.Write("<script language=javascript>parent.contents.history.go(0)</script>")
End Sub
Private Sub Set_Language()
Dim strTMP As String
Dim lngPOS As Long
strTMP = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE").ToString()
lngPOS = InStr(strTMP, ",", CompareMethod.Text)
If lngPOS > 0 Then strTMP = Mid(strTMP, 1, lngPOS - 1)
lngPOS = InStr(strTMP, ";", CompareMethod.Text)
If lngPOS > 0 Then strTMP = Mid(strTMP, 1, lngPOS - 1)
If Len(strTMP) = 2 Then
Select Case strTMP
Case "fr"
strTMP = "fr-FR"
Case "ar"
strTMP = "ar-KW"
Case "en"
strTMP = "en-US"
Case "ca"
strTMP = "ca-ES"
Case "zh-CHS", "zh-CHT"
strTMP = "zh-CN"
Case "ca"
strTMP = "ca-ES"
Case "cs"
strTMP = "cs-CZ"
Case "da"
strTMP = "da-DK"
Case "el"
strTMP = "el-GR"
Case "en"
strTMP = "en-US"
Case "he"
strTMP = "he-IL"
Case "ja"
strTMP = "ja-JP"
Case "ko"
strTMP = "ko-KR"
Case "no"
strTMP = "nb-NO"
Case "sq"
strTMP = "sq-AL"
Case "sv"
strTMP = "sv-SE"
Case "ur"
strTMP = "ur-PK"
Case "uk"
strTMP = "uk-UA"
Case "be"
strTMP = "be-BY"
Case "et"
strTMP = "et-EE"
Case "fa"
strTMP = "fa-IR"
Case "vi"
strTMP = "vi-VN"
Case "hy"
strTMP = "hy-AM"
Case "az"
strTMP = "az-AZ-Cyrl"
Case "eu"
strTMP = "eu-ES"
Case "af"
strTMP = "af-ZA"
Case "ka"
strTMP = "ka-GE"
Case "hi"
strTMP = "hi-IN"
Case "ms"
strTMP = "ms-MY"
Case "kk"
strTMP = "kk-KZ"
Case "ky"
strTMP = "ky-KZ"
Case "sw"
strTMP = "sw-KE"
Case "uz"
strTMP = "uz-UZ_Latn"
Case "tt"
strTMP = "tt-RU"
Case "pa"
strTMP = "pa-IN"
Case "gu"
strTMP = "gu-IN"
Case "ta"
strTMP = "ta-IN"
Case "te"
strTMP = "te-IN"
Case "kn"
strTMP = "kn-IN"
Case "mr"
strTMP = "mr-IN"
Case "sa"
strTMP = "sa-IN"
Case "gl"
strTMP = "gl-ES"
Case "kok"
strTMP = "kok-IN"
Case "syr"
strTMP = "syr-SI"
Case "div"
strTMP = "div-MV"
Case Else
strTMP = strTMP & "-" & UCase(strTMP)
End Select
End If
'Response.Write("LANGAGE: " & strTMP & "<BR>")
Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo(strTMP)
Thread.CurrentThread.CurrentUICulture = New System.Globalization.CultureInfo(strTMP)
End Sub
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Request.QueryString("SHOWMENU") = 1 Then Server.Execute("../visiteur/top.aspx?dest=none")
Dim maCulture As System.Globalization.CultureInfo
0:
If cbo_Culture.Items.Count = 0 Then
cbo_Culture.Items.Clear()
For Each maCulture In System.Globalization.CultureInfo.GetCultures(Globalization.CultureTypes.AllCultures)
If Not maCulture.IsNeutralCulture Then
cbo_Culture.Items.Add(maCulture.Name)
End If
Next
End If
End Sub
Private Sub cbo_Culture_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_Culture.SelectedIndexChanged
Dim strTMP As String
Dim lngPOS As Long
strTMP = cbo_Culture.SelectedItem.Text
lngPOS = InStr(strTMP, ",", CompareMethod.Text)
If lngPOS > 0 Then strTMP = Mid(strTMP, 1, lngPOS - 1)
If Len(strTMP) = 2 Then strTMP = strTMP & "-" & UCase(strTMP)
'Response.Write("LANGAGE: " & strTMP & "<BR>")
Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo(strTMP)
Thread.CurrentThread.CurrentUICulture = New System.Globalization.CultureInfo(strTMP)
End Sub
End Class

1) créer une Webform nommée "Webform1.aspx"
2) dans sa page HTML remplacer tout le code sauf la premiere ligne par:
------------------------------------
<!-- votre première ligne -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//FR">
<HTML>
	<HEAD>
		<TITLE>Francois Rossello</TITLE>
		<META http-equiv="content-language" content="fr">
		<META http-equiv="Content-Type" content="text/html;charset=window-1252">
		<META http-equiv="Pragma" content="no-cache">
		<META http-equiv="Expires" content="0">
		<META name="LANGUAGE" content="fr">
		<META name="HTTP.LANGUAGE" content="FRENCH">
		<META name="description" content="">
		<META name="KEYWORDS" content="">
		<META name="AUTHOR" content="Francois Rossello">
		<META name="reply-to" content="frossello@frossello.Com">
		<META name="publisher" content="Francois Rossello">
		<META name="copyright" content="Francois Rossello">
		<META content="JavaScript" name="vs_defaultClientScript">
		<META content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
		<META name="robots" content="index,follow">
		<META name="revisit-after" content="10">
	</HEAD>
	<body bgColor="#ffffff" MS_POSITIONING="GridLayout" topMargin="0" rightMargin="0">
	<FONT face='Trebuchet MS' size='2'>
	<div align="center">
		Dates et heures
		<form id="Form1" method="post" runat="server">
			<table>
				<TBODY>
					<tr>
						<td>
							Client&nbsp; <INPUT id="txtClientTime" size="10" name="txtClientTime"> GMT <INPUT id="txtGMTTime" type="text" size="10" name="Text1">
							Server <INPUT id="txtServerTime" type="text" size="10" name="Text2">
						</td>
					</tr>
				</TBODY>
			</table>
			<br>
			<asp:Label id="Label1" runat="server">Langue affichage</asp:Label>
			<asp:DropDownList id="cbo_Culture" runat="server" AutoPostBack="True"></asp:DropDownList>
			<a HREF='#' onclick="JavaScript:window.open('DateHeure_culture.aspx','Logo','width=790,height=540,top=0,left=0,scrollbars=yes,resizable=yes');return(false)">
				<INPUT type="submit" id="Btn_Culture" name="Button1" runat="server" value="Table des cultures">
			</a>
		<%Show_Date%>
		</form>
		</div>
		<script language="javascript">
		function clock() {
		cTime= new Date();
		cHours = cTime.getHours();
		cMinutes = cTime.getMinutes();
		cSecondes = cTime.getSeconds();
		cUTCHours = cTime.getUTCHours();
		cUTCMinutes = cTime.getUTCMinutes();
		cUTCSecondes = cTime.getUTCSeconds();
		cTime.setHours(cTime.getUTCHours()-7)
		cServerHours = cTime.getHours();
		cServerMinutes = cTime.getMinutes();
		cServerSecondes = cTime.getSeconds();
				
		document.Form1.txtClientTime.value=((cHours<10)?'0':'') + cHours + ':' + ((cMinutes<10)?'0':'') + cMinutes + ':' + ((cSecondes<10)?'0':'') + cSecondes;
		document.Form1.txtGMTTime.value=((cUTCHours<10)?'0':'') + cUTCHours + ':' + ((cUTCMinutes<10)?'0':'') + cUTCMinutes + ':' + ((cUTCSecondes<10)?'0':'') + cUTCSecondes;
		document.Form1.txtServerTime.value=((cServerHours<10)?'0':'') + cServerHours + ':' + ((cServerMinutes<10)?'0':'') + cServerMinutes + ':' + ((cServerSecondes<10)?'0':'') + cServerSecondes;
		setTimeout('clock()',1000);
		}  
		clock();
			</script>
		</FONT>
	</body>
</HTML>


------------------------------------
3) dans son fichier .vb replacer tout le code par:
------------------------------------
Imports System.Threading
Imports System.Globalization

Public Class DateHeure_LCID
    Inherits System.Web.UI.Page
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents Btn_Culture As System.Web.UI.HtmlControls.HtmlInputButton
    Protected WithEvents Form1 As System.Web.UI.HtmlControls.HtmlForm
    Protected WithEvents cbo_Culture As System.Web.UI.WebControls.DropDownList

#Region " Code généré par le Concepteur Web Form "

    'Cet appel est requis par le Concepteur Web Form.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN : cet appel de méthode est requis par le Concepteur Web Form
        'Ne le modifiez pas en utilisant l'éditeur de code.
        InitializeComponent()
    End Sub

#End Region

    Public Sub Show_Date()
        Dim cFR As New System.Globalization.CultureInfo("fr-FR")

        ' DATE ET HEURE :   GMT, SERVEUR,, VISITEUR, FRANCE
        Response.Write("<TABLE CELLPADDING=4 CELLSPACING=4 BORDER=2 NOWRAP>")
        Response.Write("<TR>")
        Response.Write("<TD >Libellé</TD>")
        Response.Write("<TD>LCID</TD>")
        Response.Write("<TD>")
        Response.Write("Valeur")
        Response.Write("</TD>")
        Response.Write("</TR>")

        Response.Write("<TR>")
        Response.Write("<TD >GMT Maintenant</TD>")
        Response.Write("<TD>" & Session.LCID & "</TD>")
        Response.Write("<TD>")
        Response.Write(System.DateTime.UtcNow.ToString("D") & " à " & System.DateTime.UtcNow.ToString("t"))
        Response.Write("</TD>")
        Response.Write("</TR>")

        Response.Write("<TR>")
        Response.Write("<TD>Serveur Maintenant</TD>")
        Response.Write("<TD>" & Session.LCID & "</TD>")
        Response.Write("<TD>" & Format(System.DateTime.Now, "D") & " à " & Format(System.DateTime.Now, "t"))
        Response.Write("</TD>")
        Response.Write("</TR>")

        Response.Write("<TR>")
        Response.Write("<TD>Serveur Fuseau</TD>")
        Response.Write("<TD>" & Session.LCID & "</TD>")
        Response.Write("<TD>GMT " & System.DateTime.Now.ToLocalTime.Subtract(System.DateTime.Now).Hours)
        Response.Write("</TD>")
        Response.Write("</TR>")

        'Session.LCID = 1036
        'Response.Write("<TR>")
        'Response.Write("<TD>France court</TD>")
        'Response.Write("<TD>" & Session.LCID & "</TD>")
        'Response.Write("<TD>" & System.DateTime.Now.ToUniversalTime.AddHours(2).ToString)
        'Response.Write("</TD>")
        'Response.Write("</TR>")
        'Session.LCID = 1033

        Session.LCID = 1036
        Response.Write("<TR>")
        Response.Write("<TD>Français date longue</TD>")
        Response.Write("<TD>" & Session.LCID & "</TD>")
        Response.Write("<TD>" & System.DateTime.Now.ToUniversalTime.AddHours(2).ToString("f"))
        Response.Write("</TD>")
        Response.Write("</TR>")
        Session.LCID = 1033

        Response.Write("<TR>")
        Response.Write("<TD>")
        Response.Write("Région courante")
        Response.Write("</TD>")
        Response.Write("<TD>")
        Response.Write("&nbsp;")
        Response.Write("</TD>")
        Response.Write("<TD>")
        Response.Write(System.Globalization.RegionInfo.CurrentRegion())
        Response.Write("</TD>")
        Response.Write("</TR>")

        Response.Write("<TR>")
        Response.Write("<TD>")
        Response.Write("Culture courante")
        Response.Write("</TD>")
        Response.Write("<TD>")
        Response.Write("&nbsp;")
        Response.Write("</TD>")
        Response.Write("<TD>")
        Response.Write(Thread.CurrentThread.CurrentUICulture)
        Response.Write("</TD>")
        Response.Write("</TR>")

        Response.Write("</TABLE>")

        Set_Language()
        Response.Write("Culture configurée par défaut sur le serveur : " & Thread.CurrentThread.CurrentUICulture.ToString & "")

        ' DATE ET HEURE :   GMT, SERVEUR,, VISITEUR, FRANCE
        Response.Write("<TABLE CELLPADDING=4 CELLSPACING=4 BORDER=2 NOWRAP>")
        Response.Write("<TR>")
        Response.Write("<TD >GMT Maintenant</TD>")
        Response.Write("<TD>" & Session.LCID & "</TD>")
        Response.Write("<TD>")
        Response.Write(System.DateTime.UtcNow.ToString("D") & " à " & System.DateTime.UtcNow.ToString("t"))
        Response.Write("</TD>")
        Response.Write("</TR>")

        Response.Write("<TR>")
        Response.Write("<TD>Serveur Maintenant</TD>")
        Response.Write("<TD>" & Session.LCID & "</TD>")
        Response.Write("<TD>" & Format(System.DateTime.Now, "D") & " à " & Format(System.DateTime.Now, "t"))
        Response.Write("</TD>")
        Response.Write("</TR>")

        Response.Write("<TR>")
        Response.Write("<TD>Serveur Fuseau</TD>")
        Response.Write("<TD>" & Session.LCID & "</TD>")
        Response.Write("<TD>GMT " & System.DateTime.Now.ToLocalTime.Subtract(System.DateTime.Now).Hours)
        Response.Write("</TD>")
        Response.Write("</TR>")

        'Session.LCID = 1036
        'Response.Write("<TR>")
        'Response.Write("<TD>France court</TD>")
        'Response.Write("<TD>" & Session.LCID & "</TD>")
        'Response.Write("<TD>" & System.DateTime.Now.ToUniversalTime.AddHours(2).ToString)
        'Response.Write("</TD>")
        'Response.Write("</TR>")
        'Session.LCID = 1033

        Session.LCID = 1036
        Response.Write("<TR>")
        Response.Write("<TD>Français date longue</TD>")
        Response.Write("<TD>" & Session.LCID & "</TD>")
        Response.Write("<TD>" & System.DateTime.Now.ToUniversalTime.AddHours(2).ToString("f"))
        Response.Write("</TD>")
        Response.Write("</TR>")
        Session.LCID = 1033

        Response.Write("<TR>")
        Response.Write("<TD>")
        Response.Write("Région courante")
        Response.Write("</TD>")
        Response.Write("<TD>")
        Response.Write("&nbsp;")
        Response.Write("</TD>")
        Response.Write("<TD>")
        Response.Write(System.Globalization.RegionInfo.CurrentRegion())
        Response.Write("</TD>")
        Response.Write("</TR>")

        Response.Write("<TR>")
        Response.Write("<TD>")
        Response.Write("Culture courante")
        Response.Write("</TD>")
        Response.Write("<TD>")
        Response.Write("&nbsp;")
        Response.Write("</TD>")
        Response.Write("<TD>")
        Response.Write(Thread.CurrentThread.CurrentUICulture)
        Response.Write("</TD>")
        Response.Write("</TR>")

        Response.Write("</TABLE>") 
        'Response.Write("<script language=javascript>parent.contents.history.go(0)</script>")

    End Sub

    Private Sub Set_Language()
        Dim strTMP As String
        Dim lngPOS As Long

        strTMP = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE").ToString()
        lngPOS = InStr(strTMP, ",", CompareMethod.Text)
        If lngPOS > 0 Then strTMP = Mid(strTMP, 1, lngPOS - 1)


        lngPOS = InStr(strTMP, ";", CompareMethod.Text)
        If lngPOS > 0 Then strTMP = Mid(strTMP, 1, lngPOS - 1)

        If Len(strTMP) = 2 Then
            Select Case strTMP
                Case "fr"
                    strTMP = "fr-FR"
                Case "ar"
                    strTMP = "ar-KW"
                Case "en"
                    strTMP = "en-US"
                Case "ca"
                    strTMP = "ca-ES"
                Case "zh-CHS", "zh-CHT"
                    strTMP = "zh-CN"
                Case "ca"
                    strTMP = "ca-ES"
                Case "cs"
                    strTMP = "cs-CZ"
                Case "da"
                    strTMP = "da-DK"
                Case "el"
                    strTMP = "el-GR"
                Case "en"
                    strTMP = "en-US"
                Case "he"
                    strTMP = "he-IL"
                Case "ja"
                    strTMP = "ja-JP"
                Case "ko"
                    strTMP = "ko-KR"
                Case "no"
                    strTMP = "nb-NO"
                Case "sq"
                    strTMP = "sq-AL"
                Case "sv"
                    strTMP = "sv-SE"
                Case "ur"
                    strTMP = "ur-PK"
                Case "uk"
                    strTMP = "uk-UA"
                Case "be"
                    strTMP = "be-BY"
                Case "et"
                    strTMP = "et-EE"
                Case "fa"
                    strTMP = "fa-IR"
                Case "vi"
                    strTMP = "vi-VN"
                Case "hy"
                    strTMP = "hy-AM"
                Case "az"
                    strTMP = "az-AZ-Cyrl"
                Case "eu"
                    strTMP = "eu-ES"
                Case "af"
                    strTMP = "af-ZA"
                Case "ka"
                    strTMP = "ka-GE"
                Case "hi"
                    strTMP = "hi-IN"
                Case "ms"
                    strTMP = "ms-MY"
                Case "kk"
                    strTMP = "kk-KZ"
                Case "ky"
                    strTMP = "ky-KZ"
                Case "sw"
                    strTMP = "sw-KE"
                Case "uz"
                    strTMP = "uz-UZ_Latn"
                Case "tt"
                    strTMP = "tt-RU"
                Case "pa"
                    strTMP = "pa-IN"
                Case "gu"
                    strTMP = "gu-IN"
                Case "ta"
                    strTMP = "ta-IN"
                Case "te"
                    strTMP = "te-IN"
                Case "kn"
                    strTMP = "kn-IN"
                Case "mr"
                    strTMP = "mr-IN"
                Case "sa"
                    strTMP = "sa-IN"
                Case "gl"
                    strTMP = "gl-ES"
                Case "kok"
                    strTMP = "kok-IN"
                Case "syr"
                    strTMP = "syr-SI"
                Case "div"
                    strTMP = "div-MV"
                Case Else
                    strTMP = strTMP & "-" & UCase(strTMP)
            End Select
        End If

        'Response.Write("LANGAGE: " & strTMP & "<BR>")
        Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo(strTMP)
        Thread.CurrentThread.CurrentUICulture = New System.Globalization.CultureInfo(strTMP)

    End Sub

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Request.QueryString("SHOWMENU") = 1 Then Server.Execute("../visiteur/top.aspx?dest=none")
        Dim maCulture As System.Globalization.CultureInfo
0:
        If cbo_Culture.Items.Count = 0 Then
            cbo_Culture.Items.Clear()

            For Each maCulture In System.Globalization.CultureInfo.GetCultures(Globalization.CultureTypes.AllCultures)
                If Not maCulture.IsNeutralCulture Then
                    cbo_Culture.Items.Add(maCulture.Name)
                End If
            Next
        End If
    End Sub

    Private Sub cbo_Culture_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_Culture.SelectedIndexChanged
        Dim strTMP As String
        Dim lngPOS As Long

        strTMP = cbo_Culture.SelectedItem.Text

        lngPOS = InStr(strTMP, ",", CompareMethod.Text)
        If lngPOS > 0 Then strTMP = Mid(strTMP, 1, lngPOS - 1)
        If Len(strTMP) = 2 Then strTMP = strTMP & "-" & UCase(strTMP)
        'Response.Write("LANGAGE: " & strTMP & "<BR>")
        Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo(strTMP)
        Thread.CurrentThread.CurrentUICulture = New System.Globalization.CultureInfo(strTMP)

    End Sub

End Class

Sources du même auteur

GESTION D'ERREUR STANDARD

Toutes les sources de captainmagic

Sources de la même categorie

CONVERSION D'UNE DATE/HEURE STANDARD VERS DATE/HEURE CONFORM... par processus

CALCUL DE L'AGE D'UNE PERSONNE (ASP VBSCRIPT) par bluedemon

CONVERSION DE GMT À LOCAL ET DE LOCAL À GMT par revolt

CALENDRIER DYNAMIQUE AVEC JOURS FERIES par label97

SAISIR DATE FR DANS MYSQL par jeckel

Toutes les sources de la catégorie Date/Heure

Commentaires et avis

Commentaire de fabrice69 le 10/10/2003 00:16:55 administrateur CS

Je ne comprends pas bien pourquoi faire des response.Write pour remplir un tableau, mais sinon la source est intéressante.
Par contre, peux-tu supprimer ta publicité au bas de ta source stp.

De plus dans le formulaire, coche que ta source est une source .NET, car dans les info de présentation on y voit une source ASP.

F___

Ajouter un commentaire

Nos sponsors

Derniers Blogs

IMAGINE CUP 2012, MAKE A SIGN EN FINALE par junarnoalg

KINECT 1.5 IS OUT ! par Vko

LES ACTUALITéS DE LA SEMAINE SUR C2I.FR (14 MAI - 20 MAI) par richardc

REACTIVE EXTENSIONS : CONSOMMER DES SERVICES AVEC RX PARTIE 3, LES PIèGES à éVITER par Groc

SHAREPOINT BLOG SITE, PROBLèME D'ARCHIVES par junarnoalg

Forum

RE : GRIDVIEW CHECKBOX par jacksparoow

GESTION DE BIBLIOTHèQUE par tdiniss

GRIDVIEW CHECKBOX par invent001

OUTIL MYSQL par nobla

AFFICHAGE D'IMAGES OU ZONE COULEUR SUR UN PLAN par yok28

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Realisation d-une version 2 d-un site e-commerce existant sous prestashop-REPUBLICATION
Budget : 5 000€
Recherche Infogerance Serveur Debian Linux
Budget : 1 800€
Creation d-un site vitrine avec MagentO
Budget : 2 000€

Logiciels

sDEVIS-FACTURES vlPRO (8.1.0.3)
SDEVIS-FACTURES VLPRO (8.1.0.3)

sDEVIS-FACTURES vlPRO a été mis au point pour les particuliers, créateurs, entrepreneurs, artisa...

Cliquez pour télécharger sDEVIS-FACTURES vlPRO
974 Application Server (12.2.4.6)
974 APPLICATION SERVER (12.2.4.6)

Développez de puissantes applications dans un environnement de 'cloud computing', clusterisé, séc...

Cliquez pour télécharger 974 Application Server
vPicture (1.4.2.1)
VPICTURE (1.4.2.1)

Avec vPicture, hébergez vos images facilement et rapidement. vPicture est un utilitaire simple, ...

Cliquez pour télécharger vPicture
Easy-Planning (2.2.1.6)
EASY-PLANNING (2.2.1.6)

Easy-Planning permet de créer des plannings sous la représentation de diagrammes et est adapté au...

Cliquez pour télécharger Easy-Planning
COM-BACKUP (2.0)
COM-BACKUP (2.0)

COM-BACKUP est un logiciel de sauvegarde qui permet de planifier les sauvegardes de vos dossiers ...

Cliquez pour télécharger COM-BACKUP