XL 2019 yıl ay gün

[TURKEY]

Değerli Hocalarım
Ekli dosyamda E sütununa gün sayısı girdikçe
F sütununa Yıl Ay Gün,
G sütununa Yıl
H sütununa Ay
I sütununa Gün

değerlerini verecek VBA koduna ihtiyacım var. Yardımcı olabilir misiniz?
Teşekkürler

 

[sylvanu]

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.

 

[Staple1600]

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

😉

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

 

[TURKEY]

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

 

[sylvanu]

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

 

[sylvanu]

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

Soru: Hangi takvim?

 

[Staple1600]

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)

 

[sylvanu]

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

 

[Amilo]

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

 

[sylvanu]

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

 

[mapomme]

Merhaba @TURKEY 🙂 , @sylvanu 😉

Başka bir VBA işlevi:

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

 

[job75]

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.

 

[TURKEY]

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