AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 10 13:19:08
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

9 commentaire(s) de quineman sur des sources sur tout CodeS-SourceS

Le : 14/09/2007 16:50:14
Source : JOURS FÉRIÉS ET DIMANCHE
J'ai fait une traduction en VB.net mais il me trouve paque le 08/04/2007 au lieu du 09/04/2007. Ce qui me décale tout le reste...
Vous voyer d'ou ça peut venir ?

Public Function IsWorkingDay(ByVal dtDate As DateTime) As Boolean
        Dim bolWorkingDay As Boolean = True
        Dim arrDateFerie As Array
        arrDateFerie = Array.CreateInstance(GetType(DateTime), 8)
        ' 01 Janvier
        arrDateFerie.SetValue(New DateTime(dtDate.Year, 1, 1), 0)
        ' 01 Mai
        arrDateFerie.SetValue(New DateTime(dtDate.Year, 5, 1), 1)
        ' 08 Mai
        arrDateFerie.SetValue(New DateTime(dtDate.Year, 5, 8), 2)
        ' 14 Juillet
        arrDateFerie.SetValue(New DateTime(dtDate.Year, 7, 14), 3)
        ' 15 Aout
        arrDateFerie.SetValue(New DateTime(dtDate.Year, 8, 15), 4)
        ' 01 Novembre
        arrDateFerie.SetValue(New DateTime(dtDate.Year, 11, 1), 5)
        ' 11 Novembre
        arrDateFerie.SetValue(New DateTime(dtDate.Year, 11, 11), 6)
        ' Noël
        arrDateFerie.SetValue(New DateTime(dtDate.Year, 12, 25), 7)

        ' Dimanche ou jour férié
        If (dtDate.DayOfWeek = DayOfWeek.Sunday) Or Array.BinarySearch(arrDateFerie, dtDate) >= 0 Then bolWorkingDay = False

        If bolWorkingDay Then
            ' Calcul du jour de pâques (algorithme de Oudin (1940))
            'Calcul du nombre d'or - 1
            Dim intGoldNumber As Integer = CInt(dtDate.Year Mod 19)
            ' Année divisé par cent
            Dim intAnneeDiv100 As Integer = CInt(dtDate.Year / 100)
            ' intEpacte est = 23 - Epacte (modulo 30)
            Dim intEpacte = CInt((intAnneeDiv100 - intAnneeDiv100 / 4 - (8 * intAnneeDiv100 + 13) / 25 + (19 * intGoldNumber) + 15) Mod 30)
            'Le nombre de jours à partir du 21 mars pour atteindre la pleine lune Pascale
            Dim intDaysEquinoxeToMoonFull As Integer = CInt((intEpacte - (intEpacte / 28) * (1 - (intEpacte / 28) * (29 / (intEpacte + 1)) * ((21 - intGoldNumber) / 11))))
            'Jour de la semaine pour la pleine lune Pascale (0=dimanche)
            Dim intWeekDayMoonFull As Integer = CInt(((dtDate.Year + dtDate.Year / 4 + intDaysEquinoxeToMoonFull + 2 - intAnneeDiv100 + intAnneeDiv100 / 4) Mod 7))
            ' Nombre de jours du 21 mars jusqu'au dimanche de ou
            ' avant la pleine lune Pascale (un nombre entre -6 et 28)
            Dim intDaysEquinoxeBeforeFullMoon As Integer = intDaysEquinoxeToMoonFull - intWeekDayMoonFull
            ' mois de pâques
            Dim intMonthPaques As Integer = CInt(3 + (intDaysEquinoxeBeforeFullMoon + 40) / 44)
            ' jour de pâques
            Dim intDayPaques As Integer = CInt(intDaysEquinoxeBeforeFullMoon + 28 - 31 * (intMonthPaques / 4))
            ' lundi de pâques
            Dim dtMondayPaques As DateTime = New DateTime(dtDate.Year, intMonthPaques, intDayPaques + 1)
            ' Ascension
            Dim dtAscension As DateTime = dtMondayPaques.AddDays(38)
            'Pentecote
            Dim dtMondayPentecote As DateTime = dtMondayPaques.AddDays(49)
            If (DateTime.Compare(dtMondayPaques, dtDate) = 0) Or (DateTime.Compare(dtAscension, dtDate) = 0) Or (DateTime.Compare(dtMondayPentecote, dtDate) = 0) Then
                bolWorkingDay = False
            Else
                bolWorkingDay = True
            End If

        End If

        Return bolWorkingDay

    End Function

Le : 05/02/2007 22:03:29
Source : ASP.NET - CHARGER UN DROPDOWNLIST EN DYNAMIQUE
Essaye avec selectedValue et adapte ton code ?
Bon courage.

Le : 19/09/2006 12:35:25
Source : ASP.NET 2.0 - ACTIVER UN MEMBERSHIPUSER
Comment envoi t on le guid dans le lien ?
C'est assez complexe pour un petit commentaire je pense ?
Merci pour la source !
En VB :
Imports System
Imports System.Data
Imports System.Configuration
Imports System.Collections
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls

Partial Class authentification_validate
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim queryGuid As String
        'on verifie qu'un guid est donné en parametre
        If IsNothing(Request.QueryString("guid")) Then
            queryGuid = Request.QueryString("guid")
            Dim gu As New Guid(queryGuid)
            'on récupére le membershipUser correspondant au guid
            Dim User As MembershipUser
            User = Membership.GetUser(gu)

            If IsNothing(User) Then
                User.IsApproved = True
                Membership.UpdateUser(User)
                'on active le compte utilisateur et on met à jour
                lblMess.Text = "Votre compte est désormais actif."
            Else
                lblMess.Text = "L'utilisateur n'éxiste pas ou a été supprimé. <br /> Vous devez créer un compte à nouveau."

            End If
        End If

    End Sub

    Protected Sub btnContinuer_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnContinuer.Click

        Response.Redirect("~/authentification/Login.aspx")

    End Sub


End Class

Le : 07/08/2006 17:31:00
Source : RECUPERER DES VALEURS SUITE A UNE SELECTION MULTIPLE DANS UN DATAGRID
Serait il possible d'avoir ton interface html avec stp ?

Le : 03/08/2006 00:31:48
Source : ASP.NET - COMMENT FAIRE UNE SELECTION SUR UNE VALEUR D'UN ITEM DANS UN DROPDOWNLIST
Excusez moi d'avoir manquer de clarté. Je souhaitais simplement ajouter une valeur par défaut qui n'est pas dans ma base à la liste et non séléctionner une valeur par par défaut qui est déjà dans ma base...
Quel est la différence avec un DDL.selectedValue=MaValeur avec une valeur par défaut si ma valeur n'éxiste pas ?

Le : 01/08/2006 18:46:42
Source : ASP.NET - CHARGER UN DROPDOWNLIST EN DYNAMIQUE
il faut également faire un imports de : System.Data.Odbc
Imports System.Data.Odbc

Le : 01/08/2006 18:44:33
Source : ASP.NET - CHARGER UN DROPDOWNLIST EN DYNAMIQUE
Qu'est ce que MyODBCReader ?
Tu ne l'a pas déclaré ...


Le : 01/08/2006 18:38:38
Source : ASP.NET - COMMENT FAIRE UNE SELECTION SUR UNE VALEUR D'UN ITEM DANS UN DROPDOWNLIST
N'est il pas possible de ne pas toucher aux informations de la base et d'ajouter une valeur dans la liste seulement dans l'interface grace à du code ?
Plus propre non ?
Merci pour ce petit tricks.

Le : 17/07/2006 19:22:13
Source : RECUPERER LA PAGE SANS LA MASTER PAGE ASSOCIÉ
Bonjour,
Je suis actuellement en train d'intégrer un site en aspx 2.0 et j'utilise un masterpage. Je me permet d'intervenir sur ce topic car je souhaiterais savoir s'il est possible d'utiliser ce systeme de templates avec des pages en asp 3.0.
Par avance merci pour votre réponse


1


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Comparez les prix Nouvelle version


RIM BlackBerry Storm 9530
Entre 72€ et 72€


Visiter le guide achat

Photothèque Nouveau !

Photo pretty girlsPhoto alphabet langue des sourds
Photo adolescente plagePhoto femme, plage, bien être, soleil, vacances, été, détente, repos

Visiter la photothèque


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,343 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.