XL 2019 yıl ay gün

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 19 Mars 2020

• #2

Merhaba Türkiye,
Sizi okuyamıyorum.
Sonuçları olan bir dosya.
Benim için 360 gün bir yıl değil, 11 ay 25 gün.
Bir yıl 365.25 güne eşittir.

 

Pièces jointes

• gün ay yıl tarih.xlsm

  14.5 KB · Affichages: 12

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Mars 2020

• #3

Bonjour le fil, TURKEY

Pour les non-turcophones

Chers professeurs
Lorsque j'entre le nombre de jours dans la colonne E de mon fichier joint
Année F Jour pour la colonne F,
Année à la colonne G
Mois à la colonne H
Jour dans la colonne I

J'ai besoin du code VBA pour donner les valeurs. Pouvez-vous m'aider?
merci

Cliquez pour agrandir...

😉

EDITION: Ah grillé, par sylvanu
Tu es turcophone comme moi à ce que je vois 😉

 

Vote positif 0 Vote négatif

T

TURKEY

XLDnaute Nouveau

• 19 Mars 2020

• #4

Sayın Hocam
1 yıl 360
1 Ay 30
olarak hesaplamam gerekiyor. Kamuda hesaplama o şekilde. Ancak formül ile değil de rica etsem vba olarak yardımcı olabilir misiniz?
Saygı ve sevgilerimle



Bay Profesör
1 yıl 360
1 ay 30
Hesaplamak zorundayım. Hesaplamanın izleyicisidir. Ama formülle değil, vba olarak yardımcı olabilir misiniz?
Saygı ve sevgi ile

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 19 Mars 2020

• #5

Google est mon ami.
Et l'aide est universelle.
Quoique Turkey prend des années de 360 jours. A voir la suite.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 19 Mars 2020

• #6

Yılda 360 gün ve ayda 30 gün olan ikinci versiyon.

Soru: Hangi takvim?

 

Pièces jointes

• gün ay yıl tarih (V2).xlsm

  14.4 KB · Affichages: 7

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Mars 2020

• #7

Re

•>sylvanu
Je ne faisais qu'un trait d'humour (cf G..gle translate)
Rien à redire sur l'aide universelle
Et TURKEY est le bienvenu parmi nous 😉
Mais ce serait plus facile si il était francophone comme nous sommes turcophones 😉
(second trait d'humour)

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 19 Mars 2020

• #8

Ou tout du moins fils de Shakespeare.
Mais ce serait moins ... fun. 🙂

 

Vote positif 0 Vote négatif

A

Amilo

XLDnaute Accro

• 19 Mars 2020

• #9

Bonjour,
Une autre formule avec la même logique que la réponse à sylvanu en poste #2

Edit : oups je viens de comprendre en poste #4 que TURKEY souhaite une solution en VBA uniquement…. je passe la main 🙂
Par ailleurs, TURKEY voudrait que : 1 an=360 jours et 1 mois=30 jours
Cordialement

 

Pièces jointes

• gün ay yıl tarih.xlsm

  10 KB · Affichages: 7

Dernière édition: 19 Mars 2020

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 19 Mars 2020

• #10

İyi akşamlar,
VBA'da kişisel işlevli yeni sürüm.

 

Pièces jointes

• gün ay yıl tarih (2).xlsm

  21.5 KB · Affichages: 12

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 19 Mars 2020

• #11

Merhaba @TURKEY 🙂 , @sylvanu 😉

Başka bir VBA işlevi:

VB:

Function YAG2(N, T)
   ' YAG2 for YilAyGün :T= 1 for Y, 2 for A, 3 for G
   Select Case T
      Case 1
         YAG2 = Int(N / 360)
      Case 2
         YAG2 = Int(N / 30) Mod 12
      Case 3
         YAG2 = N Mod 30
      Case Else
         YAG2 = ""
   End Select
End Function

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Mars 2020

• #12

Bonsoir,

Dans mon jeune temps j'ai fait du grec mais a priori ce n'est pas très accepté par les turcs 🙄

Bonne nuit.

 

Vote positif 0 Vote négatif

T

TURKEY

XLDnaute Nouveau

• 20 Mars 2020

• #13

Yardımlarınızı esirgemediğiniz için teşekkür ederim.
Konu Çözüldü

 

Vote positif 0 Vote négatif